Hier, un fil est apparu où quelqu'un se demandait comment coder un jeu de dé en prolog... Curieusement il a disparu.
Comme je suis rouillé dans ce langage, j'ai fait une version simpliste pour me remémorer des vieux souvenirs et lui montrer comment coder l'équivalent des boucles.
En attendant de résoudre le mystère du fil perdu, voici au cas où cela pourrait être utile :
Et on fait jeu(10, 2) pour commencer avec 10€ et jouer 2€ jusqu'à épuisement du capital initial.Code:jeu(T, M) :- T =< 0, write('fini'). jeu(T, M) :- T > 0, affiche(T), random(X), tir(T, M, X). tir(T, M, X) :- X >= 0.5, T1 is T - M, jeu(T1, M). tir(T, M, X) :- X < 0.5, T1 is T + M, jeu(T1, M). affiche(T) :- write('je joue avec '), write(T), nl.
-----