Optimize Me (new posts)

binary to decimal: Re: binary to decimal code optimization

Sun, 19 Dec 2021 03:37:27 +0000

by the way, that funky superscript character next to 4 is -1. its really 4^-1 using the inverse command. its .25, but smaller, since it uses less tokens.

binary to decimal: binary to decimal code optimization

Sun, 19 Dec 2021 03:34:43 +0000

im not trying for speed, im trying for size. right now, on my ti83+, this program takes up 37 ram (with a one letter program name, if that changes anything). is there any further optimization possible at this point?

(note: the code takes a binary number in a list (that list is Ans) and outputs the decimal equivalent. for example, 101₂ is {1,0,1}.)

4ֿ¹sum(seq(Ans(1+dim(Ans)-A)2(2^A),A,1,dim(Ans

help me optimize my first program: Re: help me optimize my first program

Wed, 04 Nov 2020 01:42:25 +0000

I would like to mention that there are several memory leaks that I see, especially when there is:

If E<5 Then If E≤0 Then Goto WN End End

If H≤0 Then Goto D End

So even if the code itself is optimized, the program will still run inefficiently. To fully optimize it, the memory leaks would need to be removed

Quadratic formula: Re: Quadratic formula

Wed, 04 Nov 2020 01:39:27 +0000

Even ignoring the fact that this is an old post, as this is a very well known formula, it can be optimized even further down to 29 bytes:

Prompt A,B,C √(B²-4AC:⁻B+{Ans,⁻Ans Ans/(2A

I'm bad at optimization. Kinematics anyone?: Re: I'm bad at optimization. Kinematics anyone?

Wed, 04 Nov 2020 01:21:12 +0000

C28, This post is 5 years old, and I really am not looking for an answer any more. I'm glad you're active and finding value from TI|BD, and I'd like to say welcome to the community. However, I highly suggest you read the Rules and Code of Conduct as I see you have posted on multiple old threads in the past few days.

I'm bad at optimization. Kinematics anyone?: Re: I'm bad at optimization. Kinematics anyone?

Tue, 03 Nov 2020 23:42:19 +0000

this can be optimized to

ClrHome Lbl theta Menu("Menu","Acceleration",1,"Initial V",2,"Final V",3,"Displacement",4,"Time",5,"Variables",VZ,"Exit",Q Lbl Q ClrHome Float Asm(prgmZDONE Return Lbl VZ ClrHome Output(1,1,"Variable Index Output(2,1,"V = F. Velocity Output(3,1,"U = I. Velocity Output(4,1,"T = Time Output(5,1,"A = Acceleration Output(6,1,"D = Displacement Pause Goto theta Lbl 1 ClrHome Menu("GIVEN:","V,U,T",Z,"D,U,T",B,"V,U,D",C,"Exit",Q Lbl Z Disp "V=U+AT Disp "(V-U)/T Prompt V,U,T (V-U)/T->A Goto A Lbl B Disp "D=UT+.5AT^^2 Disp "A=2(D-UT)/T^^2 Prompt D,U,T 2(D-UT)/T^^2->A Goto A Lbl C Disp "V^^2=U^^2+2AD Disp "(V^^2-U^^2)/2D Prompt V,U,D (V^^2-U^^2)/(2D)->A Lbl A Disp A Pause Goto theta Lbl 2 ClrHome Menu("GIVEN:","V,A,T",D,"D,A,T",E,"V,A,D",F,"D,T,V",G,"Exit",Q Lbl D Disp "V-AT Prompt V,A,T V-AT->U Goto U Lbl E Disp "D-(.5AT^^2)/T Prompt D,A,T (D-(.5)(A)(T^^2))/T->U Goto U Lbl F Disp "sqrt(V^^2-2AD) Prompt V,A,D sqrt(V^^2-2AD->U Goto U Lbl G Disp "(2D/T)-V Prompt D,T,V (2D/T)-V->U Lbl U Disp U Pause Goto theta Lbl 3 ClrHome Menu("GIVEN:","U,A,T",H,"U,A,D",I,"D,T,U",J,"Exit",Q Lbl H Disp "U+AT Prompt U,A,T U+AT->V Goto V Lbl I Disp "sqrt((U^^2+2AD) Prompt U,A,D sqrt(U^^2-2AD)->V Goto V Lbl J Disp "(2D/T)-U Prompt D,T,U (2D/T)-U->V Lbl V Disp V Pause Goto theta Lbl 4 ClrHome Menu("GIVEN:","U,T,A",K,"U,V,A",L,"V,U,T",M,"Exit",Q Lbl K Disp "D=UT+.5AT^^2 Prompt U,T,A UT+.5A(T^^2->D Goto X Lbl L Disp "V^^2=U^^2+2AD Disp "(V^^2-U^^2)/2A Prompt U,V,A (V^^2-U^^2)/2A->D Goto X Lbl M Disp "D=.5(V+U)T Prompt V,U,T .5T(V+U->D Lbl X Disp D Pause Goto theta Lbl 5 ClrHome Menu("GIVEN:","A,V,U",N,"A,D,U",O,"D,U,V",P,"Exit",Q Lbl N Disp "V=U+AT Disp "(V-U)/A Prompt A,V,U (V-U)/A->T Disp T Pause Goto theta Lbl O Disp "D=UT+.5AT^^2 Prompt A,D,U If D<0 Then (D*~1->D End If U!=0:Then Goto 8 End If U=0:Then Goto 6 End Lbl 8 A/2->A sqrt(U^^2-4(A)(D->Z (~U+Z)/2A->X (~U-Z)/2A->Y Disp X,Y Pause Goto theta Lbl P Disp "2D/(V+U) Prompt D,U,V 2D/(V+U->T Disp T Pause Goto theta Lbl 6 sqrt(2D/A->T Disp T Pause Goto theta Lbl Q ClrHome Return

Quadratic formula: Re: Quadratic formula

Tue, 03 Nov 2020 23:37:43 +0000

no, it can be further optimized to

Prompt A,B,C √(B²-4AC→D:Ans-B→C:-B-D→D:C/2A→B:D/2A Disp B,Ans

help me optimize my first program: Re: help me optimize my first program

Tue, 03 Nov 2020 23:33:55 +0000

after looking at it, i managed to get

ClrDraw ClrHome Clear Entries 0→P 14→X 5→Y 0→L "θ→Str1 "#→Str2 Goto 2 Lbl D Output(5,13,"Game Over Wait 2 {15,3,3→SAVE Stop Lbl 2 Menu("Game","Continue",3,"New Game",6,"Quit",4 Lbl O4 Menu("Style?","#",O5,"X",O6 Lbl O5 "#→Str2 Goto 6 Lbl O6 "X→Str2 Goto 6 Lbl C9 randInt(1,5→Z randInt(0,4→W randInt(0,3→S Z+H→H W+A→A S+D→D Output(4,12,Z Output(5,12,W Output(6,12,S Output(4,11,"+ Output(5,11,"+ Output(6,11,"+ Output(4,13," Health Output(5,13," Attack Output(6,13," Defence 0→[A](Y,X Pause For(R,4,6 For(Q,11,20 If 1=[A](R,Q Then Output(R,Q,Str2 End If 0=[A](R,Q Then Output(R,Q," " End If 2=[A](R,Q) Then Output(R,Q,"E End If 3=[A](R,Q Then Output(R,Q,"C End End End Goto 5 Lbl 7 For(X,1,7 // X can be replaced with any other variable Output(X,1," " End For(Q,1,26 Output(8,Q,"# End For(Q,1,26 Output(9,Q,"# End Output(10,14,"# Output(7,21,"|| Output(6,19,"+/( Output(6,22,")\ Output(5,21,"O Output(5,19,"| Output(7,2,"|| Output(6,1,"/( Output(6,3,")\+ Output(5,3,"O Output(5,5,"| round(H,0→H randInt(H-5,H+15→E E→G randInt(A-2,A+3→V H→B randInt(D-2,D+3→I If I>A A-3→I Goto C1 Lbl C1 Output(4,2,E If E<5 Then If E≤0 Then Goto WN End End Output(4,21," " Output(4,21,H Output(4,2," " Output(4,2,E Wait 0.5 Output(3,20," " Output(3,1," " If H≤0 Then Goto D End Menu("What Will You Do","Attack",A1,"Heal",H Lbl WN 0→[A](Y,X H+5→H If M=11 Goto M1 If M=12 Goto M2 If M=13 Goto M3 If M=14 Goto M4 If M=15 Goto M5 Goto 82 Lbl H H+2+1.5D→H If H>1.5B H-5→H If H>2B B→H round(H,1→H Goto E1 Lbl A1 E-1.2A→E Output(3,1,"- Output(3,3,1.2A Goto E1 Lbl E1 randInt(1,2→J If J=1 Goto E2 If J=2 Then E+I→E Goto C1 End Lbl E2 randInt(1,3→J If J=1 Then Output(3,20,"miss Goto C1 End If J>1 H-0.8V→H Output(3,20,"- Output(3,21,0.8V Goto C1 End Lbl 6 15→H 3→A 3→D Goto 9 Lbl 1 Menu("Pause","Continue",5,"Inventory",I,"Save & Quit",4 Lbl I For(R,1,10 For(Q,1,26 Output(R,Q," " End End Disp "Health Disp H Disp "Attack Disp A Disp "Defence Disp D Pause Goto 82 Lbl 4 {H,A,D→SAVE ClrHome ClrDraw Stop Lbl 3 ⌊SAVE(1→H ⌊SAVE(2→A ⌊SAVE(3→D Goto 9 Lbl 9 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP201 {1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,1,0,1,0,1,1,1,1,1,1→⌊MP202 {1,1,1,1,1,1,0,1,0,1,0,0,0,0,0,0,0,1,0,1,0,1,1,1,1,1→⌊MP203 {1,1,1,1,1,1,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,1,1,1→⌊MP204 {0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0→⌊MP205 {1,1,1,1,1,1,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,1,1,1→⌊MP206 {1,1,1,1,1,1,0,1,0,1,0,0,0,0,0,0,0,1,0,1,0,1,1,1,1,1→⌊MP207 {1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,1,0,1,0,1,1,1,1,1,1→⌊MP208 {1,1,1,1,1,1,1,1,0,1,0,0,1,0,1,0,0,1,0,1,1,1,1,1,1,1→⌊MP209 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP210 Listmatr(⌊MP201,⌊MP202,⌊MP203,⌊MP204,⌊MP205,⌊MP206,⌊MP207,⌊MP208,⌊MP209,⌊MP210,[A] [A]→[A] Output(1,1,"############# ############ Output(2,1,"####### # ### ### # ###### Output(3,1,"###### # # # # ##### Output(4,1,"####### # # # # ###### Output(5,1," # # " Output(6,1,"####### # # # # ###### Output(7,1,"###### # # # # ##### Output(8,1,"####### # ### ### # ###### Output(9,1,"######## # # # # ####### Output(10,1,"############# ############ Goto 5 Lbl X {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP102 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP103 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP104 {0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0→⌊MP105 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP106 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP107 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP108 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto 8 Lbl 10 randInt(11,15→M If M=K Goto 10 M→K DelVar [A] {10,26→dim([A] If M=11 Goto 11 If M=12 Goto 12 If M=13 Goto 13 If M=14 Goto 14 If M=15 Goto 15 If M=16 Goto 16 Lbl 11 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,1,0,0,0,1,0,0,1,1,0,1,1,0,0,0,1,3,1,0,0,0,1,1,3,1→⌊MP102 {1,3,0,1,0,0,2,1,0,0,0,0,0,1,1,0,0,2,1,0,1,0,1,0,0,1→⌊MP103 {1,1,1,1,1,1,0,1,0,1,1,0,1,0,0,0,1,1,0,0,1,0,1,2,1,1→⌊MP104 {0,0,0,0,0,0,0,1,0,0,1,0,0,0,1,0,2,0,0,1,1,0,0,0,0,0→⌊MP105 {1,1,1,0,1,1,0,0,0,1,1,1,0,1,1,1,1,1,1,0,1,1,1,0,1,1→⌊MP106 {1,3,1,0,1,0,1,1,0,0,1,0,2,0,1,0,0,1,0,0,0,0,1,0,0,1→⌊MP107 {1,0,0,0,1,0,0,2,1,0,1,0,1,0,1,1,0,2,0,1,1,0,0,1,0,1→⌊MP108 {1,1,0,1,3,0,1,0,0,0,0,1,1,0,1,3,0,1,0,0,3,1,0,0,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M1 Lbl M1 Output(1,1,"############# ############ Output(2,1,"## # ## ## #C# ##C# Output(3,1,"#C # E# ## E# # # # Output(4,1,"###### # ## # ## # #E## Output(5,1," # # # E ## " Output(6,1,"### ## ### ###### ### ## Output(7,1,"#C# # ## # E # # # # Output(8,1,"# # E# # # ## E ## # # Output(9,1,"## #C # ## #C # C# # Output(10,1,"############# ############ Goto 5 Lbl 12 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,0,0,0,1,3,1,3,1,0,2,0,1,0,1,3,1,0,0,1,0,1,1,0,3,1→⌊MP102 {1,3,1,0,2,0,1,0,1,3,1,0,0,0,1,0,2,0,1,0,0,0,0,0,1,1→⌊MP103 {1,1,0,0,1,1,1,2,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,1→⌊MP104 {0,0,1,2,1,0,0,1,0,1,0,1,0,0,0,1,0,0,1,1,1,0,0,1,0,0→⌊MP105 {1,0,0,0,1,1,0,0,0,1,0,0,0,1,0,1,1,0,1,3,2,1,0,0,1,1→⌊MP106 {1,1,1,0,0,1,0,1,1,0,0,1,1,0,0,0,0,0,0,1,0,1,1,0,1,1→⌊MP107 {1,0,0,0,1,0,0,0,1,0,1,3,0,1,1,0,1,1,1,1,0,0,0,0,0,1→⌊MP108 {1,3,1,0,2,0,1,0,0,0,1,1,0,0,0,0,0,1,3,0,2,1,0,1,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M2 Lbl M2 Output(1,1,"############# ############ Output(2,1,"# #C#C# E # #C# # ## C# Output(3,1,"#C# E # #C# # E # ## Output(4,1,"## ###E # ##### # # # Output(5,1," #E# # # # # ### # " Output(6,1,"# ## # # ## #CE# ## Output(7,1,"### # ## ## # ## ## Output(8,1,"# # # #C ## #### # Output(9,1,"#C# E # ## #C E# # # Output(10,1,"############# ############ Goto 5 Lbl 13 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,3,0,1,0,0,1,3,1,1,0,3,1,0,1,1,3,1,0,0,0,3,1,2,0,1→⌊MP102 {1,1,2,1,0,1,1,0,0,2,0,1,0,0,0,0,0,2,0,1,0,1,1,0,1,1→⌊MP103 {1,0,0,0,0,0,0,1,1,1,0,0,1,1,0,1,0,1,1,0,0,1,0,0,0,1→⌊MP104 {0,0,1,0,1,0,1,0,1,0,1,0,0,0,2,1,0,1,0,1,0,0,0,1,0,0→⌊MP105 {1,0,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,1,0,1,1→⌊MP106 {1,1,1,1,0,0,0,1,0,1,1,0,0,1,1,0,0,0,1,0,0,0,2,0,1,1→⌊MP107 {1,3,0,1,0,1,1,1,0,0,0,0,1,1,0,2,1,0,1,0,1,1,0,1,3,1→⌊MP108 {1,1,0,0,2,0,0,3,1,0,1,0,0,0,0,1,0,0,1,0,3,1,0,0,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M3 Lbl M3 Output(1,1,"############# ############ Output(2,1,"#C # #C## C# ##C# C#E # Output(3,1,"##E# ## E # # # ## ## Output(4,1,"# ### ## # ## # # Output(5,1," # # # # # E# # # # " Output(6,1,"# # # ## # # # # ## Output(7,1,"#### # ## ## # E ## Output(8,1,"#C # ### ## E# # ## #C# Output(9,1,"## E C# # # # C# # Output(10,1,"############# ############ Goto 5 Lbl 14 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,3,0,0,0,2,0,0,1,3,1,0,0,0,0,0,0,1,2,0,3,1,1,0,3,1→⌊MP102 {1,1,1,1,0,1,0,1,0,0,0,2,1,1,0,1,0,0,0,1,1,0,0,0,1,1→⌊MP103 {1,0,0,0,1,0,0,1,1,1,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1→⌊MP104 {0,0,1,0,1,0,1,0,0,0,0,1,0,1,1,0,1,0,0,0,1,1,0,1,0,0→⌊MP105 {1,1,1,0,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,2,0,1,1,1→⌊MP106 {1,0,0,0,1,1,0,1,0,1,1,1,1,0,0,1,1,3,1,0,1,1,0,0,0,1→⌊MP107 {1,1,2,1,3,1,2,1,0,0,2,0,1,1,0,0,0,2,1,0,0,0,1,0,1,1→⌊MP108 {1,3,0,1,0,0,0,3,1,3,1,0,0,0,0,1,0,1,0,0,1,1,3,0,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M4 Lbl M4 Output(1,1,"############# ############ Output(2,1,"#C E #C# #E C## C# Output(3,1,"#### # # E## # ## ## Output(4,1,"# # #### # # # # # Output(5,1," # # # # ## # ## # " Output(6,1,"### ## # ## E ### Output(7,1,"# ## # #### ##C# ## # Output(8,1,"##E#C#E# E ## E# # ## Output(9,1,"#C # C#C# # # ##C # Output(10,1,"############# ############ Goto 5 Lbl 15 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,3,0,0,2,0,1,3,1,0,0,1,0,0,1,0,0,1,0,0,0,0,1,0,3,1→⌊MP102 {1,1,1,0,1,3,1,0,0,1,0,0,0,1,3,0,1,0,0,1,1,0,0,0,1,1→⌊MP103 {1,0,0,2,1,1,0,1,2,0,0,1,1,0,1,0,0,0,1,0,3,1,0,1,1,1→⌊MP104 {0,0,1,0,0,1,2,0,0,1,0,0,1,0,2,0,1,1,0,2,1,0,0,1,0,0→⌊MP105 {1,1,3,1,0,1,0,1,1,3,1,0,1,0,1,1,3,1,0,1,0,0,1,0,0,1→⌊MP106 {1,0,0,2,0,1,0,0,1,0,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1→⌊MP107 {1,2,1,1,0,0,1,0,2,0,1,1,2,1,0,0,1,2,1,0,2,0,0,1,3,1→⌊MP108 {1,0,3,3,1,0,0,0,1,0,0,1,0,0,1,0,0,0,1,3,1,1,0,2,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M5 Lbl M5 Output(1,1,"############# ############ Output(2,1,"#C E #C# # # # # C# Output(3,1,"### #C# # #C # ## ## Output(4,1,"# E## #E ## # # C# ### Output(5,1," # #E # # E ## E# # " Output(6,1,"##C# # ##C# # ##C# # # # Output(7,1,"# E # # # # # # ## Output(8,1,"#E## # E ##E# #E# E #C# Output(9,1,"# CC# # # # #C## E # Output(10,1,"############# ############ Goto 5 Lbl 16 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP102 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP103 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP104 {0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0→⌊MP105 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP106 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP107 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP108 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto 8 Lbl 82 Output(1,1,"############# ############ For(R,2,9 Output(R,1,"# Output(R,26,"# End Output(5,1," " Output(5,26," " Output(10,1,"############# ############ Goto 8 Lbl 8 For(R,2,9 For(Q,2,25 If 1=[A](R,Q Then Output(R,Q,Str2 End If 0=[A](R,Q Then Output(R,Q," " End If 2=[A](R,Q Then Output(R,Q,"E End If 3=[A](R,Q Then Output(R,Q,"C End End End Goto 5 Lbl 5 0→P While 1 Output(Y,X,Str1 getKey→P If P=24 Then If X=1 Then Output(Y,X," " 26→X Output(Y,X,Str1 Goto 10 Else If 2=[A](Y,X-1 Then Output(Y,X," " X-1→X Goto 7 End If 3=[A](Y,X-1 Then Output(Y,X," " X-1→X Goto C9 End If 0=[A](Y,X-1 Then Output(Y,X," " X-1→X End End Output(Y,X,Str1 Else If P=34 Then If Y=10 Then Output(Y,X," " 1→Y Output(Y,X,Str1 Goto 10 Else If 2=[A](Y+1,X Then Output(Y,X," " Y+1→Y Goto 7 End If 3=[A](Y+1,X Then Output(Y,X," " Y+1→Y Goto C9 End If 0=[A](Y+1,X Then Output(Y,X," " Y+1→Y End End Output(Y,X,Str1 Else If P=25 Then If Y=1 Then Output(Y,X," " 10→Y Output(Y,X,Str1 Goto 10 Else If 2=[A](Y-1,X Then Output(Y,X," " Y-1→Y Goto 7 End If 3=[A](Y-1,X Then Output(Y,X," " Y-1→Y Goto C9 End If 0=[A](Y-1,X Then Output(Y,X," " Y-1→Y End End Output(Y,X,Str1 Else If P=26 Then If X=26 Then Output(Y,X," " 1→X Output(Y,X,Str1 Goto 10 Else If 2=[A](Y,X+1 Then Output(Y,X," " X+1→X Goto 7 End If 3=[A](Y,X+1 Then Output(Y,X," " X+1→X Goto C9 End If 0=[A](Y,X+1 Then Output(Y,X," " X+1→X End End Output(Y,X,Str1 End If P=105 Then Goto 1 End 1+L→L If L>5 Then "θ→Str1 End If L>10 Then "0→Str1 0→L End 0→P End End End End End End End End End

Baseball-guess-the-number: Re: Baseball-guess-the-number

Tue, 03 Nov 2020 19:17:50 +0000

This thread is over three years old, I doubt he is looking for a solution.

Baseball-guess-the-number: Re: Baseball-guess-the-number

Mon, 02 Nov 2020 15:23:39 +0000

you could replace

If A≠E and C=1 Disp " STRIKE ONE! If A≠E and C=2 disp" STRIKE TWO! If A≠E and C=3:Then Disp " STRIKE THREE!

with

If A≠E If C=1 Disp " STRIKE ONE! If C=2 disp" STRIKE TWO! If C=3:Then Disp " STRIKE THREE!

Optimize a Conway's Game of Life Program: Re: Optimize a Conway's Game of Life Program

Sun, 01 Nov 2020 13:37:12 +0000

+ 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

help me optimize my first program: Re: help me optimize my first program

Thu, 15 Oct 2020 19:42:28 +0000

Ah, I see. Its only available above OS 5.2
That explains why I don't see it in my catalog

help me optimize my first program: Re: help me optimize my first program

Thu, 15 Oct 2020 19:21:53 +0000

This is for the TI-84+CE. The wait command just waits for that amount of time (or 2 seconds on line 14)

help me optimize my first program: Re: help me optimize my first program

Thu, 15 Oct 2020 18:48:56 +0000

What version of calculator is this for? I'm not familiar with the "Wait" command that you have on line 14

help me optimize my first program: help me optimize my first program

Thu, 15 Oct 2020 14:24:38 +0000

this is the first program I ever made in TI basic and I know it can be optimized, I just don't know how. it's quite a big program so it might take a while. The program is a simple dungeon crawler that never really ends.

ClrDraw ClrHome Clear Entries 0→P 14→X 5→Y 0→L "θ"→Str1 "#"→Str2 Goto 2 Lbl D Output(5,13,"Game Over") Wait 2 {15,3,3→SAVE Stop Lbl 2 Menu("Game","Continue",3,"New Game",6,"Quit",4) Lbl O4 Menu("Style?","#",O5,"X",O6) Lbl O5 "#"→Str2 Goto 6 Lbl O6 "X"→Str2 Goto 6 Lbl C9 randInt(1,5)→Z randInt(0,4)→W randInt(0,3)→S Z+H→H W+A→A S+D→D Output(4,12,Z Output(5,12,W Output(6,12,S Output(4,11,"+" Output(5,11,"+" Output(6,11,"+" Output(4,13," Health" Output(5,13," Attack" Output(6,13," Defence" 0→[A](Y,X) Pause For(R,4,6) For(Q,11,20) If [A](R,Q)=1 Then Output(R,Q,Str2) End If [A](R,Q)=0 Then Output(R,Q," ") End If [A](R,Q)=2 Then Output(R,Q,"E") End If [A](R,Q)=3 Then Output(R,Q,"C") End End End Goto 5 Lbl 7 Output(1,1," ") Output(2,1," ") Output(3,1," ") Output(4,1," ") Output(5,1," ") Output(6,1," ") Output(7,1," ") For(Q,1,26) Output(8,Q,"#") End For(Q,1,26) Output(9,Q,"#") End Output(10,14,"#") Output(7,21,"||") Output(6,19,"+/(") Output(6,22,")\") Output(5,21,"O") Output(5,19,"|") Output(7,2,"||") Output(6,1,"/(") Output(6,3,")\+") Output(5,3,"O") Output(5,5,"|") round(H,0)→H randInt(H-5,H+15)→E E→G randInt(A-2,A+3)→V H→B randInt(D-2,D+3)→I If I>A A-3→I Goto C1 Lbl C1 Output(4,2,E If E<5 Then If E≤0 Then Goto WN End End Output(4,21," ") Output(4,21,H) Output(4,2," ") Output(4,2,E) Wait 0.5 Output(3,20," ") Output(3,1," ") If H≤0 Then Goto D End Menu("What Will You Do","Attack",A1,"Heal",H) Lbl WN 0→[A](Y,X) H+5→H If M=11 Goto M1 If M=12 Goto M2 If M=13 Goto M3 If M=14 Goto M4 If M=15 Goto M5 Goto 82 Lbl H H+2+(1.5D)→H If H>1.5B H-5→H If H>2B B→H round(H,1)→H Goto E1 Lbl A1 E-1.2A→E Output(3,1,"-") Output(3,3,1.2A) Goto E1 Lbl E1 randInt(1,2)→J If J=1 Goto E2 If J=2 Then E+I→E Goto C1 End Lbl E2 randInt(1,3)→J If J=1 Then Output(3,20,"miss") Goto C1 End If J>1 H-0.8V→H Output(3,20,"-") Output(3,21,0.8V) Goto C1 End Lbl 6 15→H 3→A 3→D Goto 9 Lbl 1 Menu("Pause","Continue",5,"Inventory",I,"Save & Quit",4) Lbl I For(R,1,10 For(Q,1,26 Output(R,Q," ") End End Disp "Health" Disp H Disp "Attack" Disp A Disp "Defence" Disp D Pause Goto 82 Lbl 4 {H,A,D→SAVE ClrHome ClrDraw Stop Lbl 3 ⌊SAVE(1→H ⌊SAVE(2→A ⌊SAVE(3→D Goto 9 Lbl 9 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP201 {1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,1,0,1,0,1,1,1,1,1,1→⌊MP202 {1,1,1,1,1,1,0,1,0,1,0,0,0,0,0,0,0,1,0,1,0,1,1,1,1,1→⌊MP203 {1,1,1,1,1,1,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,1,1,1→⌊MP204 {0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0→⌊MP205 {1,1,1,1,1,1,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,1,1,1→⌊MP206 {1,1,1,1,1,1,0,1,0,1,0,0,0,0,0,0,0,1,0,1,0,1,1,1,1,1→⌊MP207 {1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,1,0,1,0,1,1,1,1,1,1→⌊MP208 {1,1,1,1,1,1,1,1,0,1,0,0,1,0,1,0,0,1,0,1,1,1,1,1,1,1→⌊MP209 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP210 Listmatr(⌊MP201,⌊MP202,⌊MP203,⌊MP204,⌊MP205,⌊MP206,⌊MP207,⌊MP208,⌊MP209,⌊MP210,[A] [A]→[A] Output(1,1,"############# ############") Output(2,1,"####### # ### ### # ######") Output(3,1,"###### # # # # #####") Output(4,1,"####### # # # # ######") Output(5,1," # # ") Output(6,1,"####### # # # # ######") Output(7,1,"###### # # # # #####") Output(8,1,"####### # ### ### # ######") Output(9,1,"######## # # # # #######") Output(10,1,"############# ############") Goto 5 Lbl X {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP102 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP103 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP104 {0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0→⌊MP105 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP106 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP107 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP108 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto 8 Lbl 10 randInt(11,15)→M If M=K Goto 10 M→K DelVar [A] {10,26→dim([A] If M=11 Goto 11 If M=12 Goto 12 If M=13 Goto 13 If M=14 Goto 14 If M=15 Goto 15 If M=16 Goto 16 Lbl 11 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,1,0,0,0,1,0,0,1,1,0,1,1,0,0,0,1,3,1,0,0,0,1,1,3,1→⌊MP102 {1,3,0,1,0,0,2,1,0,0,0,0,0,1,1,0,0,2,1,0,1,0,1,0,0,1→⌊MP103 {1,1,1,1,1,1,0,1,0,1,1,0,1,0,0,0,1,1,0,0,1,0,1,2,1,1→⌊MP104 {0,0,0,0,0,0,0,1,0,0,1,0,0,0,1,0,2,0,0,1,1,0,0,0,0,0→⌊MP105 {1,1,1,0,1,1,0,0,0,1,1,1,0,1,1,1,1,1,1,0,1,1,1,0,1,1→⌊MP106 {1,3,1,0,1,0,1,1,0,0,1,0,2,0,1,0,0,1,0,0,0,0,1,0,0,1→⌊MP107 {1,0,0,0,1,0,0,2,1,0,1,0,1,0,1,1,0,2,0,1,1,0,0,1,0,1→⌊MP108 {1,1,0,1,3,0,1,0,0,0,0,1,1,0,1,3,0,1,0,0,3,1,0,0,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M1 Lbl M1 Output(1,1,"############# ############") Output(2,1,"## # ## ## #C# ##C#") Output(3,1,"#C # E# ## E# # # #") Output(4,1,"###### # ## # ## # #E##") Output(5,1," # # # E ## ") Output(6,1,"### ## ### ###### ### ##") Output(7,1,"#C# # ## # E # # # #") Output(8,1,"# # E# # # ## E ## # #") Output(9,1,"## #C # ## #C # C# #") Output(10,1,"############# ############") Goto 5 Lbl 12 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,0,0,0,1,3,1,3,1,0,2,0,1,0,1,3,1,0,0,1,0,1,1,0,3,1→⌊MP102 {1,3,1,0,2,0,1,0,1,3,1,0,0,0,1,0,2,0,1,0,0,0,0,0,1,1→⌊MP103 {1,1,0,0,1,1,1,2,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,1→⌊MP104 {0,0,1,2,1,0,0,1,0,1,0,1,0,0,0,1,0,0,1,1,1,0,0,1,0,0→⌊MP105 {1,0,0,0,1,1,0,0,0,1,0,0,0,1,0,1,1,0,1,3,2,1,0,0,1,1→⌊MP106 {1,1,1,0,0,1,0,1,1,0,0,1,1,0,0,0,0,0,0,1,0,1,1,0,1,1→⌊MP107 {1,0,0,0,1,0,0,0,1,0,1,3,0,1,1,0,1,1,1,1,0,0,0,0,0,1→⌊MP108 {1,3,1,0,2,0,1,0,0,0,1,1,0,0,0,0,0,1,3,0,2,1,0,1,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M2 Lbl M2 Output(1,1,"############# ############") Output(2,1,"# #C#C# E # #C# # ## C#") Output(3,1,"#C# E # #C# # E # ##") Output(4,1,"## ###E # ##### # # #") Output(5,1," #E# # # # # ### # ") Output(6,1,"# ## # # ## #CE# ##") Output(7,1,"### # ## ## # ## ##") Output(8,1,"# # # #C ## #### #") Output(9,1,"#C# E # ## #C E# # #") Output(10,1,"############# ############") Goto 5 Lbl 13 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,3,0,1,0,0,1,3,1,1,0,3,1,0,1,1,3,1,0,0,0,3,1,2,0,1→⌊MP102 {1,1,2,1,0,1,1,0,0,2,0,1,0,0,0,0,0,2,0,1,0,1,1,0,1,1→⌊MP103 {1,0,0,0,0,0,0,1,1,1,0,0,1,1,0,1,0,1,1,0,0,1,0,0,0,1→⌊MP104 {0,0,1,0,1,0,1,0,1,0,1,0,0,0,2,1,0,1,0,1,0,0,0,1,0,0→⌊MP105 {1,0,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,1,0,1,1→⌊MP106 {1,1,1,1,0,0,0,1,0,1,1,0,0,1,1,0,0,0,1,0,0,0,2,0,1,1→⌊MP107 {1,3,0,1,0,1,1,1,0,0,0,0,1,1,0,2,1,0,1,0,1,1,0,1,3,1→⌊MP108 {1,1,0,0,2,0,0,3,1,0,1,0,0,0,0,1,0,0,1,0,3,1,0,0,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M3 Lbl M3 Output(1,1,"############# ############") Output(2,1,"#C # #C## C# ##C# C#E #") Output(3,1,"##E# ## E # # # ## ##") Output(4,1,"# ### ## # ## # #") Output(5,1," # # # # # E# # # # ") Output(6,1,"# # # ## # # # # ##") Output(7,1,"#### # ## ## # E ##") Output(8,1,"#C # ### ## E# # ## #C#") Output(9,1,"## E C# # # # C# #") Output(10,1,"############# ############") Goto 5 Lbl 14 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,3,0,0,0,2,0,0,1,3,1,0,0,0,0,0,0,1,2,0,3,1,1,0,3,1→⌊MP102 {1,1,1,1,0,1,0,1,0,0,0,2,1,1,0,1,0,0,0,1,1,0,0,0,1,1→⌊MP103 {1,0,0,0,1,0,0,1,1,1,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1→⌊MP104 {0,0,1,0,1,0,1,0,0,0,0,1,0,1,1,0,1,0,0,0,1,1,0,1,0,0→⌊MP105 {1,1,1,0,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,2,0,1,1,1→⌊MP106 {1,0,0,0,1,1,0,1,0,1,1,1,1,0,0,1,1,3,1,0,1,1,0,0,0,1→⌊MP107 {1,1,2,1,3,1,2,1,0,0,2,0,1,1,0,0,0,2,1,0,0,0,1,0,1,1→⌊MP108 {1,3,0,1,0,0,0,3,1,3,1,0,0,0,0,1,0,1,0,0,1,1,3,0,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M4 Lbl M4 Output(1,1,"############# ############") Output(2,1,"#C E #C# #E C## C#") Output(3,1,"#### # # E## # ## ##") Output(4,1,"# # #### # # # # #") Output(5,1," # # # # ## # ## # ") Output(6,1,"### ## # ## E ###") Output(7,1,"# ## # #### ##C# ## #") Output(8,1,"##E#C#E# E ## E# # ##") Output(9,1,"#C # C#C# # # ##C #") Output(10,1,"############# ############") Goto 5 Lbl 15 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,3,0,0,2,0,1,3,1,0,0,1,0,0,1,0,0,1,0,0,0,0,1,0,3,1→⌊MP102 {1,1,1,0,1,3,1,0,0,1,0,0,0,1,3,0,1,0,0,1,1,0,0,0,1,1→⌊MP103 {1,0,0,2,1,1,0,1,2,0,0,1,1,0,1,0,0,0,1,0,3,1,0,1,1,1→⌊MP104 {0,0,1,0,0,1,2,0,0,1,0,0,1,0,2,0,1,1,0,2,1,0,0,1,0,0→⌊MP105 {1,1,3,1,0,1,0,1,1,3,1,0,1,0,1,1,3,1,0,1,0,0,1,0,0,1→⌊MP106 {1,0,0,2,0,1,0,0,1,0,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1→⌊MP107 {1,2,1,1,0,0,1,0,2,0,1,1,2,1,0,0,1,2,1,0,2,0,0,1,3,1→⌊MP108 {1,0,3,3,1,0,0,0,1,0,0,1,0,0,1,0,0,0,1,3,1,1,0,2,0,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto M5 Lbl M5 Output(1,1,"############# ############") Output(2,1,"#C E #C# # # # # C#") Output(3,1,"### #C# # #C # ## ##") Output(4,1,"# E## #E ## # # C# ###") Output(5,1," # #E # # E ## E# # ") Output(6,1,"##C# # ##C# # ##C# # # #") Output(7,1,"# E # # # # # # ##") Output(8,1,"#E## # E ##E# #E# E #C#") Output(9,1,"# CC# # # # #C## E #") Output(10,1,"############# ############") Goto 5 Lbl 16 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP101 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP102 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP103 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP104 {0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0→⌊MP105 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP106 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP107 {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP108 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP109 {1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1→⌊MP110 Listmatr(⌊MP101,⌊MP102,⌊MP103,⌊MP104,⌊MP105,⌊MP106,⌊MP107,⌊MP108,⌊MP109,⌊MP110,[A] [A]→[A] Goto 8 Lbl 82 Output(1,1,"############# ############" For(R,2,9 Output(R,1,"#" Output(R,26,"#" End Output(5,1," " Output(5,26," " Output(10,1,"############# ############" Goto 8 Lbl 8 For(R,2,9 For(Q,2,25 If [A](R,Q)=1 Then Output(R,Q,Str2) End If [A](R,Q)=0 Then Output(R,Q," ") End If [A](R,Q)=2 Then Output(R,Q,"E") End If [A](R,Q)=3 Then Output(R,Q,"C") End End End Goto 5 Lbl 5 0→P While 1=1 Output(Y,X,Str1) getKey→P If P=24 Then If X-1=0 Then Output(Y,X," ") 26→X Output(Y,X,Str1) Goto 10 Else If [A](Y,X-1)=2 Then Output(Y,X," ") X-1→X Goto 7 End If [A](Y,X-1)=3 Then Output(Y,X," ") X-1→X Goto C9 End If [A](Y,X-1)=0 Then Output(Y,X," ") X-1→X End End Output(Y,X,Str1) Else If P=34 Then If Y+1=11 Then Output(Y,X," ") 1→Y Output(Y,X,Str1) Goto 10 Else If [A](Y+1,X)=2 Then Output(Y,X," ") Y+1→Y Goto 7 End If [A](Y+1,X)=3 Then Output(Y,X," ") Y+1→Y Goto C9 End If [A](Y+1,X)=0 Then Output(Y,X," ") Y+1→Y End End Output(Y,X,Str1) Else If P=25 Then If Y-1=0 Then Output(Y,X," ") 10→Y Output(Y,X,Str1) Goto 10 Else If [A](Y-1,X)=2 Then Output(Y,X," ") Y-1→Y Goto 7 End If [A](Y-1,X)=3 Then Output(Y,X," ") Y-1→Y Goto C9 End If [A](Y-1,X)=0 Then Output(Y,X," ") Y-1→Y End End Output(Y,X,Str1) Else If P=26 Then If X+1=27 Then Output(Y,X," ") 1→X Output(Y,X,Str1) Goto 10 Else If [A](Y,X+1)=2 Then Output(Y,X," ") X+1→X Goto 7 End If [A](Y,X+1)=3 Then Output(Y,X," ") X+1→X Goto C9 End If [A](Y,X+1)=0 Then Output(Y,X," ") X+1→X End End Output(Y,X,Str1) End If P=105 Then Goto 1 End 1+L→L If L>5 Then "θ"→Str1 End If L>10 Then "0"→Str1 0→L End 0→P End End End End End End End End End

Bogo Sort also know as Stupid Sort.: Re: Bogo Sort also know as Stupid Sort.

Thu, 24 Sep 2020 17:08:05 +0000

It is a crazy slow sort, part of the fun. The difficulty of writing the program is also part of the fun. What is scary is that even worse sorts have been invented.

Thanks for the link.

Bogo Sort also know as Stupid Sort.: Re: Bogo Sort also know as Stupid Sort.

Thu, 24 Sep 2020 16:18:20 +0000

It might be a challenge to do this in TI-Basic because BOGO sorting sorts with multiple lines at a time. Doing this in TI-Basic will make the calculator extremely slow, to the point where nobody would watch it complete. The best way to do this is in Assembly.

There is a 68k version of this program for the TI-89 if you wish to look at it:
https://www.ticalc.org/archives/files/fileinfo/449/44921.html

Bogo Sort also know as Stupid Sort.: Bogo Sort also know as Stupid Sort.

Thu, 24 Sep 2020 01:52:08 +0000

Bogo Sort is one of the worst sorting algorithms around. But can be fun to watch run, if you are as easily amused as I am.

For some reason I have not been able to make it work on the TI calculator I have, I blame my meds. Could some one implement it so that it shows the random version in action?

Optimize a Conway's Game of Life Program: Optimize a Conway's Game of Life Program

Mon, 25 May 2020 23:39:01 +0000

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

Optimize a Worley Noise Program: Re: Optimize a Worley Noise Program

Tue, 19 May 2020 15:19:02 +0000

Other than that, that's pretty much it. Good luck on your code!