]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/rosetta-code/one-d-cellular/one-d-cellular.factor
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...
[factor.git] / extra / rosetta-code / one-d-cellular / one-d-cellular.factor
index 405b1924bd0913f63d571813896865acc9f53f16..ed61fb912c28330cd67621177dbd8ef1e9777aa4 100644 (file)
@@ -33,7 +33,7 @@ IN: rosetta-code.one-d-cellular
     index [ 1 - ] [ 1 + ] bi [ world ?nth ] bi@ bool-sum ;
 
 : count-neighbours ( world -- neighbours )
-    [ length iota ] keep [ neighbours ] curry map ;
+    [ length <iota> ] keep [ neighbours ] curry map ;
 
 : life-law ( alive? neighbours -- alive? )
     swap [ 1 = ] [ 2 = ] if ;