Scheme 尾部递归与CPS

我在这个问题上纠缠了一段时间。我将谓词和列表传递给scheme中的另一个函数。如果谓词为true，则将其添加到答案列表中，否则跳过它

例如，

（myfilt阳性？'（1-23））

应该是

（13）

。但是我已经得到了

（1.0）

---

最里面的

if

应该对else分支使用

v

，而不是0。因此：

(if (x (car poly))
    (cons (car poly) v)
    v)

---

最里面的

if

应该对else分支使用

v

，而不是0。因此：

(if (x (car poly))
    (cons (car poly) v)
    v)