LISP 帮助！糖果机分配器[重复]答案

【问题标题】：LISP help! Candy machine dispenser [duplicate]LISP 帮助！糖果机分配器[重复]
【发布时间】：2014-12-10 03:48:14
【问题描述】：

大家好，我是新来的，我想知道你们是否可以给我任何帮助。我正在创建一个随机分配颜色的糖果机。我已经运行了这段代码，它为 (get-candy gummy-bear) 运行了 7 次，但它应该运行 4 次直到为零.

这是我的代码：

 ;;; function get-candy
(defun get-candy (machine)
  (funcall machine))

;;; variable colors
(defvar *colors* '(red blue green brown yellow purple))

;;; function generate-candy-supply
(defun generate-candy-supply (num)
 (if (= 0 num)
    (cons (nth (+ 1 (random (- (length *colors*) 1))) *colors*) *colors* )
    (generate-candy-supply (- num 1))))


;;; function candy-machine
(defun candy-machine (candy)
  (function
    (lambda ()
      (prog1 (car candy)
        (setq candy (cdr candy))))))


;;; variable gummy-bear
(defvar *gummy-bear*
  (candy-machine (generate-candy-supply 4)))

;;; variable easter-egg
(defvar *easter-egg*
  (candy-machine (generate-candy-supply 6)))

示例运行应如下所示：

[1]> (load 'candy.lisp)
;; Loading file candy.lisp ...
;; Loaded file candy.lisp
T
[2]> (get-candy *gummy-bear*)
BLUE
[3]> (get-candy *gummy-bear*)
BROWN
[4]> (get-candy *gummy-bear*)
YELLOW
[5]> (get-candy *gummy-bear*)
YELLOW
[6]> (get-candy *gummy-bear*)
NIL
[7]> (get-candy *easter-egg*)
BLUE
[8]> (get-candy *easter-egg*)
BROWN
[9]> (get-candy *easter-egg*)
GREEN
[10]> (get-candy *easter-egg*)
BROWN
[11]> (get-candy *easter-egg*)
YELLOW
[12]> (get-candy *easter-egg*)
BLUE
[13]> (get-candy *easter-egg*)
NIL

【问题讨论】：

这看起来非常像几周前的Lisp randomize and using two functions to pull from list into another，提问者说：“我正在尝试创建一个随机分配颜色的糖果机。”询问家庭作业不是问题，但通常最好明确一点，并且很可能提供作业的参考（因为从中复制任何代码都属于抄袭）。

标签： lisp common-lisp

【解决方案1】：

你的问题是函数generate-candy-supply。它有两个分支，取决于num。如果不是0，则使用(1- num) 进行递归，并且什么也不做。当num 是0 时，您会返回一个列表，该列表以*colors* 的随机元素开头，后跟*colors* 的元素。这将始终产生一个恰好包含 7 个元素的列表。

我将暂时搁置它，因此您可以尝试找出解决方案。欢迎在 cmets 中提出更多问题。

【讨论】：