lirtosiast wrote:
Or this?
Code:
sum(1+int(10fPart(.06039591e^(seq(inString("GKBCQFM HVDJZWPXY",sub(Str1,X,1)),X,1,length(Str1

How about this?

Calculate Scrabble Score of Word in 51 bytes (49 using Ans for input)
Inputs: Str1
Output: Score in Ans

Code:
sum(int(10^(sqrt(sinh(fPart(455atan(seq(inString("FJBCQKDGHVWZXMYP",sub(Str1,X,1)),X,1,length(Str1
For -8 bytes
Boolean

Changes A between 1 And 0.

Code:

G= <Keycode>  xor A→A
DragonScholar71 wrote:

Boolean

Changes A between 1 And 0.

Code:

G= <Keycode>  xor not(A→A

Did you literally just post not(A→A? Laughing
Yes i did, im not the best with optimization and to be honest, i only went over this in my head after the optimization. if it makes you happy, here's the parenthesis version.

Code:

(G= <Keycode>  xor A)->A
I guess I should leave this here.

Detect if code is running on a monochrome or color calc
Inputs:
none
Output:
none, if condition is true, then its color


Code:
If det(angle([[~1

This relies on a parser bug which was fixed between 2.55MP and 4.0. (more specifically between 84C-012 and 84C-020)
This is angle mode-agnostic because [3.14159] and [180] are both non-zero.
Here are some fun routines Smile

Detect if OS version is greater than or equal to 5.1.0.0110
Inputs:
none
Output:
none, if condition is true, then its 5.1.0.0110+


Code:
ClrDraw
Text(1,1,"
DispGraph
If pxl-Test(8,2
Disp "5.1.0.0110+


Detect if OS version is equal to 5.2.0.0035 and if it is greater than or equal to 5.2.1.0042
Inputs:
none
Output:
Str1 will contain either <5.2.0, 5.2.0.0035 or 5.2.1.0042+


Code:
"<5.2.0→Str1
0→Ymin:1→ΔY
If Ymax=164
Then
"5.2.0.0035→Str1
SEQ(n+1)
0→nMin
1→w(nMin)
"2w(n)+n"→w
If w(1)=2
"5.2.1.0042+→Str1
End
Disp Str1

I've combined these 2 version checkers together because the 5.2.1 checker relies on tokens that were added in 5.2.0, so to avoid potentially crashing, you should check for 5.2.0 before checking for 5.2.1.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
» Goto page Previous  1, 2, 3 ... 13, 14, 15
» View previous topic :: View next topic  
Page 15 of 15
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement