Morpion deux joueurs

par Ruadh Sam 29 Aoû 2015 - 14:29

Bonjour à tous !

Voici le deuxième programme que je poste sur ce forum, qui m'a été inspiré par ceci : http://tout82.free.fr/forum/sujet.php?sujet=3093
Le but est de créer le morpion le plus optimisé possible et je vous présente donc le mien qui fait 299 octets.

Code:: :EffEcr :1->A :EffListe L1 :9->dim(L1 :"#!#! //# est une espace :For(I,1,2 :Disp Rép,"-+-+- :End :Disp Rép :Repeat prod(L1 :3-A->A :Repeat max(L2non(max(L1L2 :codeTouche={92,93,94,82,83,84,72,73,74->L2 :End :{0,1,2,0,1,2,0,1,2->L3 :max(L2L3->Z :TriDécroi(L3 :max(L2L3->X :sous-Chaîne("OX",A,1->Chaîne1 :Output(1+2X,2Z+1,Rép :L1+AL2->L1 :If max(A³={Rép(X+1)Rép(X+4)Rép(X+7),Rép(3Z+1)Rép(3Z+2)Rép(3Z+3),Rép(1)Rép(5)Rép(9),Rép(3)Rép(5)Rép(7 :Then :Output(8,1,Chaîne1+"#GAGNE //# est une espace :Stop :End :End :Output(8,1,"PARTIE NULLE

par **Wistaro** Mar 1 Sep 2015 - 12:39

Très belle Optimisation! Tres difficile de faire mieux Sad


TI-Planet	Espace-TI : Forum

Morpion deux joueurs

Morpion deux joueurs

Re: Morpion deux joueurs