7 lines
181 B
Text
7 lines
181 B
Text
(defun index-of-r (e xs i)
|
|
(cond ((endp xs) nil)
|
|
((equal e (first xs)) i)
|
|
(t (index-of-r e (rest xs) (1+ i)))))
|
|
|
|
(defun index-of (e xs)
|
|
(index-of-r e xs 0))
|