Anonymous user
Wireworld: Difference between revisions
m
→{{header|REXX}}: added/changed comments, statements, and whitespace, used a template for the output section.
m (→{{header|REXX}}: added/changed comments, statements, and whitespace, used a template for the output section.) |
|||
Line 4,838:
=={{header|REXX}}==
<lang rexx>/*REXX program displays a wire world Cartesian grid of four─state cells. */
signal on halt /*handle any cell growth interruptus. */▼
parse arg iFID . '(' generations rows cols bare head tail wire clearScreen reps
if iFID=='' then iFID= "WIREWORLD.TXT" /*should default input file be used? */
Line 4,845 ⟶ 4,844:
rows = p(rows 3 ) /*the number of cell rows. */
cols = p(cols 3 ) /* " " " " columns. */
bare = pickChar(bare bla
clearScreen = p(clearScreen 0 ) /*1 means to clear the screen. */
head = pickChar(head 'H' ) /*pick the character for the head. */
Line 4,852 ⟶ 4,851:
reps = p(reps 2 ) /*stop program if there are 2 repeats.*/
fents=max(cols, linesize() - 1) /*the fence width used after displaying*/
#reps= 0; $.= bare; gens=
/* [↓] read the input file. */
L= length(q); cols= max(cols, L)
end /*
end /*r*/
rows= r-1; life= 0; call showCells /*display initial state of the cells. */
/*watch cells evolve, 4 possible states*/
do life=1 for gens; @.=
do r=1 for rows /*process each of the rows. */
do c=1 for cols; ?= $.r.c; ??=
select /*determine the type of cell. */
when ?==head then ??= tail
when ?==tail then ??= wire
when ?==wire then do;
otherwise nop
end /*select*/
end /*c*/
end /*r*/
Line 4,880 ⟶ 4,879:
end /*life*/
/*stop watching the universe (or life).*/
halt: if life-1\==gens then say 'The
done: exit /*stick a fork in it, we are all done.*/
/*───────────────────────────────────────────────────────────────────────────────────────────────────────────────────*/
$: parse arg _row,_col; return $._row._col==head
assign$: do r=1 for rows; do c=1 for cols; $.r.c= @.r.c; end; end;
hood: return $(r-1,c-1) + $(r-1,c) + $(r-1,c+1) + $(r,c-1) + $(r,c+1) + $(r+1,c-1) + $(r+1,c) + $(r+1,c+1)
p: return word(arg(1), 1) /*pick the 1st word in list.*/
pickChar: parse arg _
showRows: _=;
/*──────────────────────────────────────────────────────────────────────────────────────*/
showCells: if clearScreen then 'CLS' /*◄──change
call showRows /*show rows in proper order.*/
say right( copies('═', fents)life, fents) /*display a
if _=='' then signal done /*No life? Then stop run. */
if !._ then #reps= #reps +
!._= 1
if reps\==0 & #reps<=reps then return /*so far, so good, no reps.
say '"Wireworld" repeated itself' reps "times, the program is stopping."
signal done /*jump to this pgm's "exit".*/</lang>
Programming note: the '''hood''' subroutine (above) could be optimized for speed by setting some short-circuit values <code>('''r-1''', '''c-1''', '''r+1''', and '''c+1''') </code> and using those values in the subsequent expressions.
The '''
{{out|output|text= when using the default input file:}}
(Cycle '''0''' (zero) is essentially a copy of the input file.)
<pre style="height:60ex">
Line 4,990 ⟶ 4,992:
t.tH ......
═══════════════════════════════════════════════════════════════════════════════════════13
"Wireworld" repeated itself 2 times, the program is stopping.
</pre>
| |||