необходимо объединить результаты двух функций в схеме с драйвером - PullRequest
0 голосов
/ 25 марта 2012

У меня есть назначение Схемы, в котором пользователь должен ввести список чисел, и выходные данные должны быть максимальными и минимальными значениями из списка.Назначение говорит, что мы можем иметь две отдельные функции и комбинировать результат с драйвером, но я не знаю, как это сделать.Вот что у меня есть:

(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 Ответ

2 голосов
/ 25 марта 2012

драйвер:

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