11 lines
234 B
OCaml
11 lines
234 B
OCaml
open Vector
|
|
|
|
module Int_arithmetic: (Arithmetic with type t = int) = struct
|
|
type t = int
|
|
let zero = 0
|
|
let add x y = x + y
|
|
let mul x y = x * y
|
|
let str x = string_of_int x
|
|
end
|
|
|
|
module Int_vector = Make_vector (Int_arithmetic)
|