début programme
b <- 42 //le nombre de bâtons de départ
j <- 1 //Joueur
tant que b > 1 // Anapu bâtons ? Joueur suivant gagne !
.disp b
.disp "Bâtons"
.si j == 2 alors
..disp "Joueur 2"
..j <- 2
.sinon
..disp "Joueur 1"
..j <- 1
.fin si
.c <- 1
.tant que c > 2 ou c <1
..disp "Bâtons à retirer (1-3) ?"
..input c
.fin tant que
.b<- b - c
fin tant que
si j == 2 alors
.disp "Joueur 1 a gagné !"
sinon
.disp "Joueur 2 a gagné !"
fin si
fin programme
Trivial :D
Ce qui doit peser le plus, ce sont les textes :D
450 octets en texte brut, commentaires inclus. Tokenisé, ont doit avoir à peine le double des textes :D