2008-09-05 Project Euler: Problem29 Haskell import Data.List main = print $ length $ nub [a^b | a <- [2..100], b <- [2..100]]