Skip to content

Instantly share code, notes, and snippets.

@reuk

reuk/euler56.hs

Created August 18, 2013 10:08
Show Gist options
  • Save reuk/6260885 to your computer and use it in GitHub Desktop.
Save reuk/6260885 to your computer and use it in GitHub Desktop.
Download ZIP
One-liner solution to Project Euler problem 56.
Raw
euler56.hs
import Data.Char (digitToInt)
main = print $ maximum [sum $ map digitToInt $ show (a ^ b) | a <- [1..100], b <- [1..100]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment