lisp - 如何在 LISP 中定义一个传递两个表单然后随机执行它们的函数

Question

我是 LISP 的新手，我目前正在尝试定义一个函数，该函数将传递另外两种将随机执行的形式。因此，例如，如果我要执行任何表单，它将随机执行选择的其中一个表单，该表单将返回结果。

有人知道这方面的例子吗？我似乎对 LISP 了解不够，无法形成网络搜索来返回我正在寻找的结果。

Answer 1

用宏包装功能实现......

Barmar's answer展示了如何使用函数来做到这一点。我认为这是解决此问题的最明智的实现技术。 Wojciech Gac's answer建议使用宏来执行此操作。我认为这是该问题最自然的编程接口(interface)(尽管如评论中所述，该答案中的宏存在一些问题)。最后，我认为将这两种技术结合起来是值得的，这样您就可以从实现中获益(如果需要，您可以稍后使用函数对象)，以及在其余时间使用方便的接口(interface)。

(defun call-one (functions)
  (funcall (nth (random (length functions)) functions)))

(defmacro one-of (&body forms)
  `(call-one (list ,@(mapcar (lambda (form)
                               `(lambda ()
                                  ,form))
                             forms))))

(call-one (list (constantly 3) (constantly 4)))
;=> 4 ; or 3

(one-of 3 4)
;=> 3 ; or 4

在我看来，这种宏实现技术(主要功能作为函数实现，宏根据函数实现)是一种很好的实践。将功能实现为函数通常更容易，因为您对名称捕获、构造表单等的关注较少。有时，让函数实现对您有用可能很有用，因此您增加了一些灵 active 。以函数的形式实现宏意味着宏实际上是你的语法糖；从概念上讲，您需要做的就是将一些单独的表单包装在匿名函数中，这对于宏来说是一项不太复杂的任务。这当然不适用于每个宏，但在我看来，当它适用时，它会导致代码更易于维护，并且从一开始就更少错误。

但要避免多余的工作……

不过这里有一个值得注意的问题。 one-of 的扩展创建一个列表并将其传递给 call-one:

(macroexpand-1 '(one-of 3 4))
;=> (CALL-ONE (LIST (LAMBDA () 3) (LAMBDA () 4)))

call-one 计算函数列表的长度并生成一个随机数。对于大多数调用来说，这很好，但对于 one-of 的扩展来说不是很好，因为这意味着我们重新计算一个列表的长度，这个列表永远不会一次又一次地改变。当我们使用one-of时，我们可以在宏展开时计算(length functions)，但我们仍然需要一种方法将它提供给call-one。因此，我们可以通过向默认为 (length functions) 的 call-one 添加可选参数来稍微更改功能接口(interface)。在 one-of 的扩展中，我们只是提供一个常量值。

(defun call-one (functions &optional (len (length functions)))
  (funcall (nth (random len) functions)))

(defmacro one-of (&body forms)
  `(call-one (list ,@(mapcar (lambda (form)
                               `(lambda ()
                                  ,form))
                             forms))
             ,(length forms)))

因此我们得到了这个扩展:

(macroexpand-1 '(one-of 3 4))
;=> (CALL-ONE (LIST (LAMBDA () 3) (LAMBDA () 4)) 2)