IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Scheme Discussion :

Aide pour un projet


Sujet :

Scheme

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    scheme
    Inscrit en
    Janvier 2013
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : scheme
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Janvier 2013
    Messages : 1
    Points : 0
    Points
    0
    Par défaut Aide pour un projet
    Bonjour, je dois réaliser un jeu de morpion 100x100 en Scheme

    Je pense devoir faire une fonction qui me genere une liste de 10000 valeurs (0,1,2,3,4...)

    Deux problemes se posent :

    - Comment faire cette fonction??

    -Comment "garder" en memoire les changement effectué a cette liste??

    Merci d'avance.


    PROJET :

    (define (begin)
    (display "\n")
    (print " DEBUT DE LA PARTIE")
    (display "\n"))

    (define(end1)
    (display "\n")
    (print "FIN DE LA PARTIE")
    (display "\n \n")
    (print "LE GAGNANT EST : JOUEUR 1"))

    (define(end2)
    (display "\n")
    (print "FIN DE LA PARTIE")
    (display "\n \n")
    (print "LE GAGNANT EST : JOUEUR 2"))

    (define(end3)
    (display "\n")
    (print "FIN DE LA PARTIE")
    (display "\n \n")
    (print "AUCUN GAGNANT!!"))



    ; Fonction chapeau joueur 1.

    (define(joueur1 n l )
    (remplacer n 1 l'() 1))


    ; Fonction chapeau joueur 2.

    (define(joueur2 n l )
    (remplacer n 2 l'() 1))


    (define(remplacer numcase nv l l1 acc)
    (if(unpair l)
    '()
    (if(= acc numcase)
    (append (reverse l1)(cons nv (cdr l)))
    (remplacer numcase nv (cdr l) (cons (car l)l1)(+ acc 1)))))



    (define(unpair l)
    (if(pair? l)
    #f
    #t))


    (define(unequal n l)
    (if(equal? n l)
    #f
    #t))

    (define (side)
    3)

    (define(colonne)
    (print "Colonne ??")
    (read))

    (define(ligne)
    (print "Ligne ??")
    (read))

    ; x = colonne y = ligne.

    (define(map x y)
    (+ x (* y (side))))

    (define(val n l)
    (if(= n 0)
    (car l)
    (val (- n 1)(cdr l))))

    (define(grilledebut)
    '(1 2 3 4 5 6 7 8 9))


    (begin)
    (joueur1(val (map (colonne) (ligne)) (grilledebut)) (grilledebut))
    (joueur2(val (map (colonne) (ligne)) (grilledebut)) (grilledebut))

  2. #2
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2012
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Décembre 2012
    Messages : 33
    Points : 10
    Points
    10
    Par défaut CODE
    Bonjour

    Comme le faisait remarquer votre interlocuteur jack_ft le fait que vous n'utilisiez pas la balise code rend vos messages illisibles.
    Je les ai tous corrigés en ajoutant cette balise mais il serait correct vis à vis de vos interlocuteurs que vous en fassiez de même.
    Elle est très facile d'accès : au dessus de l'editeur, il y a une ligne de symboles G, I ,S, à la fin de la ligne vous avez un #, cliquez dessus, il apparaitra à l'endroit du curseur [CODE][/CODE ] avec le curseur clignotant à l'intérieur. Inserez votre code à cet endroit et il sera bien afficher.

    Merci de faire l'effort.

Discussions similaires

  1. Besoin d'aide pour un projet en vb6
    Par Tyrael62 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 14/01/2006, 06h25
  2. de l'aide pour un projet svp!!!!
    Par lamoon dans le forum PostgreSQL
    Réponses: 3
    Dernier message: 09/01/2006, 16h45
  3. Besoin d'aide pour un projet
    Par ZiMo dans le forum Linux
    Réponses: 9
    Dernier message: 24/10/2005, 01h28
  4. Besoin d'aide pour un projet de jeu en ligne
    Par FLEO dans le forum Projets
    Réponses: 1
    Dernier message: 21/10/2005, 09h55
  5. [CAML] Recherche aide pour un projet
    Par tarzoon dans le forum Caml
    Réponses: 1
    Dernier message: 02/09/2005, 11h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo