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

时间:2012-03-24 23:12:48

标签: recursion scheme racket

我有一个Scheme分配,其中用户要输入一个数字列表,输出应该是列表中的最大值和最小值。赋值说我们可以有两个独立的函数,并将结果与​​驱动程序结合起来,但我不知道如何做到这一点。以下是我到目前为止的情况:

(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输入另一个列表。用户只需要输入一个列表。

1 个答案:

答案 0 :(得分:2)

驱动器:

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