リストをリストをパラメータリストとしてリストに分割してOcamlを分割する

Question

私はOcamlに興味があり、Seperate_byという関数を書く方法について興味があり、リストと要素のリスト元のリストを分割します。例えば

、

Seperate_by [1;2;3;4;5;6;7] [3;5] 

は、事前に[[1;2];[4];[6;7]]

感謝の出力を持っているはず！

Answer 1

あなたはこれを試すことができます。

let seperate_by l lsep = 
    let add acc res = if acc<>[] then acc::res else res in 
    let(res,acc)= 
    List.fold_right (fun x (res,acc) -> 
     if List.exists ((=)x) lsep then (add acc res,[]) else (res,x::acc) 
    ) l ([],[]) 
    in 
    add acc res 

テスト：あなたが接近していた

# seperate_by [1;2;3;4;5;6;7] [3;5];; 
- : int list list = [[1; 2]; [4]; [6; 7]] 
# seperate_by [1;2;3;4;5;6;7] [3;5;7];; 
- : int list list = [[1; 2]; [4]; [6]] 
# seperate_by [1;2;3;4;5;6;7] [1;5;7];; 
- : int list list = [[2; 3; 4]; [6]] 

Answer 2

let rec seperate_by l sign= 

    let rec aux2 = function 
    (head,[])->(head,[]) 
    |(head,x::r) -> if List.exists ((=) x) sign then (head,r) 
    else aux2 (head@[x],r) 
    in 

    let res = aux2 ([],l) in 
    match res with 
    |(head,[])->head::[] 
    |(sub_list,rest_list) -> (sub_list)::(split rest_list sign) 
     ;; 

（*機能AUX2は、リストの最初のsub_listを返しますので、私は、リストの残りの部分とリストを構築維持し、最終的に我々は*の結果を持っている）

注：私はあなたのことを見ました関数名は大文字btで始まります。すべての変数は大文字で始まり、Ocamlの '型'を意味するので、関数の名前は小文字で始まらなければなりません。

Answer 3

let rec seperate_by l sign= 
    let rec aux2 = function 
     (head,[])->(head,[]) 
     |(head,x::y::r) when x=y -> if List.exists ((=) x) sign then (head@[],y::r) else aux2 (head@[x],y::r) 
     |(head,x::r) -> if List.exists ((=) x) sign then (head,r) else aux2 (head@[x],r) 
    in 
    let res = aux2 ([],l) 
    in 
    match res with 
     |(head,[])->head::[] 
     |(sub_list,rest_list) -> (sub_list)::(seperate_by rest_list sign)