RosettaCodeData/Task/Apply-a-callback-to-an-array/Scheme/apply-a-callback-to-an-array-3.scm

(define (map f L)
  (if (null? L)
      L
      (cons (f (car L)) (map f (cdr L)))))