在 Scheme 中制作随机列表

Question

我只是想随机制作一个列表并在更大的函数中使用它。

        (define make-random-list
        (if
          (= (random 2) 0) (list 2 3)
                           (list 3 2)))

这只会产生列表 (2 3)，我不知道为什么。发生了什么导致这种情况？

如果我这样写，我可以使函数工作

  (define make-random-list
   (lambda (x)
   (if
    (= (random x) 0) (list 2 3)
                     (list 3 2))))

并调用 (make-random-list 2)

但我不明白为什么这会起作用而另一个不会。不允许第一个函数产生随机结果的方案是怎么回事？

Answer 1

在您的第一个 sn-p 中，您将一次性计算的结果分配给一个变量。您需要在这里定义一个函数，该函数将在每次调用时进行评估。您的第二个 sn-p 正是这样做的，但有一种更短的方式来表达相同的意思：

(define (make-random-list x)
(if
  (= (random x) 0) (list 2 3)
                   (list 3 2)))

请注意语法上的区别：函数定义将函数定义连同括号中的形式参数名称一起括起来，而变量名称周围没有括号。

Answer 2

在 Scheme 中，函数是通过显式使用 lambda 来定义的，如下所示：

(define square
  (lambda (x)
    (* x x)))

或者像这样，它是先前语法的简写，并且隐含地使用 lambda 在后台 - 两种过程定义的风格完全等效：

(define (square x)
  (* x x))

您的代码的第一个版本不起作用，因为这只是将 if 的评估结果分配给名为 make-random-list 的变量：

(define make-random-list
  (if (= (random 2) 0)
      (list 2 3)
      (list 3 2)))

要在 Scheme 中定义过程，您必须显式或隐式地使用 lambda。因此，您的过程应该使用以下任何一种等效形式来定义：

(define make-random-list
  (lambda ()
    (if (= (random 2) 0)
        (list 2 3)
        (list 3 2)))

(define (make-random-list)
  (if (= (random 2) 0)
      (list 2 3)
      (list 3 2)))

请注意，如果唯一可能的值是 2，则不必传递 x 参数，只需声明一个不带参数的过程。