这是怎么回事？生病/形成特殊形式让

Question

当我运行它时，它说不正确的特殊形式让.. 可能是什么原因？

以下是代码：

stack.yaml

Answer 1

正如其他评论者所说，适当的缩进将有助于显着。我不确定你想要实现什么，但是编译并运行良好：

(define (cm m)
  (case m
    ((#\f) 
     (do ((i 300 (+ i 100)))
       ((> i 1300))
       (let ((x (* i 2)))
         (let ((y (/ x 2))
               (z (+ x 3)))
           (display x)
           (display " ")
           (display y)
           (display " ")
           (display z)))))
    ((#\a) 'gold)
    ((#\c) 3)
    (else 4)))

(cm #\f)
; 600 300 603800 400 8031000 500 10031200 600 12031400 700 14031600 800 16031800 900 18032000 1000 20032200 1100 22032400 1200 24032600 1300 2603

(cm #\a)
; 'gold