Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Duplicate list elements recursively
;gnu clisp 2.49.60 (defun dupl (lst) (cond ((null lst) nil) ((not (listp lst)) (list lst lst)) (t (cons (car lst) (cons (car lst) (dupl (cdr lst))))) ) ) (print (dupl '(1 2 3))) ;; (1 1 2 2 3 3) (print (dupl '(r (5)))) ;; (R R (5) (5))
run
|
edit
|
history
|
help
1
L3.4
S17016281_ACTIVIDAD_23
maio de 3
Sg
Homework.lisp
Fibonacci in lisp
do-all-sums & groupby
Q5
Veronica
CMSC 257 Revised Assignment 4