Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Homework.Lisp
Basic Input/Output
Playfair_Encode
18rec
ASS2 Q5
Rextester compiler
prunik a sjednoceni
S17016281_ACTIVIDAD_20
10
S17016281_ACTIVIDAD_15
Please log in to post a comment.