homework examples

2016-09-24 23:09:51 +02:00 · 2016-09-24 23:09:51 +02:00 · 8f7fac09b9
parent 566bdfc66c
commit 8f7fac09b9
1 changed files with 14 additions and 0 deletions
--- a/02/scratch/Scratch.hs
+++ b/02/scratch/Scratch.hs
@ -0,0 +1,14 @@
+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
+