Forum TI-Planet.org

Ah, ça y est, j'ai trouvé une manière mixte de dire "Il gagne une TI-83 Plus.fr USB". Vous pouvez dire "sa participation lui vaut une TI-83 Plus.fr USB".
(oui, j'ai réfléchi dessus pendant 35 minutes )

Sinon, on peut troquer son lot ou pas ? Parce qu'à part pour tester des gros jeux multijoueurs, une 83+.fr USB ne me sera pas très utile vu que j'ai déjà une 84+SE et une 83+.fr. Donc si vous avez des 84 Pocket.fr en trop, je dis pas non (c'est moins bien qu'une 83+.fr USB mais au moins je ne l'ai pas encore dans ma collection).
Sinon, je ne me plains pas évidemment, je pourrais toujours m'en servir comme backup ^^

Oh !! Trop contente la grenouille !! Grand Merci !!!
(je rentre juste du boulot, là...)

Félicitations à tous les participants , ainsi qu'au jury pour leurs durs labeurs !!

Ah c'est vrai que ça été chaud de se battre contre la mémoire de la Ti !!!!

Petite question: les listings seront-ils postés

Chapeau les gagnants !

(Comment ça se passe pour les prix ? )

Les gagnants vont être contactés par mail avec les numéros de suivi pour les envois de calculatrices le cas échant

Voici le listing de mon programme Ngeekv3...pour les curieux

ClrAllLists ;effaçage des listes
Input "G1?",Str1 ;entrée de G1 dans une chaîne (afin d'accepter 0001 par ex)
Prompt K ;entrée de K
Delvar Y"⌞⌟ ;si k<1, n'affiche aucun résultat
If K>0:Str1+Ans→Str1 ;si k=1, affiche G1
If K>1:Then ;sinon lance le calcul de G2
Sub(Ans,1,1→Str2 ;tout premier caractère de G1
999→dim(L2:1→C ;prévoit un max de place pour L2 (qui contiendra G2)
For(X,2,length(Str1
While Str2=sub(Str1,X,1 ;en boucle tant que les caractères sont identiques
X+1→X ;(constitue un 1er groupe)
End
.1(X-C→C ;nb de caractères, divisé par 10 (optimisation)
int(Ans→L2(Y+1 ;inscrit les dizaines
Y+3-not(Ans→Y ;incrémente de 2 (3 si le nb a des dizaines)
expr(Str2→L2(Ans ;inscrit le caractère
10fPart(C→L2(Y-1 ;inscrit les unités (écrase les dizaines s'il n'y en avait pas)
X→C
sub(Str1,Ans,1→Str2 ;nouveau caractère (1er d'un nouveau groupe).
End ;2 autres modes de calcul sont prévus
K>3→F ;en fin de programme (pour Gk-1 et Gk)
For(A,3,K-2Ans ;afin de repousser 1 peu plus les limites imposées par les listes
Y→dim(L2:L2→L1 ;on y aura pas recours si l'on ne dépasse pas G3
ClrList L2 ;pour le moment, calcul des G3,G4...
999→dim(L2 ;prévoit un max pour L2
-1→Z
For(X,1,Y
Z+2(Ans≠L1(X→Z ;scrute la liste L1, écrit dans
1+L2(Ans→L2(Ans ;L2 le nb de caractères consécutivement identiques
L1(X→L2(Z+1 ;suivi du caractère en question
End
Z+1→Y
End
If F:Then
ClrList L1 ;Début du calcul de Gk-1 :
999→dim(L1 ;Déchiffre Gk-2 contenu dans L2
Ans→dim(L2 ;(de L2(Y vers L2(1 )
10^(3→Z ;et écrit ce qui deviendra Gk-1
For(X,Y,1,-1 ;à la fois dans L1 (les quantités)
Z-(Ans≠L2(X→Z ; et dans L2 (les caractères)
1+L1(Ans→L1(Ans ;et ce, en partant de L(999
L2(X→L2(Z ;afin de ne pas empiéter (tout de suite)
End ;sur le début de L2 (contenant Gk-2)
Delvar Y-1→R
For(X,Z,999 ;Début du calcul de Gk :
10+T(R=L1(X→T ;
Y+(Ans=10→Y ;lit tour-à-tour
L1(X→R ;L1 (les quantités)
T+Ans→L2(Y ;et L2 (les caractères)
10+T(R=L2(X→T ;contenu dans L1(Z,L2(Z jusque L1(999,L2(999
Y+(Ans=10→Y ;écrit le résultat dans L2 ainsi:
L2(X→R ;à partir de L2(1
T+Ans→L2(Y ;pour ne pas empiéter (tout de suite)
End ;sur L2(Z ... à L2(999
End
Y→dim(L2 ;délimite le résultat final
ClrList L1:L2 ;efface ce qui n'est plus utile
End ;afin de ne garder en mémoire que
Ans ;le résultat final

Félicitation aux gagnants !

Ayant oublié de participer, pour cause de surcharge de travail, je tente de faire un programme sans regarder la correction ^^ (sur TI z80 monochrome)

Bref. Très bonne idée le concours, à refaire plus souvent (pas forcément avec de beau lot, je comprends bien xD)

Wistaro wrote:(pas forcément avec de beau lot, je comprends bien xD)

J'ai déjà vu des dotations bien pires que ça, comme une 84 Pocket.fr pour la première place (pas trop mal), une 76.fr en deuxième place (complètement inutile pour les personnes participant dans la catégorie Axe) et pour la troisième place... rien. Alors qu'ici, même le lot du troisième est meilleur que le lot du premier du concours mentionné plus haut, et même le quatrième gagne quelque chose dans certaines catégories.

Mais de toute façon, il n'y a pas QUE les lots dans les concours
Sinon, je n'aurais pas participé (ayant déjà une CX CAS et une 84+SE entre autres). C'est aussi pour se mesurer aux autres, voire se mesurer tout court, savoir ce qu'on sait faire même sans se comparer aux autres. C'est d'ailleurs pour ça qu'il est intéressant d'avoir une longue période de temps, on n'est pas en train de se dépêcher au détriment de nos résultats scolaires "juste" parce que le concours ne dure qu'une semaine.

Je ne critiquais pas les lots du concours, bien au contraire !

Je disais juste que il faudrait refaire des concours, avec des lots moins important voire absent.

Voilà, les comptes premium ont été distribués aux gagnants respectifs

Sont expédiées à ce jour:

• la CX CAS de TheMachine02
  (pour l'autre CX CAS, demander à Adriweb)
• la TI-83 Plus.fr USB de Linkakro

Pour les posters, demander à Adriweb.

Normalement le site colissimo.fr devrait vous informer automatiquement du suivi par courriel - vérifiez voir boîte à spam au besoin.
Si ce n'est pas le cas, n'hésitez pas à nous demander ce numéro pour un suivi manuel.