在 2 个列表 Ocaml 中查找常见字符

Question

我是 Ocaml 的新手，我的问题是： 我有 2 个字符列表。我想将两个列表的常见字符放入另一个列表（错误。我的基本代码是这样的（“检查 ->hd1

let rec check list1 list2 = match list1, list2 with
| hd1::tl1, hd2::tl2 when hd1 = hd2 -> hd1
| hd1::tl1, hd2::tl2 ->  check  hd1 tl2
| [],[] -> ' '
| _::_,_ -> ' '
| [],_::_ -> ' ';;

check ['l'; 'e'; 'l'; 'l'; 'o'] ['h'; 'e'; 'o'];;

我最大的问题是如何修复一个列表并继续另一个？

另一个问题是当我找到一个字符时删除它。 （例如：list1="hello" list2="helo" 找到第一个“l”时，list2="heo" final_list-->"helo"）。

我必须更好地学习这个模式的概念。

Answer 1

let check l1 l2 =
 List.fold_left ( fun linter e1 ->
  if(List.exists((=)e1)l2) then e1::linter else linter
 ) [] l1;;

测试

# check ['l'; 'e'; 'l'; 'l'; 'o'] ['h'; 'e'; 'o'];;
- : char list = ['o'; 'e']

一些解释

List.exists :检查 e1 是否在 l2 中