(define (list-minimum list)
(if (null? list)
list
(minimum (car list) (cdr list))
)
)
(define (minimum first-element remaining-list)
(if (null? remaining-list)
first-element
(if (> first-element (car remaining-list))
(minimum (car remaining-list)(cdr remaining-list))
(minimum first-element (cdr remaining-list)))
)
)
(begin
(list-minimum (list 12 90 34 23 9 10 80 66 38))
)