tri d'une liste avec 3 critères

[Facilo]

Bonjour,

 

Peut-on trier sur 3 critère une liste de 4 colonnes ?

J'ai essayé ce code mais cela ne fonctionne pas sur les 3 critères :

 

(setq lst_blk1
      (vl-sort
 lst_blk1
 '(lambda (a B)
    (if
      (eq (car (cdr (cdr (cdr a)))) (car (cdr (cdr (cdr B)))))
       (< (car a) (car B))
       (< (car (cdr (cdr (cdr a)))) (car (cdr (cdr (cdr B)))))
    )
    (if
      (eq (caddr a) (caddr B))
       (< (car a) (car B))
       (< (caddr a) (caddr B))
    )
  )
      )
)

Modifié le 14 septembre 2014 par (gile)
formatage du code

[(gile)]

Salut,

 

Difficile de répondre en ne sachant pas les critères de tri et leur hiérarchie.

 

Le code suivant trie la liste en fonction du 4ème élément puis (en cas d'égalité) en fonction du 3ème puis du premier.

 

(setq lst_blk1
      (vl-sort
 lst_blk1
 '(lambda (a B)
    (if
      (eq (cadddr a) (cadddr B))
       (if
	 (eq (caddr a) (caddr B))
	  (< (car a) (car B))
	  (< (caddr a) (caddr B))
       )
       (< (cadddr a) (cadddr B))
    )
  )
      )
)

[Facilo]

Bonjour Gile

 

Bravo c'est la bonne méthode.

Le code marche nickel.

Salutations cordiales