X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=assignment_3_evaluator.mdwn;h=4097eb689ed2b59e3c7034b94122029b01d857c5;hp=252e27f5792073500a831749556753a335b58f41;hb=9b16c80479fe22202709f0801a961e2aba0562f6;hpb=78a38c6d3d7956c0fb5be8fbc9cbf307ca99a35c diff --git a/assignment_3_evaluator.mdwn b/assignment_3_evaluator.mdwn index 252e27f5..4097eb68 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)