Classement

Re, Très surprenant !!!! Pour le fun en réutilisant une fonction déjà publié sur le forum et celle donné précédemment http://cadxp.com/index.php?/topic/31620-quelques-fonctions-de-liste/ ;; --------------------------------------------------------------- ;; ar-1:n => Arrangement à Répétition de 1 à n (Version itérative) ;; --------------------------------------------------------------- ;; Argument: Une liste de symboles (d'éléments) ;; Retourne: Tous les arrangements de 1 à n ;; Exemple : ;; (ar-1:n '(A B C) 2) ;; => ((A) (B) (C) (A A) (A B) (A C) (B A) (B B) (B C) (C A) (C B) (C C)) (defun ar-1:n (l n / lst res) (setq lst '(nil)) (repeat n (setq res (append res (setq lst (apply 'append (mapcar '(lambda (x) (mapcar '(lambda (y) (cons x y)) lst)) l))))))) Un code qui devrait te retourner une liste de tous les raccourcis clavier de 1 à 2 caractères encore disponible sur ton poste, (vl-remove-if 'namesymbolp (mapcar '(lambda (x) (read (apply 'strcat x))) (ar-1:n '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z") 2))) A titre d’exemple voilà ce que cela donne sur mon ordinateur et encore c’est seulement avec les caractères alphabétiques… ps : Je te déconseille de tester la fonction avec des combinaisons de plus de 4 ou 5 caractères car bonjour l’explosion combinatoire ;-) A+