41 lines
888 B
OCaml
41 lines
888 B
OCaml
|
module Int =
|
||
|
|
struct
|
||
|
|
type t = int
|
||
|
|
let compare (i: int) (j: int) = Pervasives.compare i j
|
||
|
|
let to_string = string_of_int
|
||
|
|
end
|
||
|
|
|
||
|
|
module Test (Part: Partition.S with type item = Int.t) =
|
||
|
|
struct
|
||
|
|
open Part
|
||
|
|
|
||
|
|
let () = empty
|
||
|
|
|> equiv 4 3
|
||
|
|
|> equiv 3 8
|
||
|
|
|> equiv 6 5
|
||
|
|
|> equiv 9 4
|
||
|
|
|> equiv 2 1
|
||
|
|
|> equiv 8 9
|
||
|
|
|> equiv 5 0
|
||
|
|
|> equiv 7 2
|
||
|
|
|> equiv 6 1
|
||
|
|
|> equiv 1 0
|
||
|
|
|> equiv 6 7
|
||
|
|
|> equiv 8 0
|
||
|
|
|> equiv 7 7
|
||
|
|
|> equiv 10 10
|
||
|
|
|> print
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
module Test0 = Test (Partition0.Make(Int))
|
||
|
|
let () = print_newline ()
|
||
|
|
|
||
|
|
module Test1 = Test (Partition1.Make(Int))
|
||
|
|
let () = print_newline ()
|
||
|
|
|
||
|
|
module Test2 = Test (Partition2.Make(Int))
|
||
|
|
let () = print_newline ()
|
||
|
|
|
||
|
|
module Test3 = Test (Partition3.Make(Int))
|