Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
prunik a sjednoceni
(defun sjednot2(M N) (cond ((null M) N) ((null N) M) ((member (car N) M) (sjednot2 (cdr N) M)) (T (cons (car N) (sjednot2 (cdr N) M))) ) ) (defun prunik (M N) (cond ((null M) nil) ((member (car M) N) (cons (car M) (prunik (cdr M) N))) (T (prunik (cdr M) N) ) ) ) (defun cele(A B C) (prunik A (sjednot2 B C)) ) (print (cele '(2) '(4 1 5) '(1 2 3) ))
run
|
edit
|
history
|
help
0
Class I: Person Class - Define - Create - Initialize - Print
おみくじ for CL
#1MIN-2
laborator8-lisp
Macro II: foreach function, foreach.macro
CMSC 257 Revised Assignment 4
somatorio recursivo
Homework.Lisp
sw
L1.8a