File tree Expand file tree Collapse file tree 4 files changed +8
-8
lines changed
Expand file tree Collapse file tree 4 files changed +8
-8
lines changed Original file line number Diff line number Diff line change @@ -6,7 +6,7 @@ open Batteries
66
77let timing_wrap = Vector. timing_wrap
88
9- module type ArrayMatrix =
9+ module type ArrayMatrix =
1010sig
1111 include Matrix
1212 val get_col : t -> int -> vec
@@ -61,7 +61,7 @@ module ArrayMatrix: ArrayMatrixFunctor =
6161 Array. length m
6262
6363 let compare_num_rows m1 m2 =
64- Int. compare (Array. length m1) (Array. length m2)
64+ Int. compare (Array. length m1) (Array. length m2)
6565
6666 let is_empty m =
6767 (num_rows m = 0 )
Original file line number Diff line number Diff line change @@ -3,8 +3,8 @@ open RatOps
33
44open Batteries
55
6- module type ArrayVector =
7- sig
6+ module type ArrayVector =
7+ sig
88 include Vector
99 val mapi_with : (int -> num -> num ) -> t -> unit
1010
@@ -117,7 +117,7 @@ module ArrayVector: ArrayVectorFunctor =
117117 List. iter (fun (idx , value ) -> vec.(idx) < - value) ls;
118118 vec
119119
120- let to_sparse_list v =
120+ let to_sparse_list v =
121121 let rec aux idx acc =
122122 if idx < 0 then acc
123123 else
Original file line number Diff line number Diff line change 99
1010 val copy : t -> t
1111
12- val empty : unit -> t
12+ val empty : unit -> t
1313
1414 val is_empty : t -> bool
1515
Original file line number Diff line number Diff line change @@ -450,8 +450,8 @@ struct
450450 let assigned_vars = List. map fst vv's in
451451 let t = add_vars t assigned_vars in (* introduce all lhs-variables to the relation data structure *)
452452 let primed_vars = List. init (* create a list with primed variables "i'" for each lhs-variable *)
453- (List. length assigned_vars)
454- (fun i -> Var. of_string (Int. to_string i ^ " '" ))
453+ (List. length assigned_vars)
454+ (fun i -> Var. of_string (Int. to_string i ^ " '" ))
455455 in (* TODO: we use primed integers as var names, conflict? *)
456456 let t_primed = add_vars t primed_vars in (* introduce primed variables to the relation data structure *)
457457 (* sequence of assignments: i' = snd vv_i : *)
You can’t perform that action at this time.
0 commit comments