X-Git-Url: https://git.xandkar.net/?p=cellular-automata.git;a=blobdiff_plain;f=polymorphism%2F001%2Fsrc%2Fpolymorphism.ml;fp=polymorphism%2F001%2Fsrc%2Fpolymorphism.ml;h=c2f0c3e5caff035ad83cfa1c95ba8e997cffd212;hp=bbfc59a51701c98770f6409a99b1b89e13626d53;hb=46aacfbc9482c1b72d6c69d6b6e323a2ea33719f;hpb=0ebc93eedddaed372fcba5e137a5c651cc3ed7a8

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 =