Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - persalteas

Pages: 1 2 [3] 4 5 ... 16
31
TI Z80 / Re: The best Mastermind Deluxe ever !
« on: May 17, 2013, 06:03:58 am »
UP :)

The program is now 100% bug-free !
Thanks to Bisam for some great optimisations ! :thumbup:
A TI-82 Stats/TI-83 version is now included !


New code: (version 83+/84+):
Spoiler For Spoiler:
Code: [Select]
:G-T:Full
:FnOff :AxesOff
:0→Xmin:0→Ymin
:1→ΔX:1→ΔY
:DelVar L9→dim(∟MS
:If not(∟MS(4:{4,0,0,1,99,99,99,99,0→∟MS
:Lbl M
:ClrDraw
:1→C
:RecallPic 9
:{0,36,39,44,39,50,57→L1
:Repeat max(K={45,105
:getKey→K
:Text(L1(2C),L1(2C+1),"[
:If K:Text(L1(2C),L1(2C+1),"  
:C-(K=25)+(K=34→C
:If not(C:3→C
:If C=4:1→C
:End
:If C=3 or K=45:Goto Q
:If C=2:Then
:∟MS→L1
:Horizontal 0
:For(A,1,39
:Line(0,A,94,A,0
:Pt-On(0,A
:Pt-On(94,A
:End
:Horizontal 40
:Text(26,6,"-Answers :
:Text(33,6,"-Difficulty :
:Text(40,6,"-Nbr players:
:Text(47,6,"-Several same
:Text(54,10,"colors :
:1→C
:{26,33,40,54→L2
:Repeat K=45 or K=105
:L2(C→A
:getKey→K
:Text(26,56,sub("PlacedDigits",6L1(9)+1,6
:Text(33,56,sub("       Easy    Normal       Medium  Hardcore",8L1(1)-16,8
:Text(40,56,1+L1(2
:Text(54,56,sub("DisabledEnabled ",8L1(3)+1,8
:Text(A,51,"<
:Text(A,90,">
:If K:Then
:Text(A,51,"    
:Text(A,90,"    
:C+(K=34)-(K=25→C
:If not(C:4→C
:If C=5:1→C
:If C=2:Then
:L1(1)+(K=26)-(K=24→L1(1
:If 3>L1(1:6→L1(1
:If 6<L1(1:3→L1(1
:End
:If max(K={24,26:Then
:If C=1:not(L1(9→L1(9
:If C=3:not(L1(2→L1(2
:If C=4:not(L1(3→L1(3
:If max(C={2,1,4
:Text(26+7(C=2)+28(C=4),56,"                              
:End
:End
:End
:2→C
:L1→∟MS
:End
:If C=2:Goto M
:∟MS(1→N
:N+3→P
:If ∟MS(2
:Then
:Split
:RecallPic 9
:Line(10,7,84,6
:For(A,8,55
:Line(11,A,83,A,0
:Pt-On(10,A
:Pt-On(84,A
:End
:Line(10,56,84,56
:Text(6,18,"ENTER ",N," DIGITS
:Text(14,18,"BETWEEN 1 AND ",P
:Lbl A
:DelVar BDelVar L2
:Input ">",Str1
:If N≠length(Str1:1→B
:N→dim(L2
:If not(B:Then
:For(A,1,N
:expr(sub(Str1,A,1→L2(A
:If Ans>P:1→B
:If 3=sum(seq(L2(A)=L2(K),K,1,N))+not(∟MS(3:2→B
:End
:End
:If B:Disp "ERROR
:If B=2:Disp "Same digits.
:If B:Goto A
:Full
:Else
:If ∟MS(3:Then
:randInt(1,P,N→L2
:Else
:Repeat min(DeltaList(L2
:randInt(1,P,N→L1
:L1→L2
:SortA L2
:End
:L1→L2
:End:End
:1+12N→N
:{N-1,61,1,61,0,60,0,1,1,0,N,0,N,1,N,60,N+1,1,N+1,59,77,53,94,53,76,46,94,46,76,60,76,0,76,0,94,0,94,0,94,60,94,60,76,60
:ClrDraw
:For(A,1,44,4
:Line(Ans(A),Ans(A+1),Ans(A+2),Ans(A+3
:End
:{59,54,52,47
:For(A,1,4
:Pt-On(77,Ans(A
:Pt-On(93,Ans(A
:End
:{1,1,1,60,N-1,1,N-1,60
:For(A,1,8,2
:Pt-On(Ans(A),Ans(A+1
:End
:Line(3,16,N-3,16
:Line(3,59,N-3,59
:(N-1)/12→N
:For(A,7,7N,7
:{A-5,4,A,4,A,11,A-5,11,A-5,4
:For(B,1,7,2
:Line(Ans(B),Ans(B+1),Ans(B+2),Ans(B+3
:End
:End
:Text(47,78,"BEST
:Text(54,78,"= ",∟MS(2+∟MS(1
:{1,N→dim([J]
:[J]→[H]
:Fill(1,L1
:DelVar VDelVar C1→B
:{0→L4
:Lbl I
:L1(V+1→R:C+1→C
:2+dim(L4→dim(L4
:For(A,0,N-1
:Text(52,7A+3,L1(A+1
:End
:Repeat max(K={105,45
:Text(52,7V+3,R
:getKey→K
:R+(K=25)-(K=34→R
:If max(K={92,93,94,82,83,84,72,73,74:Then
:2-(K=92)+(K=94)+2(K=82)+3(K=83)+4(K=84)+5(K=72)+6(K=73)+7(K=74
:If Ans≤P:Ans→R
:End
:If not(R:P→R
:If R>P:1→R
:If B xor max(K={24,26
:Then
:7V
:Pt-Change(Ans+4,2
:Pt-Change(Ans+5,1
:Pt-Change(Ans+6,2
:Pt-Change(Ans+4,13
:Pt-Change(Ans+5,14
:Pt-Change(Ans+6,13
:End
:DelVar BDelVar YIf max(K={24,26,105:Then
:R→L1(V+1
:V+(K=26)-(K=24→V
:If V=N:0→V
:If V<0:N-1→V
:L1(V+1→R
:1-(K=105→B
:End
:If 6<Cmax(K={21,31:Then
:L-(K=21 and L)+(K=31 and L<C-7→L
:Lbl B
:For(A,1,6
:For(K,1,N
:Text(7A-3,7K-4,[J](A+L,K
:End
:If ∟MS(9:Then
:Y=9
:dim(L4)-1-2(A+L)+3Ans+not(Ans
:Text(7A-3,7N+5(N>3),"□",L4(Ans-1),"┼",L4(Ans
:Else
:7N+4
:For(K,1,N
:Ans+3
:Pt-Off(Ans,63-7A,2
:Pt-Off(Ans,63-7A
:Pt-On(Ans,63-7A,[H](A+L,K
:End
:End
:End
:If Y=9:Goto C
:End
:End
:If K=45:Goto M
:DelVar LN→dim(L1
:List►matr(L1,[I]
:augment([I],[J]T)T→[J]
:Text(3,82,C
:Text(10,82,15-C,"  
:N→dim(L3
:For(A,1,N
:1→K
:If L1(A)=L2(A
:Then
:2→K
:Else
:If max(seq(L2(B)=L1(A),B,1,N
:3→K
:End
:K→L3(A
:End
:List►matr(L3,[G]
:augment([G],[H]T)T→[H]
:For(A,1,N
:If 2=L3(A:1+L4(2C→L4(2C
:If 3=L3(A:1+L4(2C+1→L4(2C+1
:End
:If C<7:Then
:For(A,0,N-1
:Text(46-7C,7A+3,L1(A+1
:End
:If ∟MS(9
:Then
:Text(46-7C,7N+5(N>3),"□",L4(2C),"┼",L4(2C+1
:Else
:For(A,1,N
:Pt-On(7N+3A+4,14+7C,L3(A
:End
:End
:Else
:9→Y
:Goto B
:Lbl C
:End
:DelVar BIf N=sum(L2=L1 or C=15:Then
:Horizontal 10
:For(A,11,51
:Line(0,A,94,A,0
:End
:Horizontal 52
:If C=15:Then
:Text(12,10,"THE CODE WAS :
:Text(37,30,"YOU LOSE !
:Else
:Text(12,10,"CODE BROKEN ! :
:If C<∟MS(2+∟MS(1
:C→∟MS(2+∟MS(1
:End
:For(A,1,N
:Text(12,60+5A,L2(A
:End
:Text(21,25,"- Tries :  ",C
:Text(28,25,"- Best :  ",∟MS(2+∟MS(1
:Text(45,10,"1: Replay
:Text(45,60,"2: Quit
:Repeat max(B={92,93,45
:getKey→B
:End
:End
:If not(B:Goto I
:If B=92:Goto M
:Lbl Q
:ZStandard:AxesOn
:DelVar [J]DelVar [I]DelVar [H]DelVar [G]DelVar L1DelVar L2DelVar L4DelVar L3DelVar Str1DelVar ADelVar BDelVar CDelVar KDelVar NDelVar PDelVar RDelVar LDelVar YDelVar VOutput(1,1,"

Version 82 stats/83:
Spoiler For Spoiler:
Code: [Select]
:FnOff :AxesOff
:0→Xmin:0→Ymin
:1→ΔX:1→ΔY
:DelVar L9→dim(∟MS
:If not(∟MS(4:{4,0,0,1,99,99,99,99,0→∟MS
:Lbl M
:ClrDraw
:1→C
:RecallPic 9
:{0,36,39,44,39,50,57→L1
:Repeat max(K={45,105
:getKey→K
:Text(L1(2C),L1(2C+1),"[
:If K:Text(L1(2C),L1(2C+1),"  
:C-(K=25)+(K=34→C
:If not(C:3→C
:If C=4:1→C
:End
:If C=3 or K=45:Goto Q
:If C=2:Then
:∟MS→L1
:Horizontal 0
:For(A,1,39
:Line(0,A,94,A,0
:Pt-On(0,A
:Pt-On(94,A
:End
:Horizontal 40
:Text(26,6,"-A[n][s]|w[e][r][s] :
:Text(33,6,"-Di|F|Fi[|c]|u1[t][yhat] :
:Text(40,6,"-N[|b][r] [p]1[|a][yhat][e][r][s]:
:Text(47,6,"-S[e]|v[e][r][|a]1 [s][|a]M[e]
:Text(54,10,"[c]O1O[r][s] :
:1→C
:{26,33,40,54→L2
:Repeat K=45 or K=105
:L2(C→A
:getKey→K
:Text(26,56,sub("P1[|a][|c][e][|d]DiGi[t][s]",6L1(9)+1,6
:Text(33,56,sub("       E[|a][s][yhat]    NO[r]M[|a]1       M[e][|d]i|uM  H[|a][r][|d][|c]O[|r][e]",8L1(1)-16,8
:Text(40,56,1+L1(2
:Text(54,56,sub("Di[s][|a][|b]1[e][|d]E[n][|a][|b]1[e][|d] ",8L1(3)+1,8
:Text(A,51,"<
:Text(A,90,">
:If K:Then
:Text(A,51,"    
:Text(A,90,"    
:C+(K=34)-(K=25→C
:If not(C:4→C
:If C=5:1→C
:If C=2:Then
:L1(1)+(K=26)-(K=24→L1(1
:If 3>L1(1:6→L1(1
:If 6<L1(1:3→L1(1
:End
:If max(K={24,26:Then
:If C=1:not(L1(9→L1(9
:If C=3:not(L1(2→L1(2
:If C=4:not(L1(3→L1(3
:If max(C={2,1,4
:Text(26+7(C=2)+28(C=4),56,"                              
:End
:End
:End
:2→C
:L1→∟MS
:End
:If C=2:Goto M
:∟MS(1→N
:N+3→P
:If ∟MS(2
:Then
:Split
:RecallPic 9
:Line(10,7,84,6
:For(A,8,55
:Line(11,A,83,A,0
:Pt-On(10,A
:Pt-On(84,A
:End
:Line(10,56,84,56
:Text(6,18,"ENTER ",N," DIGITS
:Text(14,18,"BETWEEN 1 AND ",P
:Lbl A
:DelVar BDelVar L2
:Input ">",Str1
:If N≠length(Str1:1→B
:N→dim(L2
:If not(B:Then
:For(A,1,N
:expr(sub(Str1,A,1→L2(A
:If Ans>P:1→B
:If 3=sum(seq(L2(A)=L2(K),K,1,N))+not(∟MS(3:2→B
:End
:End
:If B:Disp "ERROR
:If B=2:Disp "SAME [|d]iGi[t][s]!
:If B:Goto A
:Full
:Else
:If ∟MS(3:Then
:randInt(1,P,N→L2
:Else
:Repeat min(DeltaList(L2
:randInt(1,P,N→L1
:L1→L2
:SortA L2
:End
:L1→L2
:End:End
:1+12N→N
:{N-1,61,1,61,0,60,0,1,1,0,N,0,N,1,N,60,N+1,1,N+1,59,77,53,94,53,76,46,94,46,76,60,76,0,76,0,94,0,94,0,94,60,94,60,76,60
:ClrDraw
:For(A,1,44,4
:Line(Ans(A),Ans(A+1),Ans(A+2),Ans(A+3
:End
:{59,54,52,47
:For(A,1,4
:Pt-On(77,Ans(A
:Pt-On(93,Ans(A
:End
:{1,1,1,60,N-1,1,N-1,60
:For(A,1,8,2
:Pt-On(Ans(A),Ans(A+1
:End
:Line(3,16,N-3,16
:Line(3,59,N-3,59
:(N-1)/12→N
:For(A,7,7N,7
:{A-5,4,A,4,A,11,A-5,11,A-5,4
:For(B,1,7,2
:Line(Ans(B),Ans(B+1),Ans(B+2),Ans(B+3
:End
:End
:Text(47,78,"BEST
:Text(54,78,"= ",∟MS(2+∟MS(1
:{1,N→dim([J]
:[J]→[H]
:Fill(1,L1
:DelVar VDelVar C1→B
:{0→L4
:Lbl I
:L1(V+1→R:C+1→C
:2+dim(L4→dim(L4
:For(A,0,N-1
:Text(52,7A+3,L1(A+1
:End
:Repeat max(K={105,45
:Text(52,7V+3,R
:getKey→K
:R+(K=25)-(K=34→R
:If max(K={92,93,94,82,83,84,72,73,74:Then
:2-(K=92)+(K=94)+2(K=82)+3(K=83)+4(K=84)+5(K=72)+6(K=73)+7(K=74
:If Ans≤P:Ans→R
:End
:If not(R:P→R
:If R>P:1→R
:If B xor max(K={24,26
:Then
:7V
:Pt-Change(Ans+4,2
:Pt-Change(Ans+5,1
:Pt-Change(Ans+6,2
:Pt-Change(Ans+4,13
:Pt-Change(Ans+5,14
:Pt-Change(Ans+6,13
:End
:DelVar BDelVar YIf max(K={24,26,105:Then
:R→L1(V+1
:V+(K=26)-(K=24→V
:If V=N:0→V
:If V<0:N-1→V
:L1(V+1→R
:1-(K=105→B
:End
:If 6<Cmax(K={21,31:Then
:L-(K=21 and L)+(K=31 and L<C-7→L
:Lbl B
:For(A,1,6
:For(K,1,N
:Text(7A-3,7K-4,[J](A+L,K
:End
:If ∟MS(9:Then
:Y=9
:dim(L4)-1-2(A+L)+3Ans+not(Ans
:Text(7A-3,7N+5(N>3),"□",L4(Ans-1),"┼",L4(Ans
:Else
:7N+4
:For(K,1,N
:Ans+3
:Pt-Off(Ans,63-7A,2
:Pt-Off(Ans,63-7A
:Pt-On(Ans,63-7A,[H](A+L,K
:End
:End
:End
:If Y=9:Goto C
:End
:End
:If K=45:Goto M
:DelVar LN→dim(L1
:List►matr(L1,[I]
:augment([I],[J]T)T→[J]
:Text(3,82,C
:Text(10,82,15-C,"  
:N→dim(L3
:For(A,1,N
:1→K
:If L1(A)=L2(A
:Then
:2→K
:Else
:If max(seq(L2(B)=L1(A),B,1,N
:3→K
:End
:K→L3(A
:End
:List►matr(L3,[G]
:augment([G],[H]T)T→[H]
:For(A,1,N
:If 2=L3(A:1+L4(2C→L4(2C
:If 3=L3(A:1+L4(2C+1→L4(2C+1
:End
:If C<7:Then
:For(A,0,N-1
:Text(46-7C,7A+3,L1(A+1
:End
:If ∟MS(9
:Then
:Text(46-7C,7N+5(N>3),"□",L4(2C),"┼",L4(2C+1
:Else
:For(A,1,N
:Pt-On(7N+3A+4,14+7C,L3(A
:End
:End
:Else
:9→Y
:Goto B
:Lbl C
:End
:DelVar BIf N=sum(L2=L1 or C=15:Then
:Horizontal 10
:For(A,11,51
:Line(0,A,94,A,0
:End
:Horizontal 52
:If C=15:Then
:Text(12,10,"THE CODE WAS :
:Text(37,30,"YOU LOSE !
:Else
:Text(12,10,"CODE BROKEN ! :
:If C<∟MS(2+∟MS(1
:C→∟MS(2+∟MS(1
:End
:For(A,1,N
:Text(12,60+5A,L2(A
:End
:Text(21,25,"- T[r]i[e][s] :  ",C
:Text(28,25,"- B[e][s][t] :  ",∟MS(2+∟MS(1
:Text(45,10,"1: R[e][p]1[|a][yhat]
:Text(45,60,"2: Q|ui[t]
:Repeat max(B={92,93,45
:getKey→B
:End
:End
:If not(B:Goto I
:If B=92:Goto M
:Lbl Q
:ZStandard:AxesOn
:DelVar [J]DelVar [I]DelVar [H]DelVar [G]DelVar L1DelVar L2DelVar L4DelVar L3DelVar Str1DelVar ADelVar BDelVar CDelVar KDelVar NDelVar PDelVar RDelVar LDelVar YDelVar VOutput(1,1,"


32
TI-BASIC / [Solved] MathPrint font : 4x6 or 4x7 ?
« on: May 15, 2013, 08:41:14 am »
Hi,

I have a problem when I try to run a program (that works on all the calcs I have excepted on MathPrint OSes).

Please look at the pic I joined to this post, you will notice that the Text() command displays some 4x7 characters.

A very simple program can verify this:
Code: [Select]
For(A,1,62
Horizontal A
End
Text(52,3,1

But I'm SURE it is possible to draw regular 4x6 characters like on any 83/83+, I managed just now, but I don't remember how !  :mad:
Adding the CLASSIC command at the begining of the program does not solve the problem...


Do you know on which parameter the font size depends ?
Thank you very much !

EDIT: I found the answer on TI|BD: this is a bug of the Text() command. You can disable this effect by using a heavy and useless ":G-T:Full" at the begining of the program. That works.

33
Grammer / Re: [grammer] Problem with trigonometry
« on: May 12, 2013, 02:52:49 pm »
Thanks !

I don't understand your code, but thanks, that will be very good enough ! :)

34
Grammer / [grammer] Problem with trigonometry
« on: May 12, 2013, 12:44:49 pm »
In this TI-Planet topic (reading not required), we were making comparisons between Basic and Axe means to make a laser rotation like this:



I wanted to try to do this in Grammer, because it combinates the speed of Axe and the lightness of Basic :P

But, as Grammer has no "Degree" mode, i did not manage to make it.
My code looks like this, now:      (I added a patern to the line for fun)

Code: [Select]
:.0:Return
:0->A
:1->B
:ClrDraw
:Return->Z
:A+1->A
:call Lbl "D
:Text('0,0,A
:DispGraph
:Pause 10
:B=0:->B
:call Lbl "D
:Goto Z
:.D
:Rect('47,31,47+100*sin(A),37+100*cos(A),B+4,,2
:End

And... it works not. Can you explain me why ?
Thanks

35
Other Calculators / Re: Graphing and CAS calculators history
« on: April 27, 2013, 09:57:47 am »
Up :)
Corrections applied, and english version to be an nternational picture :)


Casio graphing calculators





Hewlett Packard graphing and CAS calculators





Texas Instruments graphing calculators





All Graphing calculators






36
Other Calculators / Graphing and CAS calculators history
« on: April 26, 2013, 02:47:07 pm »
EDIT: Corrected english version here (2D)

Hello Omnimaga,

This week I was working on the TI-Planet wiki, and I made some research on the releases and end marketing dates of the graphing calculators, since the world's first graphing calc, the Casio fx-7000G in 1985.

Then, HP started to produce awesome graphing calcs, with the first CAS of the world, the HP-28C (but not-really graphing).

Then, you can now see on this picture I finally made to recap my work all the graphing calculators made by TI, Casio &HP, since 1985 to 2013.

I didn't talk about not public models that were never released, like the TI-Nspire CAS +, PLT project (Fido, Toto, etc...), HP-Xpander...




Please notice that the Casio dates were very hard to find and set, different sources say different things, I sometimes made some statistics  :P

I would be glad if you report me all the errors you can find, it does not normally remains, critor also noticed me some details:

  • The Casio Graph 95 "SD" doesn't exist, it's only the Graph 95
  • We are not sure that the Casio Graph 35 and the Graph 35+ are different names for the same calculator with only an hardware revision. nonetheless that is what the Planet Casio wiki seems to say. And I think I have read somewhere that they both correspond to the international name of Fx-9750G Plus.
So, this picture is free, use it as you want ! Make good use.




Persalteas

37
Grammer / Re: Grammer Feature Requests
« on: April 26, 2013, 02:10:16 pm »
Sorry for interrupting the conversation (Soulthym ? Un étudiant français qui fait du Grammer ? Serions-nous deux ? :o ), but I have an idea...

I saw what you have done with your app 'Tutor' Xeda, and I thought it could be very useful in Grammer.

I explain:
Imagine the user sets a list of keycodes that would be automatically pressed the next time the calculator will be waiting for a signal from the keyboard, we could make:
  • pre-recorded answers to Inputs
  • cheatcodes in games to control automatically the player/object-to-move
  • We could use this to allow the player to make tiny macros in a game, without modifying the source code
In the same way, but much less useful because it can be easily done yet with getkey, create a function that records what key are pressed to make an history.

With this two functions, the user could record a manipulation and re-do it many times automatically.

38
TI-Nspire / Re: HIDn - USB HID drivers for the TI-Nspire
« on: April 20, 2013, 02:57:39 pm »
Works on the CX, yes !

very good !


39
TI Z80 / Re: The best Mastermind Deluxe ever !
« on: April 11, 2013, 02:41:26 pm »
Thanks ;) . Does anyone see 'INVALID DIM' errors ?

40
TI Z80 / Re: The best Mastermind Deluxe ever !
« on: April 11, 2013, 07:42:51 am »
Thanks :)
It's made by Photoshop + Paint + TokenIDE + TI-ScreenCapture , from the real mastermind logo.

41
TI Z80 / The best Mastermind Deluxe ever !
« on: April 11, 2013, 07:31:18 am »
Hey everyone, here is the program I made to win the TI-Concours 2013, 1st round, Basic z80 :P

Unfortunately, I'm only 4th  ;D  because the jury said there was DIM INVALID errors in the program.
But I can't find them, so please try it, and tell me where they are...

Like I said, it's a mastermind game, running well on TI-82/83/84 (choose the right program: 83p/8xp ).
It's only 4000 bytes, like the TI-Concours wanted. (3139+767+94=4000, I'm a math god ! :P program+pic+list)

features:

  • 2 players mode
  • IA mode
  • 4 levels of difficulty (the number of digits increases (from 5 to 9), and the number of 'colours' to find too (from 3 to 6))
  • You can allow or not codes with several same colours
  • High score saved in each game mode
  • Answers can be placed or not. (If not, the program tells you that you have 3'+' and 1'°' for example, but not which ones), like in the real mastermind game.
  • Awesome graphics, sure. ;)
  • Source included with comments (see here)


Please, try it, and give me some feedback !
Thanks a lot !

Download on TI-Planet

42
News / Re: Had a good April's Fools Day?
« on: April 04, 2013, 09:16:04 am »
Lol, Google is still at the 1st April  ;D


43
Hello everyone,

It has been time TI-Planet have not organized a contest, and here is the lack filled ;)
So we organize a contest, about 5 weeks, well mixing arithmetic and algorithmics.


Introduction:
In mathematics, a prime palindom number is a number which is both prime and palindromic.

A prime number is an integer that only admits two positive and integer divisors (which are 1 and itself).
This definition excludes 1, which has only one positive and integer divisor ; it excludes 0 too, which is divisible by all the positive integers.
For example 6 = 2 × 3 is not prime and 21 = 3 × 7 or 7 × 3 either. But 11 is prime because 1 and 11 are the only divisors of 11.
So, the prime numbers are, in order, 2, 3, 5, 7, 11...

A palindromic number is a number whose writing (in base 10) is read in the same way from left to right and from right to left.
For example, all the 1-digit numbers are palindromic: 0, 1, 2, 3, 4, 5, 6, 7, 8 and 9.
The 2-digit palindroms are: 11, 22, 33, 44, 55, 66, 77, 88 and 99.
101 is a 3-digit palindromic number.

So, the prime palindromic numbers are: 2, 3, 5, 7, 11, 101, 131...

Subject :
Make a program fastest as possible to find the n-th prime palindromic number.

Plateform :
The candidate will perform its participation:
  • TI-Nspire
  • TI-82Stats/83/76
  • TI-83+/84
Categories:
The candidate's production will be judged in one of those categories:
  • TI-Nspire
  • TI-82Stats/83/84/76
Languages :
  • TI-Basic Nspire
  • TI-Basic TI-82Stats/83/84/76
  • TI-83+/84 Assembly NO SHELL (So, you can participate with Axe compiled for no shell)
  • TI-82Stats/83/76 Assembly NO SHELL
NB: on TI-82Stats/83/84,TI-Basic and assembly combinations are allowed.

Constraints :
On TI-82Stats/83/84/76, the program will catch n in the 'Ans' variable, and will send the nth prime palindromic number as a result in Ans.
For example, to obtain the 42th prime, we will type:
  • TI-Basic program: 42:prgmPALPREM
  • TI-83+/84 Assembly program: 42:Asm(prgmPALPREM
  • TI-82Stats/83/76 Assembly program: 42:Send(9prgmPALPREM
In each case, the program should send the result 18181 in Ans, reusable in the home screen for calculations.


On TI-Nspire, the main program should be a function which take the n parameter and which sends the result. For example, palprem(42) should answer 18181.

YOU MUST NOT USE a pre-calculated list of prime palindromic numbers in your program, directly under penalty of disqualification.

YOU MUST NOT USE functions like isPrime() which would provide a direct response, it destroys the value of algorithmic thinking, and it would be unfair to those who don't have this function... ;)

The program MUST run on not-CAS TI-Nspires.

Notation :
The final score will be on 20 points, and the scale is as follows:
  • 3 points for the proper functioning of the program
  • 10 points for the fast execution of the program (it will be tested and compared to competitors on identical machines with identical languages)
  • 3 points for the respect of the rules
  • 4 points for an explanation
Jury :
Participations are rated on an equitable basis according to a common scale by a jury whose composition is as follows:
  • Adriweb
  • Critor
  • Laurae
  • Levak
  • Lionel Debroux
When ? :
The contest starts Monday the 1st of April 2013 and finishs Sunday the 12th of May, 23h59 (GMT+1)

How ? :
To participate, candidates must send to the email address [email protected] :
  • complete mailing address with first and last name
  • a valid email address for contact
  • the expected production (8xp, 83p, tns)
  • any other information or file deemed useful by the candidate concerning its production
The e-mail correctly send is taken as an entry.

Lots :
Through our partnership with TI-France and Jarrety, the winners of the contest (one winner per category) will be rewarded with:
  • 1st price: 1 calculator + 4 TI-Planet stickers
  • 2nd price: 1 poster TI + 3 TI-Planet stickers
  • 3rd price: 2 TI-Planet stickers
1st price in the Nspire category: a TI-Nspire CX (not CAS)
1st price in the TI-82/83/84 category : a TI-84 Pocket.fr

Complete rules:
The complete rules for this contest, legally registered to an usher, are available on
TI-Planet or the  UPECS website. (French)


See you soon on TI-Planet !

PS: I know I'm a bit late, because the contest has started...

44
Other Calculators / Re: Anybody ever saw that strange TI-89?
« on: March 28, 2013, 07:35:04 am »
I'm quasi-sure that this TI-89 exists, you may have noticed that Virtual TI (an emulator quite old now) uses this skin for the TI-89.

45
TI Z80 / Re: Worms' Land
« on: March 28, 2013, 06:52:23 am »
I have one question:
What does the "TI-84+" option enable ?
It's just to adjust the timing while pause moments ?

Pages: 1 2 [3] 4 5 ... 16