Omnimaga
Calculator Community => TI Calculators => TI-BASIC => Topic started by: Yeong on December 14, 2011, 12:52:57 pm
-
I think we need this thread at some point :)
I'll post some first! :D
1. 2(X-1)→X to 2(X-1→X to 2X-2→X if numbers are small enough.
2. X*100→X to XE2→X
3. (X-3)/5→X to 5-1(X-3→X
4. If X=1:0→X:Goto A:If X=0:1→X:Goto A (I see this a lot) to abs(X-1→X:Goto A to not(X→X:Goto A
5. Disp "A":Disp X:Disp "B" to Disp "A",X,"B
-
4. If X=1:0→X:If X=0:1→X (I see this a lot) to abs(X-1→X
Also known as not(X→X :P
-
4. If X=1:0→X:If X=0:1→X (I see this a lot) to abs(X-1→X
Also known as not(X→X :P
:P I just realized and tried to fix it but you noticed it first anyway XD
-
1. Disp X to X (only as the last command in a program, and messes up Ans)
2. seq(2^X,X,1,8 to 2^cumSum(binomcdf(7,0
-
8. 3+X→Y:Disp Y to Disp 3+X (Unless you want to call up the Ans later :P )
-
4. If X=1:0→X:If X=0:1→X (I see this a lot) to abs(X-1→X
Also known as not(X→X :P
:P I just realized and tried to fix it but you noticed it first anyway XD
I think you forgot an Else before the second If there.
-
You don't need the Else there. ;)
-
X/100 to sub(X is a very useful one.
-
I see many people using this getKey routine:
0→K
While K=0
getKey→K
End
It could be optimized to this:
Repeat K:getKey→K:End
EDIT: Here's jacobly's way if you're interested:
0:Repeat Ans:getKey:End
-
You can take out the 0 and just use Repeat Ans:getKey:End because getKey returns 0 if no key was pressed.
-
X/100 to sub(X is a very useful one.
Might as well do .1X since sub() is a 2 byte token :P
-
:Disp "Blah"
:Disp "More Blah"optimized:
:Disp "Blah","More Blah
-
X/100 to sub(X is a very useful one.
Might as well do .1X since sub() is a 2 byte token :P
That divides by ten, not 100.
-
:Disp "Blah"
:Disp "More Blah"optimized:
:Disp "Blah","More Blah
Don't
:Disp "Blah
:Disp "More Blah
takes less space?
-
You don't need the Else there. ;)
yes you do.... otherwise no matter what X would be 1 by the end.
-
You don't need the Else there. ;)
yes you do.... otherwise no matter what X would be 1 by the end.
Oh. I see your point there. :P
Gotta fix it XP
-
:Disp "Blah"
:Disp "More Blah"optimized:
:Disp "Blah","More Blah
Don't
:Disp "Blah
:Disp "More Blah
takes less space?
No, it takes the same amount of space. You still have a line return there.
-
Fine then.
:Disp "BLAH
:Disp "MORE BLAH
Optimized 9 bytes :P
-
X/100 to sub(X is a very useful one.
Might as well do .1X since sub() is a 2 byte token :P
That divides by ten, not 100.
Oh right! XD Didn't see that there
-
input A
if A=5
goto AA
if A!=5 (!= has to be the not equal to sign)
goto BB
lbl AA
disp A
lbl BB
output(5,5,Ato
input A
if A=5
goto AA
output(5,5,A
lbl AA
disp A
-
input A
if A!=5
Output(5,5,A
Disp A
-
If (A=1)+(A=2)+(A=3)+(A=4)to
If sum(A={1,2,3,4