[proektant-minsk]

Код:

[Выделить все]

 (setq q	(list 
(list (list 1 2 3) (cons "9"  "6") (list 7 8 9))
	      (list (list 9 8 7) (cons "6"  "4") (list 1 5 9))
	      (list (list 7 5 2) (cons "7"  "1") (list 3 5 9))
	      (list (list 7 5 2) (cons "8"  "1") (list 3 7 9))
	)
)


(setq q
       (vl-sort
	 q
	 (function
	   (lambda (e1 e2) (< (nth 1 (nth 1 e1)) (nth 1 (nth 1 e2))))
	 )
       )
)

Результат: ; ошибка. неверный список: "4"

#########################################

(setq q	(list 
(list (list 1 2 3) (list "9" "6") (list 7 8 9))
	      (list (list 9 8 7) (list "6"  "4") (list 1 5 9))
	      (list (list 7 5 2) (list "7"  "1") (list 3 5 9))
	      (list (list 7 5 2) (list "8"  "4") (list 3 7 9))
	)
)


(setq q
       (vl-sort
	 q
	 (function
	   (lambda (e1 e2) (< (nth 1 (nth 1 e1)) (nth 1 (nth 1 e2))))
	 )
       )
)
Результат:
(((1 2 3) ("9" "6") (7 8 9)) ((9 8 7) ("6" "4") (1 5 9)) ((7 5 2) ("7" "1") (3 5 9)) ((7 5 2) ("8" "4") (3 7 9))) 
(((7 5 2) ("7" "1") (3 5 9)) ((9 8 7) ("6" "4") (1 5 9)) ((7 5 2) ("8" "4") (3 7 9)) ((1 2 3) ("9" "6") (7 8 9))) 
_$ 

сортировка прошла успешна!!! Почему списки сортирует нормально , а точечные пары не хочет?

[Кулик Алексей aka kpblc]

Так?

Код:

[Выделить все]

 (defun test (/ q)
  (setq q (list
            (list (list 1 2 3) (cons "9" "6") (list 7 8 9))
            (list (list 9 8 7) (cons "6" "4") (list 1 5 9))
            (list (list 7 5 2) (cons "7" "1") (list 3 5 9))
            (list (list 7 5 2) (cons "8" "1") (list 3 7 9))
            (list (list 7 5 2) (list "8" "1") (list 3 7 9))
            ) ;_ end of list
        q
          (vl-sort
            q
            (function
              (lambda (e1 e2)
                (<
                  (if (listp (cdadr e1))
                    (cadadr e1)
                    (cdadr e1)
                    ) ;_ end of if
                  (if (listp (cdadr e2))
                    (cadadr e2)
                    (cdadr e2)
                    ) ;_ end of if
                  ) ;_ end of <
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-sort
        ) ;_ end of setq
  ) ;_ end of defun