From 07e66be3b3fa7b8b843894bdcbcb181bd1757349 Mon Sep 17 00:00:00 2001 From: Jim Pryor Date: Sat, 27 Nov 2010 20:45:21 -0500 Subject: [PATCH] ass8 blanks Signed-off-by: Jim Pryor --- assignment8.mdwn | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 = -- 2.11.0