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

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