scheme中dispatch

在Scheme中，dispatch通常是用于实现多态的一种技术。它可以根据传入参数的类型来决定调用哪个函数。比如说，我们可以定义一个dispatch函数，它接受一个函数列表和一个参数列表，然后根据参数列表中第一个参数的类型来选择调用哪个函数。

例如，我们可以定义一个加法函数和一个乘法函数：

(define (add a b) (+ a b))
(define (multiply a b) (* a b))

然后，我们可以定义一个dispatch函数，它接受一个函数列表和一个参数列表，并根据参数列表中第一个参数的类型来选择调用哪个函数：

(define (dispatch funcs args)
  (let ((func (car args)))
    (cond ((eq? func 'add) (apply add (cdr args)))
          ((eq? func 'multiply) (apply multiply (cdr args)))
          (else (error "Unknown function" func)))))

现在，我们可以使用dispatch函数来进行多态的调用：

(dispatch '(add multiply) '(add 2 3)) ; 输出 5
(dispatch '(add multiply) '(multiply 2 3)) ; 输出 6

这里我们使用了一个包含加法和乘法函数的函数列表，然后根据传入的参数列表中第一个参数的类型来调用相应的函数。这样就可以实现简单的多态。