比较列表列表中的所有元素,而不使用andmap [英] Compare all the elements of a list of lists without using andmap

查看:15
本文介绍了比较列表列表中的所有元素,而不使用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屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆