Lisp Scheme Part17 - 暇つぶし2ch

Lisp Scheme Part17 ..

862:デフォルトの名無しさん
07/07/30 22:53:01
(define (make_list n)
(define (ml n l)
(if (= n 0) l (ml (- n 1) (cons n l))))
(ml n '()))

(define (my_max l)
(define (max2 x y) (if (> x y) x y))
(define (mm x l) (if (null? l) x (mm (max2 x (car l)) (cdr l))))
(mm (car l) (cdr l)))

次ページ