Double tri sur liste

[Otarie]

Bonjour à tous,

 

Après avoir pas mal cherché et après avoir si souvent parcouru ce forum, où j'ai très souvent trouvé ce que je cherchais, mais sans jamais m'inscrire, je me suis lancé et je me suis inscrit.

Je veux extraire une liste de cotations et les sommets associés. Les sommets peuvent être des lettres de l'alphabet (A, B, C, etc.) voir des doubles lettres (AA, AB, AC, BD, etc.) ou des triples lettres (AAA, AAB, AAC, BAA, BAB, etc.) ou bien des entiers (1, 2, 3, etc.)

Je voudrai les trier d'abord par simple lettre ou double ou triple, puis par valeur numérique.

 

Par exemple pour la liste suivante (deux sommets à chaque fois) :

(("B" "2")("E" "K")("BC" "C")("A" "E")("A" "2")("AB" "3")("A" "B")("A" "1")("AB" "A")("B" "1")("A" "3")("C" "E")("BC" "4")("E" "2")("B" "F")("E" "1")("B" "D"))

Devrait être triée ainsi :

(("A" "B")("A" "E")("A" "1")("A" "2")("A" "3")("B" "D")("B" "F")("B" "1")("B" "2")("C" "E")("E" "K")("E" "1")("E" "2")("AB" "A")("AB" "3")("BC" "C")("BC" "4"))

 

Avec les fonctions suivantes de Lee Mac j'arrive à trier selon le premier sommet et le deuxième sommet :

(defun sort-list ( l )
	(vl-sort l
		(function
			(lambda ( a b / x y )
				(if (= (car  a) (car  b))
					(< (cadr a) (cadr b))
					(progn
						(setq 	a (LM:splitstring (car a))
								b (LM:splitstring (car b))
						)
						(while
							(and (setq x (car a)) (setq y (car b)) (= x y))
							(setq	a (cdr a)
									b (cdr b)
							)
						)
						(cond
							((null x) b)
							((null y) nil)
							((and (numberp x) (numberp y)) (< x y))
							((numberp x))
							((numberp y) nil)
							((< x y))
						)
					)
				)
			)
		)
	)
)

(defun LM:splitstring ( str )
	(
		(lambda ( l )
			(read
				(strcat "("
					(vl-list->string
						(apply 'append
							(mapcar
								(function
									(lambda ( a b c )
										(cond
											((= 92 b)
												(list 32 34 92 b 34 32)
											)
											((or (< 47 b 58)
												(and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
												(and (= 46 b) (< 47 a 58) (< 47 c 58))
												)
												(list b)
											)
											((list 32 34 b 34 32))
										)
									)
								)
							(cons nil l) l (append (cdr l) '(( )))
							)
						)
					)
					")"
				)
			)
		)
		(vl-string->list str)
	)
)

 

Mais les nombres entiers sont toujours avant les lettres de l'alphabet...

J'ai bien essayé de bidouiller la fonction vl-sort, mais je n'arrive pas au résultat escompté...

Si vous aviez une piste je vous en serai très reconnaissant.

Merci d'avance !

[(gile)]

Salut et bienvenue,

Essaye comme ça:

(defun sort-list (l / compare)
  (defun compare (x y)
    (cond
      ((and (numberp (read x)) (numberp (read y))) (< x y))
      ((numberp (read x)) nil)
      ((numberp (read y)) T)
      ((= (strlen x) (strlen y)) (< x y))
      (T (< (strlen x) (strlen y)))
    )
  )
  (vl-sort l
	   '(lambda (x y)
	      (if (= (car x) (car y))
		(compare (cadr x) (cadr y))
		(compare (car x) (car y))
	      )
	    )
  )
)

 

[Otarie]

Bonjour Gile,

 

Tout d'abord merci beaucoup pour cette réponse rapide !

 

Je comprends mieux (une de) mes erreurs : j'essayais de modifier directement les conditions dans le vl-sort, mais effectivement vu que je stockais les entiers sous forme de chaîne, le test (numberp x) ou (numberp y) renvoyais toujours nil sans rajouter un read devant x ou y... 😓

 

Bref, ça fonctionne nickel, merci beaucoup encore !

[Otarie]

Re-bonjour,

 

J'ai un dernier petit soucis sur le tri des listes, au niveau des tris des entiers, les dizaines s'intercalent entre les unités :

Cela produit le rangement suivant : 1, 10, 11, [...], 2, 20, 21, [...]

Au lieu de : 1, 2, 3, [...], 10, 11, [...], 20, 21, [...]

 

Mais je n'arrive pas à voir ce qu'il faut modifier dans la fonction "compare" pour arriver à ce tri numérique. 😓

 

Merci d'avance !

[(gile)]

Il faut comparer les valeurs des entiers au lieu des chaines.

(defun compare (x y)
    (cond
      ((and (numberp (read x)) (numberp (read y))) (< (atoi x) (atoi y)))
      ((numberp (read x)) nil)
      ((numberp (read y)) T)
      ((= (strlen x) (strlen y)) (< x y))
      (T (< (strlen x) (strlen y)))
    )
  )

 

[Otarie]

Super ça fonctionne nickel, merci beaucoup !