9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-03 12:03:38 +01:00
qp2/ocaml/Id.ml

30 lines
351 B
OCaml
Raw Normal View History

2019-01-25 11:39:31 +01:00
module Id = struct
type t = int
let of_int x =
assert (x>0); x
let to_int x = x
let of_string x =
int_of_string x
|> of_int
let to_string x =
string_of_int x
let increment x = x + 1
let decrement x = x - 1
let compare = compare
end
module Task = struct
include Id
end
module Client = struct
include Id
end