From: Jim Pryor Date: Thu, 30 Sep 2010 18:16:04 +0000 (-0400) Subject: tweaked arithmetic X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=commitdiff_plain;h=1b71f17d39016a953ec7f2bac55f159e716521b4 tweaked arithmetic Signed-off-by: Jim Pryor --- diff --git a/arithmetic.mdwn b/arithmetic.mdwn index fc7249f6..f7406ccb 100644 --- a/arithmetic.mdwn +++ b/arithmetic.mdwn @@ -39,7 +39,7 @@ Here are a bunch of pre-tested operations for the untyped lambda calculus. In so let head = \lst. lst (\h sofar. h) junk in let tail = \lst. (\shift lst. lst shift (make_pair empty junk) get_2nd) ; where shift is - (\h p. p (\t y. make_pair (make-list h t) t)) in + (\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