From: Jim Pryor Date: Sun, 28 Nov 2010 01:45:21 +0000 (-0500) Subject: ass8 blanks X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=commitdiff_plain;h=07e66be3b3fa7b8b843894bdcbcb181bd1757349 ass8 blanks Signed-off-by: Jim Pryor --- diff --git a/assignment8.mdwn b/assignment8.mdwn index e6c6085d..814f8d56 100644 --- a/assignment8.mdwn +++ b/assignment8.mdwn @@ -9,14 +9,16 @@ let rec move_botleft (z : 'a zipper) : 'a zipper = (* returns z if the targetted node in z has no children *) (* else returns move_botleft (zipper which results from moving down and left in z) *) - YOU SUPPLY THE DEFINITION + _____ + (* YOU SUPPLY THE DEFINITION *) let rec move_right_or_up (z : 'a zipper) : 'a zipper option = (* if it's possible to move right in z, returns Some (the result of doing so) *) (* else if it's not possible to move any further up in z, returns None *) (* else returns move_right_or_up (result of moving up in z) *) - YOU SUPPLY THE DEFINITION + _____ + (* YOU SUPPLY THE DEFINITION *) let new_zipper (t : 'a tree) : 'a zipper =