[[ProjectEular]]

 -- Problem 2
 
 module Main (main) where
 
 import qualified Common as C (fibs)
 
 main :: IO ()
 main = print $ problem2
 
 problem2 :: (Integral a) => a
 problem2 = sum [ x | x <- takeWhile (< 4000000) C.fibs, even x ]
トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS