関数型プログラミング言語Haskell Part32

[945 デフォルトの名無しさん 2020/01/19(日) 01:34:42.77 ID:lT5Fy0hi]

コレはダメ？

sumlist [] = []
sumlist (x:xs) = x:(map (+x) $ sumlist xs )

main = do
print $ sumlist [5,4,8,7]
print $ take 10 $ [1..]
-----
[5,9,17,24]
[1,2,3,4,5,6,7,8,9,10]