+INCLUDE "trace.ml"
+
let realloc l old_size new_size dummy =
let l' = Array.create new_size dummy in
Array.blit l 0 l' 0 (min old_size new_size);
dummy_line1 = dummy_line1;
dummy_line2 = dummy_line2
}
- let find t i j k = t.line.(i).(j).(k)
+ let find t k j i = t.line.(i).(j).(k)
+
- let add t i j k v =
+ let add t k j i v =
let line = t.line in
let line1 =
let l1 = line.(i) in