Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.

Forum Casio - Projets de programmation


Index du Forum » Projets de programmation » Les puzzles de Simon Tatham
Zezombye En ligne Rédacteur Points: 1739 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/


Hackcell Hors ligne Membre Points: 1405 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
Massena Hors ligne Rédacteur Points: 1894 Défis: 11 Message

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


La vache y'a du boulot pour celui qui s'y met
Kikoodx Hors ligne Labélisateur Points: 2726 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 !"

Protip
Ne me remerciez pas
Drak Hors ligne Rédacteur Points: 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 !

LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2021 | Il y a 44 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