如何更改列表中相同的所有元素？

Question

如何在OCaml中将所有等于c的元素替换为t？

我试图List.filter没有成功：

List.fold_right (fun c -> t) (List.filter c myLst) [] 

是否List模块包含此任务的功能？

Answer 1

您可以使用map（见List module）：

open Printf;; 

let l = ['a'; 'b'; 'c'; 'd'; 'c'] 
let l2 = List.map (fun x -> if (x = 'c') then 't' else x) l;; 
List.iter (printf "%c ") l2;; 

它打印

a b t d t 

Answer 2

如果你想使用List.fold_right，这里是做它的方式：

let replace lst = List.fold_right (fun elmt accum -> 
    let e = if elmt = 'c' then 't' else elmt in 
    e::accum 
) lst [];; 
     val replace : char list -> char list = <fun> 
# replace ['a'; 'b'; 'c'];; 
- : char list = ['a'; 'b'; 't'] 

注意：不要用==代替=在OCaml中，它们有不同的含义。 ==测试物理平等，但=测试语义平等。所以当你使用==时，即使两个值在语义上相等，它也可能返回false。