One-dimensional cellular automata: Difference between revisions
Content added Content deleted
(Added Wren) |
(→{{header|Fantom}}: add FOCAL version) |
||
Line 1,999: | Line 1,999: | ||
} |
} |
||
</lang> |
</lang> |
||
=={{header|FOCAL}}== |
|||
<lang FOCAL>1.1 S OLD(2)=1; S OLD(3)=1; S OLD(4)=1; S OLD(6)=1; S OLD(7)=1 |
|||
1.2 S OLD(9)=1; S OLD(11)=1; S OLD(13)=1; S OLD(15)=1; S OLD(18)=1 |
|||
1.3 F N=1,10; D 2 |
|||
1.4 Q |
|||
2.1 F X=1,20; D 3 |
|||
2.2 F X=1,20; D 6 |
|||
2.3 F X=1,20; S OLD(X)=NEW(X) |
|||
2.4 T ! |
|||
3.1 I (OLD(X-1)+OLD(X)+OLD(X+1)-2)4.1,5.1,4.1 |
|||
4.1 S NEW(X)=0 |
|||
5.1 S NEW(X)=1 |
|||
6.1 I (-OLD(X))7.1,8.1,8.1 |
|||
7.1 T "#" |
|||
8.1 T "."</lang> |
|||
{{output}} |
|||
<pre> |
|||
.###.##.#.#.#.#..#.. |
|||
.#.#####.#.#.#...... |
|||
..##...##.#.#....... |
|||
..##...###.#........ |
|||
..##...#.##......... |
|||
..##....###......... |
|||
..##....#.#......... |
|||
..##.....#.......... |
|||
..##................ |
|||
..##................ |
|||
</pre> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |