added myAppend

amidvidy · Aug 15, 2012 · d09d2ad · d09d2ad
1 parent 74a801f
commit d09d2ad
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/real-world-haskell/ch4/myListFunctions.hs b/real-world-haskell/ch4/myListFunctions.hs
@@ -32,3 +32,8 @@ myInit :: [a] -> [a]
 myInit [x] = []
 myInit (x:xs) = x : myInit xs
 
+-- same as '(++)'
+myAppend :: [a] -> [a] -> [a]
+myAppend [] b = b
+myAppend a [] = a
+myAppend a b = myAppend (myInit a) ((myLast a) : b)