While I work through the book PAIP I realize that my programmer brain is still highly imperative. But #Lisp and #CommonLisp shines when you start to write down your master problem in form of a (pseudo-)function and go from there:
![A Lisp pseudo-function:
(defun maybe-same-accommodation ()
(select all-objects
(where (all ((not (same :master-id))
(similar (:nane))
(equal :type)
(has_:images)))
(some (within-distance :position :kn 1) (similar (:zipcode)))
(perhaps (sinilar (:street))
(similar (:place))))))](https://media.emacs.ch/media_attachments/files/109/738/441/190/776/860/small/a92fae623484a055.png)
While I work through the book PAIP I realize that my programmer brain is still highly imperative. But #Lisp and #CommonLisp shines when you start to write down your master problem in form of a (pseudo-)function and go from there: