1 2 3 4 5 6 7 8
-- Exercise 1 fun1 :: [Integer] -> Integer fun1 = product . map (\n -> n-2) . filter even -- not tested fun2 :: Integer -> Integer fun2 = until (== 1) fun2 . last . takeWhile odd . iterate (\n -> 3*n + 1) . sum . takeWhile even . iterate (`div` 2)