09/07/26 23:35:23
>>43
横レスだが
drop 49 $ take 100 $ filter (\x -> (foldr ((+) . product . enumFromTo 1 . read . (flip (:) [])) 0 . show) x == x) [1..]
直感的に書くとこんな感じかな？
49と100の部分を変えればどうとでも書けるよ。
09/07/26 23:35:23
>>43
横レスだが
drop 49 $ take 100 $ filter (\x -> (foldr ((+) . product . enumFromTo 1 . read . (flip (:) [])) 0 . show) x == x) [1..]
直感的に書くとこんな感じかな？
49と100の部分を変えればどうとでも書けるよ。