Question

在python中可以这样做

EMPTY, PAWN, KNIGHT, BISHOP, ROOK, QUEEN, KING, BPAWN = range(8)

你会如何在lisp中做同等的事？

Answer 1

在Lisp中使用符号会更加惯用。通常作为自我评估的关键字符号：

(defparameter *chess-pieces*
  '(:EMPTY :PAWN :KNIGHT :BISHOP :ROOK :QUEEN :KING :BPAWN))

有理由定义数值 - 有时。特别是当你需要与外国功能交谈时。在Lisp中，您默认使用符号。

Common Lisp没有真正的枚举类型。在动态类型语言中使用符号与使用数字变量相比具有一些优势。例如，在调试期间，变量内容更具描述性：

比较

> (setf c4 queen)

> c4
6

VS

> (setf c4 :queen)

> c4
:queen

在后一个示例中，符号值是自描述的。

Answer 2

假设您已在某处（range）定义了便捷函数(defun range (n) (loop :for i :from 0 :below n :collect i))，您可以设置一些本地值，如下所示：

(destructuring-bind (EMPTY PAWN KNIGHT BISHOP ROOK QUEEN KING BPAWN)
    (range 8)
  #| do stuff |#)

但是，这样的枚举很少在Lisp代码中使用，因为关键字（或其他符号）提供类似的功能。

Answer 3

如何编写宏来执行此操作？一个例子：

(defmacro defenum (&rest args)
  (let ((counter 0))
    `(progn
       ,@(mapcar (lambda (arg)
                   (cond ((symbolp arg)
                          (prog1
                              `(defparameter ,arg ,counter)
                            (incf counter)))
                         ((listp arg)
                          (prog1
                              `(defparameter ,(first arg) ,(second arg))
                            (setf counter (1+ (second arg)))))
                         (t (error "broken defenum"))))
                 args))))

用法示例：

(defenum x (y 2) z)

(defenum EMPTY PAWN KNIGHT BISHOP ROOK QUEEN KING BPAWN)

（在这个例子中可能很容易改进:-) - 我更喜欢defparameter到defconstant，这样你可能想要改变一些事情。

Answer 4

使用defconstant：

 (defconstant name initial-value-form [ documentation-string ])

例如：

(defconstant myvar 5)

Answer 5

这是一种方法：

(let ((c 0))
  (dolist (piece '(EMPTY PAWN KNIGHT BISHOP ROOK QUEEN KING BPAWN))
    (eval `(defconstant ,piece ,c)) 
    (incf c)))

Answer 6

可以使用curve_fit来计算设置一堆常量的表单：

macrolet

替代方案：使用(macrolet ((defenumvalues (&rest names) `(progn ,@(loop for n in names and i from 0 collect `(defconstant ,n ,i)) (values)))) (defenumvalues empty pawn knight bishop rook queen king bpawn))编写全局宏。

使用宏（本地或全局）定义一堆常量的一般优点：编译器扩展表达式，然后看到一堆defmacro形式。

Answer 7

我曾经做过的简单宏：

(defmacro enum-constants (&rest constants)
 `(progn ,@(mapcar #'(lambda (key value) `(defconstant ,key ,value))
                   constants (loop for i from 0 below (length constants) collecting i))))

如何在lisp中定义这样的常量？

7 个答案: