在 Casting SPEL 中推送项目位置

Question

我正在经历 在 Lisp 中铸造 SPEL，这是处理拾取对象的建议解决方案：

(define *location* 'living-room)

(define *object-locations*
  '((whiskey-bottle living-room)
    (bucket living-room)
    (chain garden)
    (frog garden)))

(define (pickup-object object)
  (cond [(is-at? object *location* *object-locations*)
         (push! (list object 'body) *object-locations*)
         (string-append "You're now carrying the " (symbol->string object) ".")]
        [else "There's no such object in here."]))

我是唯一一个觉得这效率低下的人吗？据我了解，push!函数cons每次都会有一个新的对到*object-locations*玩家拿起一个物体。虽然这在像这样的小游戏中可能不是一个主要问题，但如果添加从库存中放下物品的选项，*object-locations* 列表可能会无限增长......例如，pickup-object 不应该替换 （威士忌瓶客厅） 的 cdr，而不是添加另一个副本配对？

我是 Lisp 新手，可能会弄错...有人可以解释一下我的假设是否正确，如果是，那么在 Lisp 文本冒险中处理拾取对象的最佳方法是什么？

Answer 1

代码存在一些问题：

• 列表 *object-locations* 是一个文字。不应修改文字。你不能破坏性地改变青蛙的位置。所以你需要把一个新的位置推到前面。
• 随着您玩游戏，该列表会不断增长。
• STRING-APPEND 为每个拾取操作创建一个新字符串。

但

• 对于书本示例来说，它很简单且足够了。
• 对象位置的堆栈将使某种撤消成为可能。
• 项目和位置的新关联的推送是快速操作。
• 它为本书的读者留下了提高代码效率的机会。

在 Common Lisp 中，很容易更改：

(defvar *object-locations*
  (copy-tree
   '((whiskey-bottle living-room)
     (bucket living-room)
     (chain garden)
     (frog garden))))

(defun get-location (object)
  (second (assoc object *object-locations*)))

(defun set-location (object location)
  (setf (second (assoc object *object-locations*))
        location))

CL-USER > (get-location 'frog)
GARDEN

CL-USER > (set-location 'frog 'living-room)
LIVING-ROOM

CL-USER > (get-location 'frog)
LIVING-ROOM

CL-USER > *object-locations*
((WHISKEY-BOTTLE LIVING-ROOM)
 (BUCKET LIVING-ROOM)
 (CHAIN GARDEN)
 (FROG LIVING-ROOM))

请参阅 Common Lisp：符号计算的温和介绍一书David S. Touretzky 对 Lisp 进行了非常基本的介绍。