比较列表列表中的所有元素,而不使用andmap [英] Compare all the elements of a list of lists without using andmap
本文介绍了比较列表列表中的所有元素,而不使用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。
这篇关于比较列表列表中的所有元素,而不使用andmap的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文