Common Lisp 中的（随机）不那么随机？

Question

好的，最后一个问题，我将用 Common Lisp 完成我的猜数游戏！ :D 每当游戏开始（或者在第一个游戏之后开始新游戏）时，都会调用以下函数。

;;; Play the game
(defun play ()
    ;; If it's their first time playing this session,
    ;; make sure to greet the user.
    (unless (> *number-of-guesses* 0)
        (welcome-user))
    ;; Reset their remaining guesses
    (setq *number-of-guesses* 0)
    ;; Set the target value
    (setq *target*
        ;; Random can return float values,
        ;; so we must round the result to get
        ;; an integer value.
        (round
            ;; Add one to the result, because
            ;; (random 100) yields a number between
            ;; 0 and 99, whereas we want a number
            ;; from 1 to 100 inclusive.
            (+ (random 100) 1)))
    (if (eql (prompt-for-guess) t)
        (play)
        (quit)))

所以据说，每次玩家开始游戏时，*target* 都应该设置为 1-100 之间的新随机整数。但是，每次 *target* 默认为 82。如何使 (random) 随机行动？

Answer 1

我认为，如果您定义一个带有随机数的函数，那么当您调用该函数时不会调用它，实际上，它会在您加载文件时确定，并且当它运行此定义时，它会固定为该值。然后你每次调用该函数时，数字将始终相同。当我每次调用函数时都将变量传递给随机函数时，每次都是随机的。至少，我在程序中经历过

Answer 2

在 Gimp Scheme（Lisp 衍生品）中，我发现我需要使用以下内容：
(设置！*seed* (car (gettimeofday)))
这是来自时钟的随机数种子（种子是全局的）

您可能还需要：
（随机下一个）
这会使用种子生成下一个随机数

非真正随机的方法是设置种子：
（srand 12345）
;用于结果可重复的情况 - 在图形设计环境中很有用。

Answer 3

您需要在程序开始时播种随机状态。

(setf *random-state* (make-random-state t))
;; # this initializes the global random state by
;;   "some means" (e.g. current time.)