0

我怎样才能编写一个定期求和的方案程序。在方案 2+2 中写入 (+ 2 2)。我必须制作的程序应该使 (2 + 2) 成为可能。

4

2 回答 2

2

您需要一个非常简单的算术表达式求值器。假设唯一支持的运算符是加法并且两个操作数都是数字(不是其他加法表达式),它就像这样简单:

(define (sum-eval exp)
  (match exp
    [(list op1 '+ op2) (+ op1 op2)]
    [_ exp]))

(sum-eval '(1 + 1))
=> 2

为了让事情变得更有趣,我们可以允许嵌套子表达式的求值,只需递归地计算操作数:

(define (sum-eval exp)
  (match exp
    [(list op1 '+ op2) (+ (sum-eval op1) (sum-eval op2))]
    [_ exp]))

(sum-eval '((2 + 3) + (8 + 2)))
=> 15

现在我们已经完成了,我们可以向我们的评估器添加更多操作:

(define (mini-eval exp)
  (match exp
    [(list op1 '* op2) (* (mini-eval op1) (mini-eval op2))]
    [(list op1 '+ op2) (+ (mini-eval op1) (mini-eval op2))]
    [_ exp]))

(mini-eval '((3 * 3) + (5 * 2)))
=> 19

等等,等等 - 你明白了。读者练习:优雅地处理错误条件。

于 2013-05-22T13:51:06.393 回答
0

假设您要将 Scheme 的前缀表示法转换为中缀表示法:

(define (prefix->infix form)
  (cond ((number? form) form)
        ((list?   form)
         (assert (= 3 (length form)))
         (let ((operator (list-ref form 0))
               (operand1 (prefix->infix (list-ref form 1)))
               (operand2 (prefix->infix (list-ref form 2))))
           (list operand1 operator operand2)))
        (else 'error)))

似乎工作:

> (prefix->infix '(+ 2 2))
(2 + 2)
> (prefix->infix '(+ (- 3 2) (* 5 6)))
((3 - 2) + (5 * 6))
于 2013-05-22T22:55:25.853 回答