15 lines
282 B
Haskell
15 lines
282 B
Haskell
|
module Scratch where
|
||
|
|
|
||
|
|
neg :: Integer -> Integer
|
||
|
|
neg x = (-x)
|
||
|
|
|
||
|
|
sumTo20 :: [Integer] -> Integer
|
||
|
|
sumTo20 nums = sumTo20Acc 0 nums
|
||
|
|
|
||
|
|
sumTo20Acc :: Integer -> [Integer] -> Integer
|
||
|
|
sumTo20Acc acc [] = acc
|
||
|
|
sumTo20Acc acc (x:xs)
|
||
|
|
| acc >= 20 = acc
|
||
|
|
| otherwise = sumTo20Acc (acc + x) xs
|
||
|
|
|