import Number import Data.List import Data.Maybe dscList lim max' | lim < 1 = [[]] | otherwise = [x:ys|x<-[1..max'],ys<-dscList (lim' x) x] where lim' y = lim / (2*(fromIntegral y)+1) p110 = dscList 7999999 60 decode = product.zipWith (^) …

http://projecteuler.net/index.php?section=problems&id=1081/a+1/b=1/nですが、b=n+b'と書き換えると n^2がb'で割り切れることが分かる。 従って、n^2が1999個の約数を持つ最小のnを探せばよい。 import Number import Data.List import Data.Maybe descen…