funkless_eck , 6 months ago

On the other hand, which do you prefer, this:

<span style="color:#323232;"> life ← {⊃1 ⍵ ∨.∧ 3 4 = +/ +⌿ ¯1 0 1 ∘.⊖ ¯1 0 1 ⌽¨ ⊂⍵}
</span>

or this:

<span style="color:#323232;"> MODE UNIVERSE = [upb OF class universe, upb OF class universe]BOOL; STRUCT( INT upb, BOOL lifeless, alive, PROC(REF UNIVERSE)VOID init, PROC(REF UNIVERSE)STRING repr, PROC(REF UNIVERSE, INT, INT)VOID insert glider, PROC(REF UNIVERSE)VOID next ) class universe = ( # upb = # 50, # lifeless = # FALSE, # alive = # TRUE, # PROC init = # (REF UNIVERSE self)VOID: FOR row index FROM LWB self TO UPB self DO init row(self[row index, ]) OD, # PROC repr = # (REF UNIVERSE self)STRING:( FORMAT cell = $b("[]", " ")$, horizon = $"+"n(UPB self)("--")"+"l$; FILE outf; STRING out; associate(outf, out); putf(outf, (horizon, $"|"n(UPB self)(f(cell))"|"l$, self, horizon)); close(outf); out ), # PROC insert glider = # (REF UNIVERSE self, INT row, col)VOID:( self[row-2, col+1]&nbsp;:= TRUE; self[row-1, col+2]&nbsp;:= TRUE; self[row, col:col+2]&nbsp;:= (TRUE, TRUE, TRUE ) ), # PROC next = # (REF UNIVERSE self)VOID:( [0:2, LWB self-1:UPB self+1]BOOL window;  # init row(window[LWB window, ]); window[LWB self, 2 LWB window]&nbsp;:= window[LWB self, 2 UPB window]&nbsp;:= window[UPB window, 2 LWB window]&nbsp;:= window[UPB window, 2 UPB window]&nbsp;:= lifeless OF class universe;  window[LWB self, LWB self:UPB self]&nbsp;:= self[LWB self, ]; FOR row FROM LWB self TO UPB self DO REF []BOOL next row = window[(row+1) MOD 3, ]; IF row NE UPB self THEN next row[LWB self:UPB self]&nbsp;:= self[row+1, ] ELSE init row(next row) FI; FOR col FROM LWB self TO UPB self DO INT live&nbsp;:= 0;  FOR row FROM row-1 TO row+1 DO REF[]BOOL window row = window[row MOD 3, ]; FOR col FROM col-1 TO col+1 DO IF window row[col] THEN live +:= 1 FI OD OD; self[row, col]&nbsp;:= IF window[row MOD 3, col] THEN live -:=  live = 3 FI OD OD ) );
</span>