[[ProjectEular]]

 -- Problem 6
 
 module Main (main) where
 
 main :: IO ()
 main = print $ problem6
 
 problem6 :: (Integral a) => a
 problem6 = (square_sum [1..100]) - (sum_square [1..100])
 
 sum_square :: (Integral a) => [a] -> a
 sum_square numbers = sum (map (^2) numbers)
 
 square_sum :: (Integral a) => [a] -> a
 square_sum numbers = (sum numbers) ^ 2
トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS