X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Frosetta-code%2Fone-d-cellular%2Fone-d-cellular.factor;h=bbdef327e1b06ca3df84b87f519ac369464f8e25;hp=8476073daa5d56407e1e16a3ed12c2946adcb85c;hb=0d57b1b43bcfbd6498745ec78be836c45233c6a0;hpb=6d4293b5822d769619f66e46e64b704ddfe41b43 diff --git a/extra/rosetta-code/one-d-cellular/one-d-cellular.factor b/extra/rosetta-code/one-d-cellular/one-d-cellular.factor index 8476073daa..bbdef327e1 100644 --- a/extra/rosetta-code/one-d-cellular/one-d-cellular.factor +++ b/extra/rosetta-code/one-d-cellular/one-d-cellular.factor @@ -32,7 +32,7 @@ IN: rosetta-code.one-d-cellular :: neighbors ( index world -- # ) index [ 1 - ] [ 1 + ] bi [ world ?nth ] bi@ bool-sum ; -: count-neighbors ( world -- neighbours ) +: count-neighbors ( world -- neighbors ) [ length ] keep [ neighbors ] curry map ; : life-law ( alive? neighbors -- alive? )