Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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