比较列表列表中的所有元素，而不使用andmap

问题描述

我有这两个列表：

(define casos ’((a 3 15 r +)(l 41 9 -)))
(define extension ’((b 4 5 r -)(c 4 90 d -)))

我想获取这两个列表中最后一个元素(+或-)不同的列表的数量。

为此，我使用了andmap：

(define iguales 0)

(andmap
    (lambda (x y)
        (cond 
          ((eq? (last x) (last y)) 
             (set! iguales (add1 iguales)))) iguales)
    casos extension) 

如果我使用前面的列表运行此代码，iguales将为1。

我认为andmap不是正确的方法。

有没有更好的方法，不用andmap就可以做到这一点？

推荐答案

如果您需要计算有多少元素满足某个条件，则使用count，非常简单，您可以将多个List作为参数传递(视情况而定)：

(define casos '((a 3 15 r +)(l 41 9 -)))
(define extension '((b 4 5 r -)(c 4 90 d -)))

(count (lambda (caso ext) (eq? (last caso) (last ext)))
       casos
       extension)

=> 1

对于这种情况，andmap不是正确的工具。通常：避免使用set!，大多数情况下，您可以在函数式编程风格中做您想做的事情。请花一些时间学习标准库中提供的list procedures。