day 6: haskell intro

ajnadel · Feb 3, 2016 · 4315282 · 4315282
1 parent a9ae472
commit 4315282
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/recursion.hs b/recursion.hs
@@ -0,0 +1,11 @@
+sumsq 0 = 0
+sumsq n = n ^ 2 + sumsq (n - 1)
+
+sumLinear [] = 0
+sumLinear (x:xs) = x + (sumLinear xs)
+
+sumTail lst = sumTailHelper lst 0
+sumTailHelper [] total = total
+sumTailHelper (x:xs) total = sumTailHelper xs (total + x)
+
+sumFoldr lst = foldr (+) 0 lst
diff --git a/syntax.hs b/syntax.hs
@@ -0,0 +1,5 @@
+
+cmp a b
+    | a < b     = -1
+    | a > b     = 1
+    | otherwise = 0