language: Haskell (ghc-6.8.2)
date: 112 days 16 hours ago
link:
可見度: public 
1
2
3
4
5
6
7
8
9
10
11
12

import Control.Monad
import Control.Monad.Instances
 
monkeyNum :: Integer -> Integer
monkeyNum = sum . map ((^ 5) . read . (:[])) . show
 
isMonkey :: Integer -> Bool
isMonkey = monkeyNum >>= (==)
 
main :: IO ()
main = print $ sum $ filter isMonkey [10..200000]