recursion - 基本方案递归

Question

我有这样一个文件:

    declare
    a = aexpress 
    b = bexpress 
    begin 

我的方案程序将当前输入端口设置为该文件然后调用 (声明(阅读)) 我得到的是 #f。 或者更确切地说，控制台显示“对象 #f 不适用。”

我已经结束了括号的使用，找不到它应该返回 bool 值的任何理由，但我确定我遗漏了一些东西。

我想要的是 ((a aexpress) (b bexpress))

(define declarations
  (lambda (token)
    (cond (((eq? token 'begin) '())
           (else (let* ((name token)
                        (eqsign (read))
                        (value (read)))
                   (cons (list name value) (declarations (read)))))))))

调用者:

    (define convert
      (lambda (filename)

         (begin
           (set-current-input-port! (open-input-file filename))
           (statement (read))
           )

        )
      )
 (define statement (lambda (token) (

                                   cond (
                                     ( (eq? token 'declare) (declarations (read)) )
                                        ;       ( (eq? token 'declare) (declare_statement)  )
                                        ;       ( (eq? token 'begin) (begin_statement) )
                                        ;       ( (eq? token 'for) (for_statement) )
                                        ;       ( (eq? token 'if) (if_statement)  )
                                        ;       ( (eq? token 'set) (set_statement) )
                                        ;       (else (expression_token))


                                   ))))

Answer 1

我已经为您修复了代码格式，这揭示了问题所在:(eq?token 'begin) 周围的括号层太多。固定版本看起来像这样:

(define declarations
  (lambda (token)
    (cond ((eq? token 'begin) '())
          (else (let* ((name token)
                       (eqsign (read))
                       (value (read)))
                  (cons (list name value) (declarations (read))))))))