找出错误

Question

我前几天询问我将如何开发一个函数one，它将消耗一个符号列表并返回相同的列表，但每个实例的cat翻倍。

因此，例如

(one (cons 'animal(cons 'table (cons 'cat (cons 'bread 
     empty))))) 

我会得到

(cons 'animal (cons 'table (cons 'cat (cons 'cat (cons 'bread 
    empty))))) 

我的继承人部分

(define (one alos) 
    (cond [(empty? alos)empty] 
     [(symbol=? 'cat (first alos)) (cons (first alos) (cons (first alos) (one rest alos)))] 
     [else (cons (first alos) (one rest alos))])) 

我很奇怪，为什么我一直得到“一：预计只有1说法，但找到2'？

Answer 1

你错过了几个括号，这应该修复它：

(define (one alos) 
    (cond [(empty? alos) empty] 
     [(symbol=? 'cat (first alos)) 
     (cons (first alos) (cons (first alos) (one (rest alos))))] 
     [else (cons (first alos) (one (rest alos)))])) 

请注意，您是递归调用one这样的：

(one rest alos) 

但将它正确的方法是这个：

(one (rest alos)) 

Answer 2

看看这里： [(symbol=? 'cat (first alos)) (cons (first alos) (cons (first alos) (one rest alos)))] 这里： ​​

什么叫有one？