如何解决如何修复此“两个列表的差异”功能?
这个问题与Library function to find difference between two lists - OCaml有关。我想编写自己的函数,与这里的这些不同。我使用内置的高阶函数。这是我的代码:
let listdifference l1 l2=
List.fold_left (fun x y ->List.filter (fun x->x!=y) l1) [] l2;;
我知道这不太好。问题是因为我在 l1
参数中有 List.filter
作为参数,所以作为输出,我得到一个列表,而没有第二个列表的一个元素。但我不知道如何修复它。有什么帮助吗?
解决方法
您需要使用您的函数映射列表
let diffList l1 l2 =
List.filter (fun x -> List.fold_left (&&) true @@ List.map (fun t -> t != x) l2) l1;;
实际上相当于:
let diffList l1 l2 =
List.filter (fun x -> List.for_all (fun t -> t != x) l2) l1;;
什么是一样的
let diffList l1 l2 =
List.filter (fun x -> not (List.mem x l2)) l1;;
,
关于作为第一个参数传递给 List.fold_left
的函数,如果使用更明确的名称可能会更容易。我通常使用 acc
作为累加器。
此外,您使用了两次变量名 x
:因此外部变量名被表达式 x!=y
中的内部变量遮蔽。
通过简单的重命名,我们将获得与您的代码等效的以下代码:
List.fold_left (fun acc elt_from_l2 -> List.filter (fun elt_from_l1 -> elt_from_l1 != elt_from_l2 ) l1) [] l2
在这里我们可以看到从未使用过累加器,这似乎是问题所在。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。