Problem 29
http://projecteuler.net/index.php?section=problems&id=29
は?
main = print $ length $ map head $ group $ sort [ a ^ b | a <- [2..100], b <- [2..100]]
http://projecteuler.net/index.php?section=problems&id=29
は?
main = print $ length $ map head $ group $ sort [ a ^ b | a <- [2..100], b <- [2..100]]