X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?a=blobdiff_plain;ds=inline;f=assignment3.mdwn;h=e91eeee58765ddf36d5f331b42de2d8e6ee84c5e;hb=d778315b84acb4ac6033a91623d904eb6336243d;hp=c4ea316287a62ceb9de2af825b31d6a53877470f;hpb=e4ea387ecb1a2dcb069060afccbe8ac1e70f7061;p=lambda.git diff --git a/assignment3.mdwn b/assignment3.mdwn index c4ea3162..e91eeee5 100644 --- a/assignment3.mdwn +++ b/assignment3.mdwn @@ -111,23 +111,23 @@ trees. Expected behavior:
-let t1 = (make-list 1 nil) in -let t2 = (make-list 2 nil) in -let t3 = (make-list 3 nil) in -let t12 = (make-list t1 (make-list t2 nil)) in -let t23 = (make-list t2 (make-list t3 nil)) in -let ta = (make-list t1 t23) in -let tb = (make-list t12 t3) in -let tc = (make-list t1 (make-list t23 nil)) in - -count-leaves t1 ~~> 1 -count-leaves t2 ~~> 2 -count-leaves t3 ~~> 3 -count-leaves t12 ~~> 3 -count-leaves t23 ~~> 5 -count-leaves ta ~~> 6 -count-leaves tb ~~> 6 -count-leaves tc ~~> 6 +let t1 = (makeList 1 nil) in +let t2 = (makeList 2 nil) in +let t3 = (makeList 3 nil) in +let t12 = (makeList t1 (makeList t2 nil)) in +let t23 = (makeList t2 (makeList t3 nil)) in +let ta = (makeList t1 t23) in +let tb = (makeList t12 t3) in +let tc = (makeList t1 (makeList t23 nil)) 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 tc ~~> 62. Write a function that counts the number of leaves.