一个使用Scheme语言编写的进阶程序

以下是一个使用Scheme语言编写的进阶程序，它实现了一个简单的计算器功能：

; 定义一个计算器函数  
(define calculator  
  (lambda (a b op)  
    (cond  
      ((= op '+') (+ a b))  
      ((= op '-') (- a b))  
      ((= op '*') (* a b))  
      ((= op '/') (/ a b))  
      (else (display "Invalid operator"))  
    )  
  )  
)  
  
; 测试计算器函数  
(calculator 5 3 '+)  
(calculator 5 3 '-')  
(calculator 5 3 '*')  
(calculator 5 3 '/')

该程序定义了一个名为calculator的函数，它接受三个参数：两个要进行计算的数和一个操作符。根据不同的操作符，该函数实现了加、减、乘、除四种基本运算。如果输入的操作符不是合法的，则输出"Invalid operator"信息。在程序的最后，通过调用calculator函数进行测试。