Scheme 中检查列表长度是否为偶数的函数

Question

您好，我已经编辑了方案中检查列表长度是否偶数的函数代码。

(define even-length?
  (lambda (l)
  (cond 
   ((null? l)#f)
   ((equal? (remainder (length(l)) 2) 0) #t)
   (else #f))))

正确吗？

Answer 1

您似乎将 if 和 cond 的语法都混淆了。我建议参考语言参考。 if 只有两个子句，并且您不必为 else 子句编写 else。 （提示：此函数根本不需要 if。）

此外，请考虑如果列表为 null< 则返回 null 是否有意义。 /代码>;也许您想返回 #t 或 #f 。

哦，是的，并将您的 length 调用重写为正确的前缀样式方案函数调用。

Answer 2

该代码显然是错误的 - 您的 %2 假设为中缀表示法，其中 Scheme 使用前缀表示法。您的 if 的语法也是错误的 - 对于 if ， else 是隐式的（即您有 if 条件 true在这种情况下，您试图从一条腿返回 #t，并从另一条腿返回 #f——您可以只返回您在 中测试的表达式。 >if。

编辑：另一个细节——你真的应该将其重命名为even-length？，即使我假设它是一个谓词，例如even。 对我来说意味着 (even 3) 应该返回 #f，而 (even 4) 应该返回 # t - 但在这种情况下，两者都不起作用

Edit2：因为 mquander 已经给了你一个版本的代码，我想我会这样写：

(define (even-length? L) (even? (length L)))

我不。就像使用小写“l”（但它本身）一样，所以我将其大写。因为 even? 是内置的，所以我使用它而不是查找余数

。

> (even-length? `(1 2 3))
#f
> (even-length? `(1 2 3 4))
#t
> 

这与您的情况在某一方面有所不同：空列表的长度为 0，被认为是偶数，因此：（

偶数长度？ `())

给出#t。

Answer 3

(define even-length? (lambda (l)
    (even? (length l))))

用法：

(even-length? '(1 2 3 4))
#t
(even-length? '(1 2 3 ))
#f

正如其他人指出的那样，确实有一个谓词来检查数字的均匀性，那么为什么不使用它呢？

编辑：我刚刚看到 Jerry Coffin 使用相同的示例编写了相同的函数...抱歉重复:-)