I have this database of houses, Im trying to make a method so when the user types the housename in like (house1) then the list of everything within it will return. can anyone help please?
Heres the lisp code:
Code: Select all
(setf *house-db
'(
;; first house
((name house1)
(type terrace)
(rooms ((kitchen ((dimensions (20 12))(appliances (cooker))))
(bathroom ((dimensions (10 14))(features (bath toilet))))
(bedrooms ((bedroom1 ((dimensions (15 21))(features (double-bed ))))))))
(garden (pond lawn shed)))
;;
((name house2)
(type terrace)
(rooms ((kitchen ((dimensions (2 1))(appliances (dishwasher))))
(bathroom ((dimensions (11 12))(features (toilet))))
(bedrooms ((bedroom1 ((dimensions (8 20))(features (chandelier))))
(bedroom2 ((dimensions (8 20))(features (chandelier))))
(bedroom3 ((dimensions (8 20))(features (chandelier))))
(bedroom4 ((dimensions (15 21))(features (double-bed washbasin))))))))
(garden (shed)))
))
Code: Select all
((name house1)
(type terrace)
(rooms ((kitchen ((dimensions (20 12))(appliances (cooker))))
(bathroom ((dimensions (10 14))(features (bath toilet))))
(bedrooms ((bedroom1 ((dimensions (15 21))(features (double-bed ))))))))
(garden (pond lawn shed)))
(defun get-house (housename)
but iv tried lots of different stuff but cant get it to work, please help!