A curried version of Racket's map function.

curried-map.rkt

#lang plai

(define nums '(0 1 2 3 4))

(test (map add1 nums) '(1 2 3 4 5))

(define (my-map f l) 
  (cond
    [(empty? l) l]
    [else (cons (f (first l))
                (my-map f (rest l)))]))

(test (my-map add1 nums) '(1 2 3 4 5))

(define (my-curried-map f)
  (λ (l)
    (cond 
      [(empty? l) l]
      [else (cons (f (first l))
                  ((my-curried-map f) (rest l)))])))

(test ((my-curried-map add1) nums) '(1 2 3 4 5))