mandlm/CIS194
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

homework examples

Browse Source
This commit is contained in:
mandlm 2016-09-24 23:09:51 +02:00
parent 566bdfc66c
commit 8f7fac09b9
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Lecture 02/scratch/Scratch.hs Normal file
View File

@ -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