Project Euler 解答

Project Euler Problem 065

Project Euler Problem 065

import Data.Char import Data.Ratio ans1 :: Int ans1 = sum $ map digitToInt $ show $ numerator $ foldr1 (\x y -> x + 1/y) $ take 100 $ 2:concatMap (\i -> [1,2*i,1]) [1..] -- 272 main :: IO () main = print ans1

since 2013