Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Compare Any Lists
; Nate from Prof Severs SPL class ; COMPARE ANY LIST (setq list1 '(1 ((2) 3))) (setq list2 '(1 ((2) 3))) (defun compare(l1 l2) (if (AND (atom l1) (atom l2)) (eql l1 l2) (if (OR (atom l1) (atom l2)) nil (and (compare (car l1) (car l2)) (compare (cdr l1) (cdr l2)) ) ) ) ) (trace compare) (print (compare list1 list2))
run
|
edit
|
history
|
help
0
Homework.lisp
45
13
ExemplosLisp1
mywall
do-all-sums & groupby
L1.8c
L2.8
Recursao
S17016281_ACTIVIDAD_20