如何合併Lucene索引文件？

Question

我想在ocaml中創建一個對列表，但問題是當列表的長度不同時，我不熱點做出對（a，b），當其中一個元素不存在時。

Answer 1

最有可能的，你必須創建一個類來封裝不同長度的情況下，

type ('a,'b) combined = Both of 'a * 'b | Left of 'a | Right of 'b 

let rec zipwith xs ys = match xs,ys with 
    | x::xs,y::ys -> Both (x,y) :: (zipwith xs ys) 
    | x::xs, [] -> Left x  :: (zipwith xs ys) 
    | [], y::ys -> Right y :: (zipwith xs ys) 
    | [], []  -> [] 

# zipwith [1;2;3] [1;2];; 
- : (int, int) combined list = [Both (1, 1); Both (2, 2); Left 3] 

你必須做出關於尾呼籲這對長列表工作的優化，但這是如何解決問題的開始。