我正在尝试创建一个函数,用于在方案中使用R5RS语言展平列表,并且遇到了我的函数只返回输入列表而不删除括号的问题.我认为这是由于额外的缺点,但当我删除它时,输出变为列表,没有括号中的元素.有人能指出我正确的方向吗？
(define (denestify lst)
(cond ((null? lst)'())
((list? (car lst))(cons (denestify (cons (car (car lst))(cdr (car lst))))
(denestify (cdr lst))))
(else (cons (car lst)(denestify (cdr lst))))))