» Goto page Previous  1, 2, 3 ... 13, 14, 15
lirtosiast wrote:
Or this?
Code:
`sum(1+int(10fPart(.06039591e^(seq(inString("GKBCQFM HVDJZWPXY",sub(Str1,X,1)),X,1,length(Str1`

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?
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

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.

»
» Goto page Previous  1, 2, 3 ... 13, 14, 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