Optimize me #5

(no title)

Wed, 26 Nov 2014 14:02:18 +0000

L-(Ans=24)(L>1)→L L+(Ans=26)(L<7)→L

can be simplified to

L-(Ans=24)(L>1)+(Ans=26)(L<7)→L

Re: Optimize me #5

Fri, 16 Jan 2009 18:45:43 +0000

wow, quite a lot If-tenses.
never heard of boolean?
example:
instead of using this:

If Ans=24 and L>1 L-1→L

use this:

L-(And=24)(L>1)→L

ok, second thing:

While K≠105 Output(2,7,L Repeat Ans // custom input routine replaces labels with a level number... getKey→K // maybe just use Prompt? End If Ans=24 and L>1 L-1→L If Ans=26 and L<7 L+1→L End

this is shorter:

While Ans≠105 Output(2,7,L L-(Ans=24)(L>1)→L L+(Ans=26)(L<7)→L GetKey End

or Output destroys Ans in some kind of way?i dont know for sure.

+EDIT

:int(10rand)→A :int(10rand)→B :int(10rand)→C :int(10rand)→D :int(10rand)→F :int(10rand)→G

maybe you should work with lists seeing this.

these are just 'standard' optimize thingys,
what does this game do? :P

Re: Optimize me #5

Wed, 14 Jan 2009 23:14:48 +0000

The game is to use the numbers above the answer in an arrangement of operations to create the answer. The user could technically just enter C, but then that means they lose the point of the game. The challenge only comes when you try. And besides, this was my first game program, so it isn't too great anyway.

Re: Optimize me #5

Wed, 14 Jan 2009 23:09:57 +0000

wait…
i'm confused about the point of the game

couldn't the person just enter whatever C is?

Re: Optimize me #5

Fri, 05 Dec 2008 06:14:11 +0000

Lbl MM DelVar KClrHome Disp "EQUATION GAME!","LEVEL 1→L While K≠105 Output(2,7,L Repeat Ans // custom input routine replaces labels with a level number... getKey→K // maybe just use Prompt? End If Ans=24 and L>1 L-1→L If Ans=26 and L<7 L+1→L End Lbl G {0,0,0,-10,0,0→L2 // referenced later based on level {9,19,9,9,19,9→L3 // possible that it would be easier to use If/Then because of so many repeated values Disp "NUMBERS For(I,1,2+(L=3 // smaller without For( loop? If L<7 Disp randInt(L2(L),L2(L If L=7 Disp int(10rand)+i*int(10rand // that's the imaginary i, not the letter, remove the multiply sign when entering on calculator End If L=7 Disp 2 If L=6 and rand>.5 Then Disp "USE ONLY +-*/^\ Else Disp "USE ONLY +-()√( End Disp "ANSWER If L<5 or L=6 randInt(L2(L),L(L→D If L=5 500rand→D If L=7 10rand+i*10rand→D // same here Disp int(D),"EQUATION? Prompt E If imag(E)=imag(D) and real(E)=real(D Then "YOU WIN! Else "YOU LOSE! End Pause Ans Menu("SELECT","AGAIN",G,"CHANGE LEVEL",MM,"QUIT",Q Lbl Q

It's clearly smaller, but it can definitely be shrunk more. Also, I haven't actually tested it…

Re: Optimize me #5

Sat, 29 Nov 2008 19:21:17 +0000

You can also remove the unnecessary parentheses and quotation marks.

Re: Optimize me #5

Sat, 29 Nov 2008 02:51:06 +0000

for the first 5 levels you could have somthing like this

ClrHome 1→A Repeat K=105 getKey→K Output(4,8,A Output(3,8,"▫ Output(5,8," If K=25 and A<5 A+1→A If K=34 and A>1 A-1→A End randInt(1,10A)→B randInt(1,10A)→C randInt(1,10A)→D Disp "Numbers",B,C,"Answers",D Input "Equation: ",E If E=D Disp "You Win!" If E≠D Disp "You Lose"

Re: Optimize me #5

Sat, 29 Nov 2008 01:23:23 +0000

Are we trying to optimize for speed or size as a priority?
edit: Also, what are all of the extra numbers for? I have no idea what is going on when I play this game. Almost all of the variables have nothing to do with the answer.

Re: Optimize me #5

Fri, 28 Nov 2008 22:31:33 +0000

My optimization
I will finish later

Re: Optimize me #5

Fri, 28 Nov 2008 19:31:46 +0000

Oops, those numbers on the Menu's were supposed to change.
Also, all of the int(10rand)'s can be randInt(1,10
The If's could be If…Then…Else…End
All the stores shouldn't exist.
In fact, the menu's can be omitted into a "Goto 0" and the player can select the same again if he/she wishes.

Re: Optimize me #5

Fri, 28 Nov 2008 19:26:26 +0000

you have the same menu in there over and over again. you only need to put it in once and use a label to goto it

EDIT: oh never mind there different.

Re: Optimize me #5

Fri, 28 Nov 2008 19:20:16 +0000

ahh… My eyes… My eyes… It's too… too… ahh, there isn't even a word to describe it!!!

Seriously now, I didn't look at it much, but it could use some optimization.

Optimize me #5

Fri, 28 Nov 2008 19:03:23 +0000

Here is the first game I've ever made in programming. Let's see how much optimization can be made…

:ClrHome :Lbl 0 :Menu("Equation Game!","Level 1",1,"Level 2",2,"Level 3",3,"Level 4",4,"Level 5",5,"Extreme",6,"Ultimate",7) :Lbl 1 :int(10rand)→A :int(10rand)→B :int(10rand)→C :Disp "Numbers" :Disp A :Disp B :Disp "Answer" :Disp C :Disp "Equation?" :Prompt E :If E=C :Disp "You Win!" :If E≠C :Disp "You Lose" :Pause :Menu("Select","Again",1,"Menu",0,"Quit",Q) :Lbl 2 :int(20rand)→A :int(20rand)→B :int(20rand)→C :Disp "Numbers" :Disp A :Disp B :Disp "Answer" :Disp C :Disp "Equation?" :Prompt E :If E=C :Disp "You Win!" :If E≠C :Disp "You Lose" :Pause :Menu("Select","Again",2,"Menu",0,"Quit",Q) :Lbl 3 :int(10rand)→A :int(10rand)→B :int(10rand)→C :int(20rand)→D :Disp "Numbers" :Disp A :Disp B :Disp C :Disp "Answer" :Disp D :Disp "Equation?" :Prompt E :If E=D :Disp "You Win!" :If E≠D :Disp "You Lose" :Pause :Menu("Select","Again",3,"Menu",0,"Quit",Q) :Lbl 4 :10+int(‾20rand)→A :10+int(‾20rand)→B :10+int(‾20rand)→C :Disp "Numbers" :Disp A :Disp B :Disp "Answer" :Disp C :Disp "Equation?" :Prompt E :If E=C :Disp "You Win!" :If E≠C :Disp "You Lose" :Pause :Menu("Select","Again",4,"Menu",0,"Quit",Q) :Lbl 5 :int(20rand)→A :int(20rand)→B :int(500rand)→C :Disp "Numbers" :Disp A :Disp B :Disp "Answer" :Disp C :Disp "Equation?" :Prompt E :If E=C :Disp "You Win!" :If E≠C :Disp "You Lose" :Pause :Menu("Select","Again",5,"Menu",0,"Quit",Q) :Lbl 6 :int(2rand)→A :int(10rand)→B :int(10rand)→C :int(10rand)→D :If A=1 :Disp "Use Only +-*/^" :If A=0 :Disp "Use Only +-()√(" :Disp "Numbers" :Disp A :Disp B :Disp "Answer" :Disp C :Disp "Equation?" :Prompt E :If E=C :Disp "You Win!" :If E≠C :Disp "You Lose" :Pause :Menu("Select","Again",6,"Menu",0,"Quit",Q) :Lbl 7 :int(10rand)→A :int(10rand)→B :int(10rand)→C :int(10rand)→D :int(10rand)→F :int(10rand)→G :Disp "Numbers" :Disp A+Bi :Disp C+Di :Disp 2 :Disp "Answer" :Disp F+Gi :Disp "Equation?" :Prompt E :If real(E)=F and imag(E)=G :Disp "You Win!" :If real(E)≠F and imag(E)≠G :Disp "You Lose" :Pause :Menu("Select","Again",7,"Menu",0,"Quit",Q) :Lbl Q :Clrhome

Ugly or what?