Bases pour Scheme

Version imprimable

Bases pour Scheme

bonjour, je dois creer une base pour un jeu de morpion en scheme. Ma base a l'air de fonctionner mais j'ai un soucis car la base ne renvoie pas ce que je veux. Le but de cette base est de faire rentrer au joueur sa liste de pions présents dans le jeu (les pions etant numéroté de 1 a 9 suivant leur position) et la liste des pions de l'ordi. Et la base doit leur renvoyer le plateau de jeu sous forme d'un tableau de 3 ligne 3 colonne avec les pions placés. Ma base ne renvoie pas la liste des pions sous forme de tableau et je pense que c'est parce que j'utilise "caadr". Pouvez vous m'aider?
Voici ma base ainsi que les fonctions que j'utilise pour la faire fonctionner:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
;;FONCTION CONCAT QUI MET BOUT A BOUT DEUX LISTES 
(define (concat l1 l2)
  (if (null? l1) l2
      (cons (car l1) (concat (cdr l1) l2))))

;;LISTEMAGIQUE QUI EST LA LISTE DU CARRE MAGIQUE
(define listemagique '("4 " "9 " "2 " "3 " "5 " "7 " "8 " "1 " "6 "))

;;FONCTION TABLEAU QUI VA "DESSINER" LE JEU DU MORPION AVEC 3 LIGNES ET 3 COLONNES
(define (tableau liste colonne)
  (cond ( (null? liste) (newline) )
        ( (eq? 1 colonne) ( begin (display (car liste)) (car liste) ) ( newline ) (tableau (cdr liste) 3))
 (else ( begin
     (display (car liste))
     (car liste)
     (tableau (cdr liste) (- colonne 1))))))


;; BASE 

(begin (display "donnez la liste de vos pions ainsi que ceux de l'ordinateur présents sur le plateau de jeu correspondants aux nombres du carré magique ainsi que base1, base2 ou base3 suivant dans quel niveau de jeu vous voulez jouer, dans la formule (morpion listejoueur listeordinateur base)") 
 (newline)
 (tableau listemagique 3))

;;la base est sous la forme d'une liste de cases deja remplies dans le jeu pour le joueur et pour l'adversaire et elle va renvoyer un nouveau plateau de jeu dans lequel l'ordinateur aura posé son pion (de la forme ( (liste des pions du joueur) (liste des pions de l'ordinateur) )  -->  (tableau du nouveau plateau de jeu) 
                              
(define base1 '(
                ((1) ( '("_ " "_ " "_ " "_ " "O " "_ " "_ " "X " "_ ")  ) ) ) )
               
             
(define (moi liste1 liste2)  
  (concat liste1 liste2))
 
(define (morpion etat1 etat2 rules) 
  ;; si plus de regles, reste dans le meme etat (ignore percept)
  (if (null? rules) '(etat1 etat2)
      ;; sinon on regarde la premiere regle
      (let* ( (first (car rules))
              (reste (cdr rules))
              (ok    (equal? (moi etat1 etat2) (car first) )))
        ;; si la premiere regle est applicable, on le fait
        ;; sinon on regarde les autres de regles
        (if ok (nextstate etat1 etat2 first) (morpion etat1 etat2 reste)))
      )
  )

(define (nextstate etat1 etat2 list)
  (tableau (cadr list) 3 ) )

;; le tableau ne marche pas.

merci

11/01/2008, 23h20
Garulfo

Commentaires généraux
Je ne vois pas ce que tu veux dire par « le tableau ne marche pas » à la fin de ton programme. Tu ne l'as pas appelé c'est normal.
Quand tu fais « (tableau listemagique 3) » elle fonctionne bien. Elle affiche ce qu'il y a dans ta liste... au passage c'est donc une mauvaise idée de l'appeler tableau. Tu devrais l'appeler afficher-tableau ou quelque chose du genre. Ça éviterait que tu dises LE tableau alors que c'est LA fonction tableau

Par contre c'est quoi cette fonction moi ??
C'est pas un nom de fonction ça.
Et qu'est ce que base1 ?
Finalement à quoi servent nextstate et morpion ?
nextstate a deux arguments inutiles. À quoi servent-ils ?

Commentaires pour ta question
Comment tableau pourrait-elle afficher quoique ce soit d'autre que le contenue de la liste ? Quel est l'algorithme que tu voulais implémenter ?
Parce que là je ne vois pas. Tu dis que c'est peut-être à cause du caadr mais je ne vois aucun appel à cette fonction.
12/01/2008, 10h44
poupasol

En fait le prof nous a donné une base en exemple avec les fonction moi, evolue (que j'ai renommée morpion) et nextate. Je les ai modifiée pour pouvoir les faire marcher avec mon jeu de morpion. Mon seul souci c'est qu'a la fin la base nous affiche le tableau de la liste et non ce qu'il y a dans la liste. Comme si on faisait (tableau '( 1 2 3 4 5 6 7 8 9) 3), la ça affiche la liste sous forme d'un "tableau".
12/01/2008, 10h47
poupasol

En fait pour faire fonctionner la base, il faut lui donner la liste des pions dans le jeu.
Pour l'instant je n'ai créé qu'une regle dans la base, celle ou il n'y a qu'un pion du joueur placé dans le jeu, situé dans la case 1. Pour appeler la base il faut faire (morpion '(1) '() base1). Et c'est la que ça affiche la liste et non pas le tableau de la liste.
12/01/2008, 18h55
Garulfo

Masi tu n'as pas répondu à beaucoup de mes questions.
Par exemple, pourquoi nextstate a-t-il deux paramètres inutiles ?
Et que doivent faire ces fonctions ?

Je n'ai pas trop envie de me lancer sans avoir cette information pour ne pas chercher pour rien.
12/01/2008, 19h22
poupasol

Finalement je n'ai plus besoin de ce tableau, meme si j'aurais bien aimé comprendre pourquoi ça n'affichait pas la liste sous forme de tableau..
Le prof nous a donné une base avec les fonction qui servent a l'utilisation de cette base, je n'ai fait que reprendre ces fonctions (moi, morpion et nexstate) qui apparement etaient indispensable au fonctionnement de la base, moi je ne sais pas si on en a reelement besoin, je les ai comprises mais je ne saurai pas les refaire :D.
Maintenant j'ai changé de base donc plus besoin de tableau mais si quelqu'un a une reponse a ma question a propos de l'affichage du tableau qu'il m'en fasse part pour ma culture perso... Sinon ça va me perturber pendant des semaines :lol:
12/01/2008, 20h26
Garulfo

Citation:

Envoyé par poupasol

Finalement je n'ai plus besoin de ce tableau, meme si j'aurais bien aimé comprendre pourquoi ça n'affichait pas la liste sous forme de tableau..[...]

Simplement parce que tu ne faisais rien pour probablement.
Il me semble qu'elle faisait un affichage correct.
Mais sans savoir ce que tu voulais vraiment (les spécifications) et sans ton algorithme voulue (ta conception) on peut difficilement te dire ce qui cloche dans ton raisonnement.
12/01/2008, 21h21
poupasol

ce que je voulais c'est que quand on fait appel a la base par la fonction morpion, on regarde chaque regle si elle correspond a celle calculée par la fonction moi par rapport a ce qu'on donne comme information, et si aucune regle ne correspond on renvoie ce qui est donné dans la fonction morpion, et si on trouve une regle qui correspond on fait ce qui est donné a la suite de la regle.
Moi au depart je n'avais donné qu'une regle, et je voulais que quand la base reconnait cette regle elle affiche la liste des pions sous forme de tableau.
13/01/2008, 02h56
Garulfo

Citation:

Envoyé par poupasol

ce que je voulais c'est que quand on fait appel a la base par la fonction morpion, on regarde chaque regle si elle correspond a celle calculée par la fonction moi par rapport a ce qu'on donne comme information, et si aucune regle ne correspond on renvoie ce qui est donné dans la fonction morpion, et si on trouve une regle qui correspond on fait ce qui est donné a la suite de la regle.
Moi au depart je n'avais donné qu'une regle, et je voulais que quand la base reconnait cette regle elle affiche la liste des pions sous forme de tableau.

Euh mais alors quel est le rapport avec la fonction tableau ?

Désolé mais je suis perdu :mrgreen:
13/01/2008, 10h02
poupasol

La fonction tableau je voulais l'utiliser pour que quand on appelle la base, elle nous affiche la deuxieme partie de la regle sous forme de tableau. Mais sauf que j'ai certaines regles qu'il faudrai que j'affiche sous forme de tableau (en fait ça represente le plateau de jeu du morpion) et d'autres regles ou on affiche une phrase comme par exemple "le jeu est fini".
13/01/2008, 19h37
Garulfo

Hum désolé mais je ne comprends toujours pas.
En tout cas, si tu dis que toi tu as réussi à obtenir ce que tu veux, c'est déjà ça.

;)