Схема - Рекурсия - список Потребности в выходе

Question

Это мой код, который просто попробовать ...

(define-struct cupboard (upperdrawer middledrawer lowerdrawer)) 

(define-struct room (name furniture)) 

(define myrooms 
    (list 
    (make-room "Kitchen" 
       (list 
       (make-cupboard "Salt" "Sugar" "Pepper") 
       (make-cupboard "Tofu" "Sausage" "Beef"))) 
    (make-room "Bathroom" 
       (list 
       (make-cupboard "Toothbrush" "Soap" "Shampoo"))) 
    (make-room "Sleeping room" 
       (list 
       (make-cupboard "Red Socks" "Blue Socks" "Yellow Socks") 
       (make-cupboard "Suits" "Dresses" "Shoes"))))) 

(define cupboardcontents 
    (lambda (myrooms) 
    (cond((room? (first myrooms)) 
      (cupboard? (first myrooms)) 
      (cupboardcontents (rest myrooms)) 
     ((cupboard?(first myrooms)) (list 
           (cupboard-upperdrawer myrooms) 
           (cupboard-middledrawer myrooms) 
           (cupboard-lowerdrawer myrooms))) 

     )))) 

(cupboardcontents myrooms) 

Теперь задача состоит в том, что использовать рекурсию получить список в качестве вывода, который включает в себя содержимое шкафов. Может ли кто-нибудь помочь здесь?

Answer 1

Это на самом деле более сложный, чем кажется. Вот попытка, скажите мне, если вы видели такие понятия, как по имени, пусть, то я могу расширить его:

(define (cupboardcontents elt) 
    (reverse 
    (let loop ((elt elt) (res null)) 
    (cond 
     ((null? elt)  res) 
     ((room? elt)  (loop (room-furniture elt) res)) 
     ((cupboard? elt) (list* (cupboard-lowerdrawer elt) 
           (cupboard-middledrawer elt) 
           (cupboard-upperdrawer elt) 
           res)) 
     ((list? elt)  (loop (cdr elt) (loop (car elt) res))) 
     (else   (error "wot?" elt)))))) 

Тестирование:

> (cupboardcontents myrooms) 
'("Salt" "Sugar" "Pepper" "Tofu" "Sausage" "Beef" "Toothbrush" "Soap" "Shampoo" "Red Socks" "Blue Socks" "Yellow Socks" "Suits" "Dresses" "Shoes")