在 Lisp 中对混合数据类型列表进行排序

Question

给定任何长度和数据类型的列表，计算：

• 较低的项目
• 较高的项目
• 符号
• 平均
• 反转列表（实现该功能）

我一直在尝试自己学习 lisp，因为我的课程有点无用（阅读我的其他问题 =_=; ），我已经这样做了：

(defun higher(l)
    (let (x)
        (setf x (first (sort l #'>)))))

那么它当然没有对符号进行排序...所以我尝试了这个：

(defun higher(l)
    (let ((x 0))
        (dolist (a l)
            (setf a (coerce a 'integer))
            (if (> a x)
                (setf x a)))
        x))

但是强制并没有帮助我使我的符号成为整数...提前感谢您的帮助，并且，我想知道我的格式是否良好（我没有被教导使用“let”）。

Answer 1

函数#'Char>不适用于符号，因为符号不是类型字符。

在比较符号之前，您可以使用 符号名称：

(symbol-name 'a)
CL-USER> "A"

所以现在您可以使用#'字符串>

编写比较>的函数您可以使用 typecase 的任何数据类型。
小例子：

(defun compare> (x y)
  (when (subtypep (type-of x) (type-of y))
    (typecase (and x y)
      (integer (> x y))
      (character (char> x y)))))

正如Terje所说，你不应该使用排序，reduce好多了:)