Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » Concours - Contests » Concours FireProg » Premier Concours FireProg (67 réponse(s))

./REPRISE DU POST PRECEDENT (post n°19) Marquer comme non lu.

ZogStriP

Ecrit le: Dimanche 5 septembre 2004 à 13:03

Membre: Disciple

Messages: 106

Membre n°363

Inscrit le 14 juillet 2004

Et préciser ce que veut dire cryptage !
1) Opération mathématique ?
2) Texte écris d'une autre manière ?
3) Autres...

PS : Moi je préfererais carrément changer de sujet, parce que c'est "un peu trop simple" et que les meilleurs codes sont déjà postés ! Faudrais plutôt un truc basé sur l'algorithmique par exemple, là au moins il y aura plus de choix !

./Post n°20 Marquer comme non lu.

Dari

Ecrit le: Dimanche 5 septembre 2004 à 17:55

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Alors, pénalité de 1 point !
Sérieusement, je n'avais pas vu cette possibilité. Donc, cryptage svp. Quel que soit e cryptage, d'ailleurs (il suffit juste qu'on ne puisse pas le lire en clair dans la source.

J'édite mon premier post pour la date. Grouille toi AS?

"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

./Post n°21 Marquer comme non lu.

kaz00

Ecrit le: Dimanche 5 septembre 2004 à 18:11

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

moi qui allez sortir un programme avec mon adaptation de Vigenere...

./Post n°22 Marquer comme non lu.

Folco

Ecrit le: Dimanche 5 septembre 2004 à 20:57

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

Je pense que c'est plus rapide que tous les autres (ils ont tous oublié que "abcdef"=x est un booléen):

fireprog(p)
func
local q,x
""->q
for x, 1, min(dim(p),8)
q&char(ord(mid(p,x,1))-1)->q
endfor
q="EhqdOqnf"
EndFunc

deux choses:
->une fonction retourne la dernière valeur évaluée, donc pas la peine de faire 'return xxx'
->if <condition> alors <vrai> sinon <faux> est équivalent à condition
-Edité le Dimanche 5 septembre 2004 à 21:09 par Martial Demolins-

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°23 Marquer comme non lu.

kaz00

Ecrit le: Dimanche 5 septembre 2004 à 20:59

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

Tu m'apprends un truc la, je n'utilise jamais les fonction, il est peut-etre temps que j'y pense.

./Post n°24 Marquer comme non lu.

geogeo

Ecrit le: Dimanche 5 septembre 2004 à 21:02

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4256

Membre n°3

Inscrit le 29 janvier 2004

Le mien met 0,07 seconde à s'executer

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°25 Marquer comme non lu.

LionelA

Ecrit le: Dimanche 5 septembre 2004 à 21:07

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

geogeo, comment tu chronometre le temps ? j'ai essayé de faire un prog pour ca mais j'ai pas trop réussi...

Auteur de Mode7 Engine pour ti68k
Auteur de F-ZERO for TI68k
Membre de Orage Studio
Mon site perso : http://www.tigen.org/lionela/
Le gite de mes parents à coté de Narbonne :
http://chaletdenis.free.fr/

./Post n°26 Marquer comme non lu.

Folco

Ecrit le: Dimanche 5 septembre 2004 à 21:10

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

geogeo :
Le mien met 0,07 seconde à s'executer

A condition qu'on ne lui passe pas une chaine de 500 caractères en argument.
Ma fonction est blindée contre ça.

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°27 Marquer comme non lu.

geogeo

Ecrit le: Dimanche 5 septembre 2004 à 21:17

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4256

Membre n°3

Inscrit le 29 janvier 2004

Euh même avec 500 caractères tu arriveras 1,61 secondes.
Pour calculer le temps mon interpréteur connait la fonction TIMER qui renvoie le temps écoulé depuis la mise en route du programme.

D'ailleur je viens de découvrir un bug avec le trie de la pile dans l'expression:

Print "Temps d'execution:"'(Timer-T)/200

Dari> Si je dérange à mettre du code GFA-Basic dans ce concours tu me le dit, mon but est principalement de montrer à quoi correspond un code bien optimisé en GFA-Basic de tel façon à pouvoir montrer la puissance du langage est d'inviter du monde à l'utiliser. Mon but n'est pas de participer au concours.

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°28 Marquer comme non lu.

LionelA

Ecrit le: Lundi 6 septembre 2004 à 01:32

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

Ok pour le timer. (je vais essayer de finir le mien pour aider Dari à chronometrer les temps des progs)

Voila une autre version avec une approche completement différente : (algo recursif)

fire(s)
Func
when(ord(s)+1=ord(right("GjsfQsph",dim(s))),when(dim(s)=1,1,fire(right(s,dim(s)-1))),0)
EndFunc

C'est crypté, et ca plante pas même si on lui passe une chaine contenant le char 255 ou 0.
Ca retourne 0 quand c'est faux et 1 quand c'est bon

Edit : en fait c'est pas totalement juste (une sucette a celui qui trouve pourquoi

)
-Edité le Lundi 6 septembre 2004 à 12:37 par lionelA-

./Post n°29 Marquer comme non lu.

Folco

Ecrit le: Lundi 6 septembre 2004 à 18:16

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

C'est une récursion profonde, avec un gros argument, ça plante. Et heureusement pour toi, le basic est tolérant (i.e.: right("",1)="").

De plus, les essais suivants seront valides:

fire("g")
fire("og")
fire("rog")
fire("Prog")
...
fire("ireProg")

alors qu'ils devraient être rejetés.

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°30 Marquer comme non lu.

LionelA

Ecrit le: Lundi 6 septembre 2004 à 18:25

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

C'est une récursion profonde, avec un gros argument, ça plante.

T'as essayé ? je crois pas que ca se plante puisque la fonction retourne 0 direct si la comparaison a échoué. le max de recursion va jusqu'à 8 niveaux (enfin je crois)

right("",1)=""

ben c'est prevu alors j'utilise !
C'est comme pour ord("FireProg") = ord("F")

fire("g")
fire("og")
fire("rog")
fire("Prog")
...
fire("ireProg")

Bravo c'est bien ça le truc qui marche pas ! (t'esperais avoir la sucette ??

)

./Post n°31 Marquer comme non lu.

Folco

Ecrit le: Lundi 6 septembre 2004 à 18:51

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

LionelA :

C'est une récursion profonde, avec un gros argument, ça plante.

T'as essayé ? je crois pas que ca se plante puisque la fonction retourne 0 direct si la comparaison a échoué. le max de recursion va jusqu'à 8 niveaux (enfin je crois)

right("",1)=""

ben c'est prevu alors j'utilise !
C'est comme pour ord("FireProg") = ord("F")

c'est justement parceque right("",1)="" que ça ne marche pas... (ta récursion ne se termine que si la chaine argument est vide (when(dim(s)=1,1,fire(right(s,dim(s)-1))),0).
Mais de toute façon, 'memory error' avant (récursion profonde).

fire("g")
fire("og")
fire("rog")
fire("Prog")
...
fire("ireProg")

Bravo c'est bien ça le truc qui marche pas ! (t'esperais avoir la sucette ??

)

non pas trop en fait #gni#

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°32 Marquer comme non lu.

LionelA

Ecrit le: Lundi 6 septembre 2004 à 18:59

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

Martial Demolins :
c'est justement parceque right("",1)="" que ça ne marche pas... (ta récursion ne se termine que si la chaine argument est vide (when(dim(s)=1,1,fire(right(s,dim(s)-1))),0).

when(dim(s)=1,1,fire(right(s,dim(s)-1))),0)
La chaine n'est pas vide ! il reste le dernier element ! et puis j'ai jamais eu de memory error ??

./Post n°33 Marquer comme non lu.

Folco

Ecrit le: Lundi 6 septembre 2004 à 19:36

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

LionelA :

Martial Demolins :
c'est justement parceque right("",1)="" que ça ne marche pas... (ta récursion ne se termine que si la chaine argument est vide (when(dim(s)=1,1,fire(right(s,dim(s)-1))),0).

when(dim(s)=1,1,fire(right(s,dim(s)-1))),0)
La chaine n'est pas vide ! il reste le dernier element ! et puis j'ai jamais eu de memory error ??

t'as essayé avec une chaine de 500 caractères? (mais 60 devraient suffire).
le 0 que j'ai mis en gras n'est renvoyé qu'à la fin de la chaine (i.e.: après 500 passages).

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°34 Marquer comme non lu.

LionelA

Ecrit le: Lundi 6 septembre 2004 à 19:41

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

Je t'invite à continuer la conversation dans l'autre topic

pour pas squatter celui-ci qui est prévu pour poster les programmes.
(Je sais je me la joue un peu modo

)

./Post n°35 Marquer comme non lu.

LionelA

Ecrit le: Lundi 6 septembre 2004 à 20:23

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

Voila une nouvelle version:

when(ord(s)+1=ord(right("GjsfQsph",dim(s))),1+f(right(s,dim(s)-1)),0)->f(s)

renvoie 8 quand c'est bon, autre chose quand c'est pas bon.

Je crois bien que c'est le plus petit en taille que l'on puisse faire, et j'aimerais bien participer avec celui-ci (si c'est possible vu que j'en ai déjà posté 2 autres

)

./Post n°36 Marquer comme non lu.

Folco

Ecrit le: Lundi 6 septembre 2004 à 22:27

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

ah oui, là c'est pas mal

<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."

./Post n°37 Marquer comme non lu.

geogeo

Ecrit le: Lundi 6 septembre 2004 à 22:30

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4256

Membre n°3

Inscrit le 29 janvier 2004

Juste une petite précision, ce n'est pas parceque le programme fait une ligne qu'il sera forcément plus rapide que les autres programmes postés. Faut faire attention à ça.

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°38 Marquer comme non lu.

LionelA

Ecrit le: Lundi 6 septembre 2004 à 22:32

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

C'est sûr qu'il est moins rapide mais il est le plus petit !

:: Index » Concours - Contests » Concours FireProg » Premier Concours FireProg (67 réponse(s))

Pages : 2/4 |« « 1 [2] 3 4 » »|

Page générée en 48.27ms avec 18 requetes