Entries from 2013-12-08 to 1 day
import Data.Char --2乗の和 sumsqr :: Int -> Int sumsqr n = sum [i^2 | i <- [1..n]] --ある要素のみからなるリストを生成する myReplicate :: Int -> a -> [a] myReplicate n x = [x | i <- [1..n]] --ピタゴラス数のリストを生成する pyths :: Int -> […
import Data.Char --2乗の和 sumsqr :: Int -> Int sumsqr n = sum [i^2 | i <- [1..n]] --ある要素のみからなるリストを生成する myReplicate :: Int -> a -> [a] myReplicate n x = [x | i <- [1..n]] --ピタゴラス数のリストを生成する pyths :: Int -> […