Discussion :

[rifian]

Bonjour,

Est ce que quelqu'un saurait comment générer une liste aléatoire en lisp ?

Par exemple :
- a partir de la liste (1 2 3 4 5 6 7 8 9)
- je voudrai obtenir (3 6 4 9 1 7 2 5 8)

Merci pour aide..

Rifiane

[Obsidian]

Est-ce que ton but est réellement de mélanger le contenu d'une liste existante, ou est-ce que tu cherches simplement à remplir une liste vide avec des nombres tirés au hasard ?

Ce n'est pas le même problème.

[jabbounet]

en gros tu souhaite que ta liste soit désordonnée?

[rifian]

- Ben en fait si j'arrive à générer une suite de chiffre aléatoire (sans doublons) c'est parfait

Je pensais que c'etait plus simple de partir d'une liste éxhistente....

Rifiane


PS : j'ai une deuxieme question qui vient s'ajouter celle-ci.. " Comment générer une sous-liste de liste ?
exemple : ( 1 2 3 4 5 6 7 8 9) qui donnera ((1 2 3) (4 5 6) (7 8 9 ))

[Obsidian]

- Ben en fait si j'arrive à générer une suite de chiffre aléatoire (sans doublons) c'est parfait

Sans doublon, c'est un peu plus dur. Si tu omets ce contrôle dans un premier temps, c'est nettement plus simple.

PS : j'ai une deuxieme question qui vient s'ajouter celle-ci.. " Comment générer une sous-liste de liste ? exemple : ( 1 2 3 4 5 6 7 8 9) qui donnera ((1 2 3) (4 5 6) (7 8 9 ))

Même chose. C'est tout le temps le même cas − neuf chiffres résolus en trois listes de trois chiffres − ou c'est quelque chose d'un peu plus générique ?

[rifian]

- ben pour les doublons je suis obligé de ne pas avoir de doublons parce que je veux avoir une matrice résultat et n'avoir qu'une seule fois un chiffre (donc pas doublons ). C'est justement cette histoire de doublon jarrive pas à voir comment gérer ça

- pour les sous liste, en fait c'est plus un cas générique..pas forcement des couples de trois. (Par contre si je peux rentrer en parametre la taille de ma sous liste ça pourrait fonctionner.. )

[Trap D]

Où en es-tu de tes recherches ?

[Zavonen]

Pour mélanger une liste:

Code lisp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
(defun shuffle (list)
  "Returns a randomly re-ordered copy of list."
  (let ((result nil))
    (do ()
        ((null list) result)
      (let* ((which (random (length list)))
             (it (nth which list)))
        (push it result)
        (setq list (remove it list :count 1))))))

trouvé sur
http://hampshire.edu/~lasccs/unscramble.lisp