日期：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)))))

发表于 @ 2008年08月20日 00:09:00|评论(loading...)|收藏