Added haskell solution

(could probably be done in 1 line using filter/foldr)