Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
LAB1TUT
Manhattan distance in common Lisp
2rec
Fibonacci series in Lisp
S17016281_ACTIVIDAD_15
[LISP] Square root
Q7-B
LISP Quick Lab
Dumb sentence generator
504
Please log in to post a comment.