Nice, but don't compute the length of a list if you don't have to. (not . null) instead of (\x -> length x > 1) is shorter, and works on infinite lists also.

Nice, but don't compute the length of a list if you don't have to. (not . null) instead of (\x -> length x > 1) is shorter, and works on infinite lists also. Edit: well, in case you would test for x>0.