Saya menggunakan cond untuk menghapus kemunculan elemen di l di pohon saya (t). Ini adalah upaya saya, secara logis berhasil. Tetapi mengapa saya mendapatkan ekspresi bentuk yang buruk? Saya telah mencoba banyak hal tetapi masih mendapatkan kesalahan yang sama. Terima kasih!
(define check (lambda (l t)
(cond ((null? t) ‘())
((equal? (car l) (car (tree-labels t))) (check l (cdr(tree-labels t))))
((and (not(null? l))(equal? (cadr l) (car (tree-labels t))) (check l (cdr(tree-labels t))))
(else (cons (car (tree-labels t)) (check l (cdr(tree-labels t)))) )))