One-dimensional cellular automata: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
(GP) |
||
Line 1,466: | Line 1,466: | ||
Gen. 9: __##________________ |
Gen. 9: __##________________ |
||
</pre> |
</pre> |
||
=={{header|PARI/GP}}== |
|||
This version defines the fixed cells to the left and right as dead; of course other versions are possible. This function generates one generation from a previous one, passed as a 0-1 vector. |
|||
<lang parigp>step(v)=my(u=vector(#v),k);u[1]=v[1]&v[2];u[#u]=v[#v]&v[#v-1];for(i=2,#v-1,k=v[i-1]+v[i+1];u[i]=if(v[i],k==1,k==2));u;</lang> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||