如何检查列表是否均匀

Question

我想测试列表是否均匀，在。 喜欢(evenatom '((hi) (jk) l (mno))应该回复#t因为它有4个元素。

从谷歌， 我发现如何检查奇数 ：

(define (oddatom lst)
  (cond
    ((null? lst)       #f)
    ((not (pair? lst)) #t)
    (else (not (eq? (oddatom (car lst)) (oddatom (cdr lst)))))))

使它甚至，我只是换了car用cdr和cdr有car ？

我是Scheme的新手，只是试图获得基础知识。

Answer 1

不，交换car和cdr将无法正常工作。 但你可以交换#f和#t 。

此外，虽然你给出的列表有4个元素，但函数所做的实际上是遍历子列表并计算原子，所以你真的在看8个原子。

Answer 2

您使用'Google'找到了odd atom并且需要even atom 。 怎么样：

(define (evenatom obj) (not (oddatom obj)))

或者，增加一些复杂性，

(define (complement pred)
  (lambda (obj) (not (pred obj))))

接着

(define evenatom (complement oddatom))

Answer 3

您正在混合一个过程来检查列表是否包含偶数个元素（不限于原子）以及检查列表结构中是否存在偶数个原子元素的过程。 示例： ((ab) (cde) f)具有奇数个元素（3）但偶数（6）个原子。

如果你有一些弹珠，你如何确定你是否有奇数或偶数的弹珠？ 你可以把它们视为正常，并检查结束总和的均匀度或计数1,0,1,0或奇数，偶数，奇数，甚至这样你真的不知道我到底有多少弹珠，只有当这是奇怪的甚至是奇怪的。 让我们两个：

(define (even-elements-by-count x)
  (even? (length x)))

(define (even-elements-by-boolean x)
  (let loop ((x x)(even #t))
     (if (null? x)
         even
         (loop (cdr x) (not even)))))

现在想象你还有一些杯子，他们有弹珠，你想知道一样。 你需要计算地板上的元素和杯子中的元素，也许杯子中还有一个带有元素的杯子。 为此，您应该查看如何计算列表结构中的原子并使用第一种方法或修改其中一种方法来更新均匀度而不是计数。

Answer 4

对于偶数个原子，相当于您链接的过程

(define (evenatom lst)
  (cond
    ((null? lst)       #t)
    ((not (pair? lst)) #f)
    (else (eq? (evenatom (car lst)) (evenatom (cdr lst))))))

你需要交换#t和#f，并not最后一行的not子句。