Question

我正在编写一个递归函数，将表达式从前缀转换为中缀。但是，我需要添加一个检查以确保部分输入不在中缀中。

例如，我可能会得到像（+（1 + 2）3）这样的输入。我想将其更改为（（1 + 2）+ 3）

这是我到目前为止所做的：

 (define (finalizePrefixToInfix lst)
      ;Convert a given s-expression to infix notation
     (define operand (car lst))
     (define operator1 (cadr lst))
     (define operator2 (caddr lst))    
     (display lst)
     (cond 
         ((and (list? lst) (symbol? operand));Is the s-expression a list?
        ;It was a list. Recusively call the operands of the list and return in infix format
        (display "recursing")
        (list (finalizePrefixToInfix operator1) operand (finalizePrefixToInfix operator2))
    )
    (else (display "not recursing") lst);It was not a list. We can not reformat, so return.
)

)

然而，这给了我语法错误，但我无法弄清楚原因。有什么帮助吗？

Answer 1

您必须检查lst参数是否在一开始就是一个列表（基本情况），否则car和朋友在应用于原子时将失败。试试这个：

(define (finalizePrefixToInfix lst)
  (cond ((not (pair? lst)) lst)
        (else
         (define operand   (car lst))
         (define operator1 (cadr lst))
         (define operator2 (caddr lst))    
         (cond 
           ((symbol? operand)
            (list (finalizePrefixToInfix operator1)
                  operand
                  (finalizePrefixToInfix operator2)))
           (else lst)))))

递归时的Scheme语法错误

1 个答案: