球拍彩虹形状递归

Question

我正在尝试在 Racket 中创建一个递归函数，其中从颜色列表中，该函数将按颜色顺序打印出多个形状。 但是，该功能除了“空列表”之外不打印任何内容。

#lang slideshow
(require 2htdp/image)

(define a (list "red" "Orange" "Yellow" "Green" "Blue" "Purple"))

(define (Rainbow lst)
  (cond
   [(empty? lst) "Empty List"]
   [else (circle 20 "solid" (first lst))
         (Rainbow (rest lst))]))

(Rainbow a)

Answer 1

REPL 中的显示是在函数返回图像时完成的。 您的调用(Rainbow a)可以重写为(begin (circle 20 "solid" ...) ...) （ cond具有隐式开始，因此在每个递归步骤中，添加一个begin ），以"Empty List"结束"Empty List"和begin返回最后一个表达式，因此最终返回"Empty List" ：

> (begin (circle 20 "solid" "Red")
         (begin (circle 20 "solid" "Orange")
                (begin (circle 20 "solid" "Yellow")
                       "Empty List")))

"Empty List"

但是您可以使用print并将该图像打印到 REPL 中：

#lang slideshow
(require 2htdp/image)

(define a (list "Red" "Orange" "Yellow" "Green" "Blue" "Purple"))

(define (Rainbow lst)
  (cond
   [(empty? lst) (void)]
   [else (print (circle 20 "solid" (first lst)))  
         (Rainbow (rest lst))]))

(Rainbow a)

请注意，我使用了void ，因此我的 REPL 仅包含彩色圆圈，没有其他文本。