From: Chris Barker Date: Sun, 3 Oct 2010 18:34:56 +0000 (-0400) Subject: assignment 3 evalutor preload X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=commitdiff_plain;h=78a38c6d3d7956c0fb5be8fbc9cbf307ca99a35c assignment 3 evalutor preload --- diff --git a/assignment_3_evaluator.mdwn b/assignment_3_evaluator.mdwn index d30e150f..252e27f5 100644 --- a/assignment_3_evaluator.mdwn +++ b/assignment_3_evaluator.mdwn @@ -21,7 +21,7 @@ let length = Y (\length l. isNil l 0 (succ (length (tail l)))) in let pred = \n. isZero n 0 (length (tail (n (\p. makeList meh p) nil))) in let leq = \m n. isZero(n pred m) in let eq = \m n. and (leq m n)(leq n m) in - +% length (tail mylist)