日期:2008-08-12
序:小惠未遍,民弗从也。
函数原型:(find-max-integer int-list)
参数:int-list为非空整数集的列表
返回:int-list中的最大值
源程序:
(define (find-max-integer int-list)
(let ((item (car int-list))
(rest (cdr int-list)))
(if (null? rest)
item
(let ((rest-max (find-max-integer rest)))
(if (> item rest-max)
item
rest-max)))))