29問目
http://projecteuler.net/index.php?section=problems&id=29
2以上100以下のa,bに対してabがいくつあるか、重複するものを除いて答える。
import Data.List main = print $ euler029 100 euler029 :: Integer -> Int euler029 m = length $ nub $ [a ^ b | a <- [2..m], b <- [2..m]]
http://projecteuler.net/index.php?section=problems&id=29
2以上100以下のa,bに対してabがいくつあるか、重複するものを除いて答える。
import Data.List main = print $ euler029 100 euler029 :: Integer -> Int euler029 m = length $ nub $ [a ^ b | a <- [2..m], b <- [2..m]]