方案：比较列表大小

| 我的计划程序有问题。我正在尝试接受2个列表并比较它们的大小，如果大小相等，则返回true，否则返回false。每个原子的值无关紧要。 例：

(structeq \'(a (b(c))) \'(1(2(3)))) => #t
(structeq \'(x) \'(()) => #f

这是我的代码：

(define (structeq list1 list2)
    (cond ((null? list1) list2)
    (eq? (length list1) (length list2))))

(structeq \'(a b c d) \'(a b c))

但是，这将返回最后一个列表的大小。我要去哪里错了？ 编辑：取消此问题。我想通了，我只需要删除cond语句。