From d7c9144dc2558e867db336c1c36961fb0d19fdad Mon Sep 17 00:00:00 2001 From: Chris Barker Date: Sun, 3 Oct 2010 20:37:10 -0400 Subject: [PATCH] edits --- assignment_3_evaluator.mdwn | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/assignment_3_evaluator.mdwn b/assignment_3_evaluator.mdwn index 28693f43..f4f5fb92 100644 --- a/assignment_3_evaluator.mdwn +++ b/assignment_3_evaluator.mdwn @@ -42,22 +42,22 @@ let makeList = make\_list in let isZero = iszero in let mult = mul in ; -let t1 = (make_list 1 empty) in -let t2 = (make_list 2 empty) in -let t3 = (make_list 3 empty) in -let t12 = (make_list t1 (make_list t2 empty)) in -let t23 = (make_list t2 (make_list t3 empty)) in -let ta = (make_list t1 t23) in -let tb = (make_list t12 t3) in -let tc = (make_list t1 (make_list t23 empty)) in +let t1 = (make\_list 1 empty) in +let t2 = (make\_list 2 empty) in +let t3 = (make\_list 3 empty) in +let t12 = (make\_list t1 (make\_list t2 empty)) in +let t23 = (make\_list t2 (make\_list t3 empty)) in +let ta = (make\_list t1 t23) in +let tb = (make\_list t12 t3) in +let tc = (make\_list t1 (make\_list t23 empty)) in ; -;sum-leaves t1 ~~> 1 -;sum-leaves t2 ~~> 2 -;sum-leaves t3 ~~> 3 -;sum-leaves t12 ~~> 3 -;sum-leaves t23 ~~> 5 -;sum-leaves ta ~~> 6 -;sum-leaves tb ~~> 6 +;sum-leaves t1 ; ~~> 1 +;sum-leaves t2 ; ~~> 2 +;sum-leaves t3 ; ~~> 3 +;sum-leaves t12 ; ~~> 3 +;sum-leaves t23 ; ~~> 5 +;sum-leaves ta ; ~~> 6 +;sum-leaves tb ; ~~> 6 ; length (tail mylist) -- 2.11.0