需要将 Scheme 中两个函数的结果与驱动程序结合起来

Question

我有一个方案分配，其中用户要输入一个数字列表，输出应该是列表中的最大值和最小值。作业说我们可以有两个单独的函数，并将结果与​​驱动程序结合起来，但我不知道该怎么做。这是我目前所拥有的：

(define (findmin l) (if (null? (cdr l)) (car l)
 (if (< (car l) (findmin (cdr l)))(car l)
 (findmin (cdr l)))))

(define (findmax l) (if (null? (cdr l)) (car l)
 (if (> (car l) (findmax (cdr l)))(car l)
 (findmax (cdr l)))))

我似乎无法避免为 findmin 输入一个列表，为 findmax 输入另一个列表。用户应该只需要输入一个列表。

Answer 1

司机：

(define (min-and-max l) (list (findmin l) (findmax l)))