X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=arithmetic.mdwn;h=62e72bf262a9abab4eac5c06d6c4be3fe081b464;hp=d27248754b7832b7c5edadb702823f11a35c3457;hb=09fc19c5582c88be7c4dca5b6b2007c5165191dc;hpb=0dd9b48d6a2e74d618a99a101f0122f4d7c076fb

diff --git a/arithmetic.mdwn b/arithmetic.mdwn
index d2724875..62e72bf2 100644
--- a/arithmetic.mdwn
+++ b/arithmetic.mdwn
@@ -37,14 +37,29 @@ Here are a bunch of pre-tested operations for the untyped lambda calculus. In so
 	let make_list = \h t f z. f h (t f z)  in
 	let isempty = \lst. lst (\h sofar. false) true  in
 	let head = \lst. lst (\h sofar. h) junk  in
-	let tail = \lst. (\shift lst. lst shift (make_pair empty junk) get_2nd)
+	let tail_empty = empty  in
+	let tail = \lst. (\shift. lst shift (make_pair empty tail_empty) get_2nd)
 				; where shift is
 				(\h p. p (\t y. make_pair (make_list h t) t))  in
 	let length = \lst. lst (\h sofar. succ sofar) 0  in
 	let map = \f lst. lst (\h sofar. make_list (f h) sofar) empty  in
 	let filter = \f lst. lst (\h sofar. f h (make_list h sofar) sofar) empty  in ; or
 	let filter = \f lst. lst (\h. f h (make_list h) I) empty  in
-	
+	let singleton = \x f z. f x z  in
+	; append list2 to list1 with: list1 make_list list2
+	let reverse = \lst. lst (\h sofar. sofar make_list (singleton h)) empty  in
+	; zip [a;b;c] [x; y; z] ~~> [(a,x);(b,y);(c,z)]
+	let zip = \left right. (\base build. reverse left build base (\x y. reverse x))
+                       ; where base is
+                       (make_pair empty (map (\h u. u h) right))
+                       ; and build is
+                       (\h sofar. sofar (\x y. isempty y
+                                               sofar
+                                               (make_pair (make_list (\u. head y (u h)) x)  (tail y))
+                       ))  in
+	let all = \f lst. lst (\h sofar. and sofar (f h)) true  in
+	let any = \f lst. lst (\h sofar. or sofar (f h)) false  in
+
 
 	; version 1 lists