From 1361b30d16ae9c8b11b7f5132d2277d927e89b61 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Mon, 3 Sep 2012 17:31:08 -0400 Subject: [PATCH] Right... THAT's how you pass a curried infix. --- forest-fire/001/src/forest_fire.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/forest-fire/001/src/forest_fire.ml b/forest-fire/001/src/forest_fire.ml index 3cee973..bd2ed19 100644 --- a/forest-fire/001/src/forest_fire.ml +++ b/forest-fire/001/src/forest_fire.ml @@ -168,7 +168,7 @@ let next_generation forest (width, height) prob = let neighbors = List.map (fun (ox, oy) -> ox + ix, oy + iy) offsets in let neighbors = List.filter (is_onside width height) neighbors in let neighbor_states = List.map (fun (x, y) -> forest.(y).(x)) neighbors in - let burning_states = List.filter (fun s -> s == Burning) neighbor_states in + let burning_states = List.filter ((==) Burning) neighbor_states in new_state (state, (List.length burning_states), prob) ) row -- 2.20.1