Отсортировать список со списками по возрастанию

@Nicetoh8u · Регистрация: 18.03.2018

Author24 — интернет-сервис помощи студентам

Добрый день, подскажите пожалуйста: Как отсортировать список с подсписками по возрастанию?

Например при:

Lisp

1	`( (d e 2) (e c 3) (b c 1) (c d 4) (a b 5) (a z 6) (c a 2) (b d 3 ) )

Должно получиться что-то типо такого:

Lisp

1	`( (b c 1) (d e 2) (c a 2) (b d 3 ) (e c 3) (c d 4) (a b 5) (a z 6) )

@_sg · 18.03.2018, 13:20

Lisp

(defun ssort (w)
  (sort w #'< :key #'caddr))
 
> (ssort '((d e 2) (e c 3) (b c 1) (c d 4) (a b 5)  (a z 6) (c a 2) (b d 3 )))
((B C 1) (D E 2) (C A 2) (E C 3) (B D 3) (C D 4) (A B 5) (A Z 6))

Lisp

(defun ssort (w)
  (sort w #'< :key #'third))
 
> (ssort '((d e 2) (e c 3) (b c 1) (c d 4) (a b 5)  (a z 6) (c a 2) (b d 3 )))
((B C 1) (D E 2) (C A 2) (E C 3) (B D 3) (C D 4) (A B 5) (A Z 6))

@Catstail · 18.03.2018, 15:28

Или "ручками". Например, так (HomeLisp):

Lisp

(defun vsort (lst)
  (if (null lst) nil
      (let ((min (car lst)))
         (dolist (i (cdr lst) t)
            (when (< (caddr i) (caddr min)) (setq min i)))
            (cons min (vsort (removef min lst))))))
 
==> VSORT
 
(vsort '((d e 2) (e c 3) (b c 1) (c d 4) (a b 5)  (a z 6) (c a 2) (b d 3 )))
 
==> ((B C 1) (D E 2) (C A 2) (E C 3) (B D 3) (C D 4) (A B 5) (A Z 6))

	18.03.2018, 15:28