Optimize a Conway's Game of Life Program http://tibasicdev.wikidot.com/forum/t-13375088/optimize-a-conway-s-game-of-life-program Posts in the discussion thread "Optimize a Conway's Game of Life Program" - Yes, I know this website has an official version of Conway's Game of Life, but I want to use my own. Sat, 14 Mar 2026 19:44:18 +0000 http://tibasicdev.wikidot.com/forum/t-13375088#post-4809031 Re: Optimize a Conway's Game of Life Program http://tibasicdev.wikidot.com/forum/t-13375088/optimize-a-conway-s-game-of-life-program#post-4809031 Sun, 01 Nov 2020 13:37:12 +0000 6979576
+ Show Individual Optimizations

in short, replace 
ClrHome {11,28}→dim([A]) For(A,2,10) For (B,2,27) max(0,randInt(⁻3,1))→[A](A,B) Output(A,B-1),"O") End:End 0→G Output(1,1,"GENERATION") Output(1,16,"MEMBERS=") Repeat getKey or M=0 G+1→G For(A,2,10) For(B,1,26) Output(A,B,sub(" O",[A](A,B+1)+1,1)) End:End Output(1,12,G) Output(1,24," ") //four spaces [A]→[B] 0→M For(A,2,10) For(B,2,27) Output(A,B-1,"θ") If [A](A,B)=1:M+1→M Output(1,24,M) 0→N For(C,-1,1) For(D,-1,1) If [A](A+C,B+D) and 2≠sum(not({C,D}≠0)):N+1→N End:End If N=3 and [A](A,B)=0 1→[B](A,B) If [A](A,B)=1 and N≠2 and N≠3 0→[B](A,B) Output(A,B-1,sub(" O",[A](A,B)+1,1)) End:End [B]→[A] End

with

ClrHome {11,28}→dim([A] For(A,2,10 For (B,2,27 max(0,randInt(⁻3,1→[A](A,B Output(A,B-1),"O End:End 0→G Output(1,1,"GENERATION Output(1,16,"MEMBERS= Repeat getKey or M=0 G+1→G For(A,2,10 For(B,1,26 Output(A,B,sub(" O",[A](A,B+1)+1,1 End:End Output(1,12,G Output(1,24," " //four spaces [A]→[B] 0→M For(A,2,10 For(B,2,27 Output(A,B-1,"θ If 1=[A](A,B:M+1→M Output(1,24,M 0→N For(C,-1,1 For(D,-1,1 If [A](A+C,B+D) and 2≠sum(not({C,D}≠0:N+1→N End:End If N=3 and 0=[A](A,B 1→[B](A,B) If N≠2 and N≠3 and 1=[A](A,B 0→[B](A,B Output(A,B-1,sub(" O",[A](A,B)+1,1 End:End [B]→[A] End

still, good program nonetheless :)

—Posts Merged by Moderator

]]> http://tibasicdev.wikidot.com/forum/t-13375088#post-4663295 Optimize a Conway's Game of Life Program http://tibasicdev.wikidot.com/forum/t-13375088/optimize-a-conway-s-game-of-life-program#post-4663295 Mon, 25 May 2020 23:39:01 +0000 OneLetterShor 4737965 
ClrHome {11,28}→dim([A]) For(A,2,10) For (B,2,27) max(0,randInt(⁻3,1))→[A](A,B) Output(A,B-1),"O") End:End 0→G Output(1,1,"GENERATION") Output(1,16,"MEMBERS=") Repeat getKey or M=0 G+1→G For(A,2,10) For(B,1,26) Output(A,B,sub(" O",[A](A,B+1)+1,1)) End:End Output(1,12,G) Output(1,24," ") //four spaces [A]→[B] 0→M For(A,2,10) For(B,2,27) Output(A,B-1,"θ") If [A](A,B)=1:M+1→M Output(1,24,M) 0→N For(C,-1,1) For(D,-1,1) If [A](A+C,B+D) and 2≠sum(not({C,D}≠0)):N+1→N End:End If N=3 and [A](A,B)=0 1→[B](A,B) If [A](A,B)=1 and N≠2 and N≠3 0→[B](A,B) Output(A,B-1,sub(" O",[A](A,B)+1,1)) End:End [B]→[A] End
]]>