lisp泛型编程跟开挂一样

(define (duple n x)

  (if (= n 0)

      '()

      (cons x (duple (- n 1) x))))

(duple 3 3)得出（3 3 3）

(duple 10 "hello")得出("hello" "hello" "hello" "hello" "hello" "hello" "hello" "hello" "hello" "hello")。