From 3f6acf2fe4a06afd2da601e360c86c906e1b7182 Mon Sep 17 00:00:00 2001 From: Chris Barker Date: Sat, 27 Nov 2010 22:35:55 -0500 Subject: [PATCH] edits --- zipper-lists-continuations.mdwn | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/zipper-lists-continuations.mdwn b/zipper-lists-continuations.mdwn index 4aef298a..8858a893 100644 --- a/zipper-lists-continuations.mdwn +++ b/zipper-lists-continuations.mdwn @@ -561,13 +561,13 @@ _|__ _|__ Notice that we've counted each internal node twice---it's a good -excerice to adjust the code to count each node once. +exercise to adjust the code to count each node once. One more revealing example before getting down to business: replacing `state` everywhere in `treemonadizer` with `list` gives us
-# treemonadizer (fun x -> [[x; square x]]) t1;;
+# treemonadizer (fun x -> [ [x; square x] ]) t1;;
 - : int list tree list =
 [Node
   (Node (Leaf [2; 4], Leaf [3; 9]),
-- 
2.11.0