如何合并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] 

你必须做出关于尾呼吁这对长列表工作的优化，但这是如何解决问题的开始。