ProjectEular

-- Problem 16

module Main (main) where

import qualified Char (digitToInt)

main :: IO ()
main = print $ problem16

problem16 :: Int
problem16 = sum $ map Char.digitToInt $ show $ 2 ^ 1000
トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS