Advertisement
Sarospa

Project Euler Solution 56

Mar 30th, 2015
283
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. main = print $ maximum $ map (sum . (map (read . (flip (:) []))) . show) [x ^ y | x <- [1..100], y <- [1..100]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement