Seuls les membres ayant 30 points peuvent parler sur le chat.

Forum Casio - Projets de programmation


Index du Forum » Projets de programmation » Les puzzles de Simon Tatham
ZezombyeHors ligneRédacteurPoints: 1652 Défis: 13 Message

Les puzzles de Simon Tatham

Posté le 06/10/2018 18:55

Si quelqu'un veut bien, ce serait sympa de recréer ces puzzles en basic (voire en C si c'est pas possible) :

https://www.chiark.greenend.org.uk/~sgtatham/puzzles/


HackcellEn ligneMembrePoints: 1258 Défis: 11 Message

Citer : Posté le 06/10/2018 19:04 | #


on a un topic gentiment créé pour ca
https://www.planet-casio.com/Fr/forums/topic15234-3-La,Boite,a,Idees,!.html
I usually spend meow time cosplaying as a diligent student...
So it can get pretty stressful.
That's exactly why PC is such a happy place for meow to be ⭐
MassenaHors ligneRédacteurPoints: 1084 Défis: 6 Message

Citer : Posté le 06/10/2018 19:36 | #


La vache y'a du boulot pour celui qui s'y met
Peace was never an option. - Untitled goose game, 2019
KikoodxHors ligneMembrePoints: 1844 Défis: 11 Message

Citer : Posté le 17/10/2018 12:55 | #


J'aime beaucoup Twiddle (et il n'est pas trop complexe à coder je pense), je vais peut être essayer d'en faire une petite version
Par contre je vais devoir m'intéresser au mode graphique

Ajouté le 17/10/2018 à 14:53 :
Pas la peine finalement ! Plein de Locate !
La version Lite est théoriquement fonctionnelle, problème : je n'arrive pas à résoudre le puzzle

Ajouté le 20/10/2018 à 20:03 :
Voilà, je mets le code ici si ça intéresse quelqu'un (quand je serais sur mon PC je l'uploaderai sous CeCILL)
Twiddle 3×3
Youaip c'est en brut.
Locate 20,1,"…"
File2
9→Dim List1
For 1→A To 9
Do
RanInt#(1,9
LpWhile List1[Ans
Next
Si
List1→List2
If G=72
Then List2[4→List1[5
List2[5→List1[8
List2[7→List1[4
List2[8→List1[7
IfEnd
If G=52
Then List2[5→List1[6
List2[6→List1[9
List2[8→List1[5
List2[9→List1[8
IfEnd
If G=74
Then List2[1→List1[2
List2[2→List1[5
List2[4→List1[1
List2[5→List1[4
IfEnd
If G=54
Then List2[2→List1[3
List2[3→List1[6
List2[6→List1[5
List2[5→List1[2
IfEnd
For 1→A To 3
For 1→B To 3
Locate 3B+5,2A,List1[B+3(A-1
Next
Next
Locate 20,1,"?"
Do
Getkey→G
LpWhile Not G
While Getkey
WhileEnd
Locate 20,1,"…"
0→R
For 1→A To 9
A≠List1[A⇒1→R
Next
LpWhile R
File1
ClrTxt
"Congratz !"

DrakHors ligneRédacteurPoints: 1925 Défis: 40 Message

Citer : Posté le 21/10/2018 10:32 | #


Cela semble assez simple. Cool !
Eon the Dragon : version 1.2
Let's have a look!
Marre de ces RPGs qui t'imposent des classes, des compétences et des sorts ? Crée tes propres capacités sur Eon the Dragon ! Des monstres, des dragons et des combats aussi épiques que difficiles t'attendent !
Un RPG unique et immense t'attend ! Joue dès maintenant à Aventura, le Royaume Poudingue !
Vous aussi, soyez swag et rejoignez Planète Casio !

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2020 | Il y a 132 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd