2 rec, Common Lisp

Language: Layout:

;gnu clisp  2.49.60
#|2.	Написать функцию, которая по списку вида:
- фамилия
- улица
- номер дома
Сформирует список однофамильцев, проживающих на заданной улице.
|#

(defun extract-street (data street)
    (cond
        ((null data) nil)
        ((string= (second (first data)) street) (cons (first data) (extract-street (rest data) street)))
        (t (extract-street (rest data) street))
        )
)

(defun namesakes (data street)
  (let (extracted)) (setf extracted (extract-street data street))
    (cond
        
        )
     )

(defun find-namesakes (data)
    (cond
        ((null data) nil)
        ;(t  (cons (find-by-name data (first (first data))) (find-namesakes (remove-if ' data ') )))
               
        )
    )

(defun find-by-name (data name)
    (cond
        ((null data) nil)
        ((string= (first (first data)) name) (cons (first data) (find-by-name (rest data) name)))
        (t  (find-by-name (rest data) name))
        )
    )

(defun remove-by-name (data name)
    (cond
        ((null data) nil)
        ((string= name (first(first data))) (remove-by-name (rest data) name))
        (t (cons (first data) (remove-by-name (rest data) name)))
        )
    )

(let (data))

(setf data '(("Holmes" "Baker" 221) ("Holmes" "Baker" 222) ("Adler" "Hewston" 22) ("Watson" "Baker" 221) ("Watson" "Baker" 222) ("Holmes" "Hewston" 23) ("Adler" "Hewston" 23) ("Holmes" "Baker" 223) ("Adler" "Baker" 222)))
(let (street))
(setf street "Baker")
(print "Список людей: ")
(print data)
(print "_______________________________________________________________")
(print "Улица: ")
(print street)
(print "_______________________________________________________________")
(print (remove-by-name data "Holmes"))
;(print "Однофамильцы: ")
;(print (namesakes data street))

[ + ] Show input
Absolute running time: 0.19 sec, cpu time: 0.03 sec, memory peak: 9 Mb, absolute service time: 0,25 sec