mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-14 01:05:27 +02:00
16 lines
241 B
OCaml
16 lines
241 B
OCaml
|
open Qptypes;;
|
||
|
|
open Core.Std;;
|
||
|
|
|
||
|
|
type t =
|
||
|
|
{ sym : Symmetry.t ;
|
||
|
|
expo : Positive_float.t ;
|
||
|
|
}
|
||
|
|
|
||
|
|
let to_string p =
|
||
|
|
let { sym = s ; expo = e } = p in
|
||
|
|
Printf.sprintf "(%s, %f)"
|
||
|
|
(Symmetry.to_string s)
|
||
|
|
(Positive_float.to_float e)
|
||
|
|
;;
|
||
|
|
|