From 1b71f17d39016a953ec7f2bac55f159e716521b4 Mon Sep 17 00:00:00 2001 From: Jim Pryor Date: Thu, 30 Sep 2010 14:16:04 -0400 Subject: [PATCH 1/1] tweaked arithmetic Signed-off-by: Jim Pryor --- arithmetic.mdwn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.11.0