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 » Quatrième Concours FireProg (81 réponse(s))

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

Invité

Ecrit le: Jeudi 24 février 2005 à 10:45

C'est quoi la taille en pixels du laby ?

./Post n°39 Marquer comme non lu.

LionelA

Ecrit le: Jeudi 24 février 2005 à 11:08

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

Bon voilà je vais t'envoyer mon programme Dari :
Il suppose que le PIC du labyrinthe est correctement chargé dans l'écran Graph avant de demarrer (il n'y a pas le code pour mettre les axes off, effacer l'ecran et charger le PIC)
Sur mon laby il met 8 min environ (mais il ne trouve pas une solution unique car il y a des boucles)
Il fait 355 octets non tokenisé

Qui dit mieux

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°40 Marquer comme non lu.

Dari

Ecrit le: Jeudi 24 février 2005 à 11:14

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

!! Respect, mon programme met 41 min 14s pour mon laby de sadique. Et il fait 800 octets je crois.
Sinon, je vous ai donné un bout en plein milieu, mais vous avez compris le système. Pour tes boucles, je sais pas. Je crois qu'il y en a une? Tu verras ! T'à qu'à le préparer puis voilà.
Sinon, le laby remplit tout l'écran du graph, est déjà chargé, et n'a pas d'axes. Il fait tout l'écran (c'est à dire 158 de large et 76 de haut).

"iPod, therefore, I am."

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

./Post n°41 Marquer comme non lu.

Dari

Ecrit le: Jeudi 24 février 2005 à 11:35

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Bonne nouvelle pour tous, Lionel n'a pas encore gagné ! Son programme a tourné 7 minutes, mais ça reste toujours un labyrinthe. Je crois que j'ai compris ce que signifiait boucle. Donc oui, il y en a, parce que je me suis amusé à planque les lettre F, U, C et K dans la map, et il y a un + aussi caché. Donc à la fin, ben? C'est le darwah !

"iPod, therefore, I am."

./Post n°42 Marquer comme non lu.

LionelA

Ecrit le: Jeudi 24 février 2005 à 11:53

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

Bon ben tant pis, je n'ai pas plus de temps pour essayer de faire un algo comme tout le monde fera

EDIT : et si tu fait tourner ton algo apres avoir fait le mien ? il met combien de temps ??

-Edité le Jeudi 24 février 2005 à 11:54 par LionelA-

./Post n°43 Marquer comme non lu.

Dari

Ecrit le: Jeudi 24 février 2005 à 12:12

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Euh je sais pas j'ai dégagé ton programme une fois le test fini

mais à mon avis pas longtemps, vu que ça a simplifié le problème.
Sinon, essaye quand même de faire quelque chose. Il n'y a pas un seul algo dans ce topic.

"iPod, therefore, I am."

./Post n°44 Marquer comme non lu.

bobti89

Ecrit le: Jeudi 24 février 2005 à 12:14

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Le mien doit mettre dans les 10 heures

Mais il trouve le plus court chemin #gni#

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°45 Marquer comme non lu.

LionelA

Ecrit le: Jeudi 24 février 2005 à 12:30

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

Non je prefère plutôt donner mon code aux autres (code qui supprime le branches se terminant pas par une boucle)
Il s'execute en 7 min sur le labyrinthe officiel donc à vous de voir si ca vous fait gagner + que 7 min dans vos algos, bonne chance à tous

laby()
Prgm
Local i,j,n,r,c
PxlOff 1,0
PxlOff 75,158
For i,1,75,2
For j,1,157,2
If pxlTest(i,j)
Goto s
i»r:j»c
While true
{pxlTest(r,c-1),pxlTest(r,c+1),pxlTest(r-1,c),pxlTest(r+1,c)}»n
sum(seq(when(n[k],0,k+2),k,1,4))»n
If n>6
Goto s
PxlOn r,c
If n=0
Goto s
If n=3
c-1»c
If n=4
c+1»c
If n=5
r-1»r
If n=6
r+1»r
EndWhile
Lbl s
EndFor
EndFor
EndPrgm

./Post n°46 Marquer comme non lu.

Folco

Ecrit le: Jeudi 24 février 2005 à 13:19

Administrateur

Groupe: Staff de Ti-Gen

Messages: 1286

Membre n°181

Inscrit le 05 avril 2004

C'est long un pixeltest, non? Pourquoi ne pas scanner tout le laby pour travailler ensuite sur une matrice (ou encore mieux, sur une liste?) Naturellement, ça pourrati être désavantageux pour des solutions extrèmes, mais dans certains cas...

<<< 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°47 Marquer comme non lu.

bobti89

Ecrit le: Jeudi 24 février 2005 à 15:23

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

LionelA>Excellent ton algo

Je l'ai même optimisé un peu !!!

{pxlTest(r,c-1),pxlTest(r,c+1),pxlTest(r-1,c),pxlTest(r+1,c)}»n

devient

pxlTest({r,r,r-1,r+1},{c-1,c+1,c,c})»n

Ca va me permettre d'accélérer mon algo !!!

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°48 Marquer comme non lu.

Dari

Ecrit le: Jeudi 24 février 2005 à 16:14

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Héhé et While true devien Loop

"iPod, therefore, I am."

./Post n°49 Marquer comme non lu.

LionelA

Ecrit le: Jeudi 24 février 2005 à 17:21

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

ah ouais pour le pxltest(list, list) je connaissais pas

sinon ouais loop endloop
puis on vire le lbl s et on met cycle pour le 1er goto s et exit pour les 2 autres

./Post n°50 Marquer comme non lu.

Dari

Ecrit le: Vendredi 25 février 2005 à 10:18

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

C'est un processus activement recherché par les programmeurs qui s'appelle optimisation.

"iPod, therefore, I am."

./Post n°51 Marquer comme non lu.

bobti89

Ecrit le: Vendredi 25 février 2005 à 10:40

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

LionelA>Je pense que le premier PxlTest est en trop, ca va plus faire ralentir que gagner de la vitesse !

Sinon pour mon algo, sur le laby de LionelA, après le passage de son algo (10 min), mon algo met 5 min à trouver une solution.

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°52 Marquer comme non lu.

LionelA

Ecrit le: Vendredi 25 février 2005 à 10:47

Modérateur général

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 947

Membre n°206

Inscrit le 19 avril 2004

bah c'est cool !!
je t'ai fait gagner 9h45

-Edité le Vendredi 25 février 2005 à 10:47 par LionelA-

./Post n°53 Marquer comme non lu.

bobti89

Ecrit le: Vendredi 25 février 2005 à 11:01

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Mais j'ai un peu changé l'algo quand même

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°54 Marquer comme non lu.

bobti89

Ecrit le: Vendredi 25 février 2005 à 11:12

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Voilà ce que ca donne :
Screenshot
(Un peu long quand même

)

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°55 Marquer comme non lu.

Invité

Ecrit le: Vendredi 25 février 2005 à 11:29

Non mais attendez que j'ai fini le mien !

./Post n°56 Marquer comme non lu.

Dari

Ecrit le: Vendredi 25 février 2005 à 14:40

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Bobti89, je voudrais pas être méchant, mais mon labyrinthe est "un peu" plus compliqué que le tien. Donc peut-être que ça ne fera pas 15min.

"iPod, therefore, I am."

./Post n°57 Marquer comme non lu.

bobti89

Ecrit le: Vendredi 25 février 2005 à 17:26

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Je ne dis pas le contraire.
Mais une fois l'algo de LionelA passé (càd toujours environ 10 min), je ne pense pas que ton laby soit beaucoup plus compliqué (en tout cas j'espère

)
Donc je pense que ton laby sera résolu en moins de 30 min

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici