6 lines
163 B
Common Lisp
6 lines
163 B
Common Lisp
|
(load "../lang/functions.lisp")
|
||
|
|
|
||
|
|
(defun list-doubler (seed times-to-double)
|
||
|
|
(if (< times-to-double 1) seed
|
||
|
|
(recur (append seed seed) (- times-to-double 1))))
|