ProjectEular/Problem30 の変更点

[ トップ ] [ 差分 | バックアップ | リロード ] [ 一覧 | 単語検索 | 最終更新 | ヘルプ ]

追加された行はこの色です。
削除された行はこの色です。
ProjectEular/Problem30 へ行く。

[[ProjectEular]]

 -- Problem 30
 
 module Main (main) where
 
 import qualified Char as C (digitToInt)
 
 main :: IO ()
 main = print $ problem30
 
 problem30 :: Int
 problem30 = sum [ n | n <- [2..999999], is_sum_5powers n ]
 
 is_sum_5powers :: Int -> Bool
 is_sum_5powers n = n == (sum . map ((^5) . C.digitToInt) . show) n

Colorless Sight Wiki / ProjectEular/Problem30 の変更点