[讨论]这下怎么做了，请帮忙lisp

无痕

;(xl-sort '((5 12) (21 3) (0 2)) '(lambda (x y)(< (car x)(car y)))) ->((0 2) (5 12) (21 3))
;(xl-sort '(2 9 3 -1 6) '<) -> (-1 2 3 6 9)
;(xl-sort '(-1 3 -1 3 3 9) '<) -> (-1 -1 3 3 3 9)

2. ;(xl-sort lst fun) = 以取代vl-sort函数，用法相同(lsp)---------------by 无痕(defun xl-sort (lst fun / nlst)
3.    (foreach n lst (setq nlst (xl-isort n nlst fun)))
4. )
5. (defun xl-isort (item lst fun / k nlst)
6.    (setq k T
7.   nlst (apply 'append (mapcar '(lambda (x)
8.                    (if (and K ((eval fun) item x)) (progn (setq k nil) (list item x)) (list x))
9.                ) lst))
10.    )
11.    (if k (append lst (list item)) nlst)
12. )

;(xl-sort lst fun) = 以取代vl-sort函数，用法相同(lsp)---------------by 无痕(defun xl-sort (lst fun / nlst)    (foreach n lst (setq nlst (xl-isort n nlst fun))) ) (defun xl-isort (item lst fun / k nlst)    (setq k T   nlst (apply 'append (mapcar '(lambda (x)                    (if (and K ((eval fun) item x)) (progn (setq k nil) (list item x)) (list x))                ) lst))    )    (if k (append lst (list item)) nlst) )

yxp

xl-isort 怎么调用？

yxp

(defun xl_sort (lst fun / k nlst lst2)
(foreach n lst (setq k T lst2 (apply 'append (mapcar '(lambda (x)
(if (and K ((eval fun) n x))(progn (setq k nil) (list n x))
(list x))) nlst)) nlst (if K (append lst2 (list n)) lst2)))
) 是不是能更精简调用(xl_sort '(2 5 -5 3 9 1 5 0) '>)

yxp

谁能把上面的程序修改一下,变为能对二维表排序?

meflying

不用改，，，，查看帮助文件中的vl-sort的用法，没看见作者说的，仅以取代vl-sort，用法相同吗？