-
Notifications
You must be signed in to change notification settings - Fork 0
/
Utility.lsp
35 lines (32 loc) · 1003 Bytes
/
Utility.lsp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
;George Cook
;Some helpful functions that do not belong in other locations
;**********************************************************************************
(defun contains (lst target)
(cond
((atom lst) (if (eq lst target)
T
nil
))
(T (or (contains (car lst) target) (contains (cdr lst) target)))
)
)
;**********************************************************************************
;**********************************************************************************
(defun myreplace (old new lst)
(cond
((null lst) nil)
((atom lst) (if (equal lst old) new lst))
(t
(cons (myreplace old new (car lst)) (myreplace old new (cdr lst)))
)
)
)
;**********************************************************************************
;**********************************************************************************
(defun iseven (num)
(cond
((numberp num) (= (mod num 2) 0))
(T nil)
)
)
;**********************************************************************************