(setf *bedroom1 '((width 10) (length 20))) (setf *bedroom2 '((width 25 (length 10)))) (setf *bedroom-list '(*bedroom1 *bedroom2)) (defun count-bedrooms (bedrooms-list) (length bedrooms-list)) (length (a b c)) (defun get-area (bedroom) (second (first bedroom)))
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more