Finished Haskell day 1 solutions