racket 学习笔记

length:

(define (my-length lst)
  (if (empty? lst) 0
      (+ (my-length (rest lst)) 1)))

map:

(define (my-map f lst)
  (if (empty? lst) empty
     (cons (f (first lst)) (my-map f (rest lst))) ))