11 lines
187 B
Haskell
11 lines
187 B
Haskell
|
sumFun :: Integer -> Integer
|
||
|
|
sumFun 0 = 0
|
||
|
|
sumFun n
|
||
|
|
| n < 0 = 0
|
||
|
|
| otherwise = sumFun(n - 1) + n
|
||
|
|
|
||
|
|
sumList :: Integer -> [Integer]
|
||
|
|
sumList 0 = []
|
||
|
|
sumList n = sumFun(n) : sumList(n - 1)
|
||
|
|
|