From 46aacfbc9482c1b72d6c69d6b6e323a2ea33719f Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Fri, 4 Oct 2013 22:43:24 -0400 Subject: [PATCH] More concise composition. --- polymorphism/001/src/polymorphism.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/polymorphism/001/src/polymorphism.ml b/polymorphism/001/src/polymorphism.ml index bbfc59a..c2f0c3e 100644 --- a/polymorphism/001/src/polymorphism.ml +++ b/polymorphism/001/src/polymorphism.ml @@ -143,7 +143,7 @@ struct let neighborhood t point = List.map Direction.all ~f:Direction.to_offset - |> List.map ~f:(fun offset_point -> Point.(point + offset_point)) + |> List.map ~f:(Point.(+) point) |> List.filter ~f:(is_within_bounds t) let get_neighbors t point = -- 2.20.1