X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=polymorphic-life%2F001%2Fsrc%2Fpolymorphic_life.ml;h=544136cf1b13c43e3742624e07c5ecda28aa42aa;hb=949d1c88ee5df62985ffd56e851544e4713334eb;hp=c28852a70a937b8b9bbb02c3ee7584b8981c3d19;hpb=65dbef41f5989d9d3e8bd1f9067a6235e8062070;p=cellular-automata.git

diff --git a/polymorphic-life/001/src/polymorphic_life.ml b/polymorphic-life/001/src/polymorphic_life.ml
index c28852a..544136c 100644
--- a/polymorphic-life/001/src/polymorphic_life.ml
+++ b/polymorphic-life/001/src/polymorphic_life.ml
@@ -8,8 +8,6 @@ module type MATRIX = sig
 
   val get : 'a t -> row:int -> col:int -> 'a
 
-  val set : 'a t -> row:int -> col:int -> data:'a -> unit
-
   val map : 'a t -> f:('a -> 'b) -> 'b t
 
   val mapi : 'a t -> f:(row:int -> col:int -> data:'a -> 'b) -> 'b t
@@ -55,9 +53,6 @@ module Matrix : MATRIX = struct
 
   let get t ~row ~col =
     t.(row).(col)
-
-  let set t ~row ~col ~data =
-    t.(row).(col) <- data
 end