mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-06-02 11:25:19 +02:00
13 lines
202 B
OCaml
13 lines
202 B
OCaml
|
type t =
|
||
|
|
| Pos
|
||
|
|
| Neg
|
||
|
|
|
||
|
|
let of_nperm nperm =
|
||
|
|
if (nperm land 1) = 1 then Neg
|
||
|
|
else Pos
|
||
|
|
|
||
|
|
let pp_phase ppf = function
|
||
|
|
| Pos -> Format.fprintf ppf "@[<h>+1@]"
|
||
|
|
| Neg -> Format.fprintf ppf "@[<h>-1@]"
|
||
|
|
|