Added Haskell list comprehension to solve Problem 1