用法
评论
建议
取 消
确 定
(defun example:sort nil "排序示例.用于演示 vl-sort 自定义排序函数的代码。n1 n2 表示 列表内任意两个数，lambda 对这两个数进行比较。根据比较结果进行排序。" "偶数从大到小，奇数从小到大,偶数在前" "(example:sort) => (8 6 4 2 0 1 3 5 7 9)" (vl-sort (list 1 2 4 5 6 7 8 9 0 3) (function (lambda (n1 n2) (if (= 0 (rem n1 2)) (progn "前者为偶时" (if (= 0 (rem n2 2)) (progn "如果后者也为偶，比大小" (> n1 n2)) (progn "如果后者不为偶，保持" t))) (progn "前者为奇的情况" (if (/= 0 (rem n2 2)) (progn "如果后者也为奇， 小数在前" (< n1 n2)) (progn "后者不为奇，换位" nil))))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 772 个
函数库类别: 54 种
上传记录
刷新
冀公网安备 13050302000400号