改訂しました。

(define (max-value lst)
　(case (length lst)
　　((0) 0)
　　((1) (first lst))
　　((2) (max (first lst) (second lst)))
　　(else (max (first lst) (max-value (cdr lst))))))