whoops, tree_best_sofar (direct) had a bug

[lambda.git] / exercises / assignment5_answers.mdwn

diff --git a/exercises/assignment5_answers.mdwn b/exercises/assignment5_answers.mdwn
index 0cdfa61..1780b0a 100644 (file)
--- a/exercises/assignment5_answers.mdwn
+++ b/exercises/assignment5_answers.mdwn
@@ -263,7 +263,7 @@ Choose one of these languages and write the following functions.
 
         let rec tree_best_sofar (t : 'a color_tree) (lead : maybe_leader) : maybe_leader * int =
           match t with
-          | Leaf a -> (None, a)
+          | Leaf a -> (lead, a)
           | Branch(l, col, r) ->
               let (lead',left_score) = tree_best_sofar l lead in
               let (lead'',right_score) = tree_best_sofar r lead' in