Question

我有一个这样的文件：

    declare
    a = aexpress 
    b = bexpress 
    begin

我的方案程序将当前输入端口设置为此文件然后调用 (declarations (read)) 我回来的是#f。或者说控制台说“对象#f不适用。”

我一直在使用括号，并且无法找到应该返回布尔值的任何理由，但我确定我错过了一些东西。

我想要的是（（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))))))))

基本方案递归

1 个答案: