mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-07 22:53:57 +01:00
13 lines
269 B
OCaml
13 lines
269 B
OCaml
|
open Qptypes;;
|
||
|
|
|
||
|
|
let test_module () =
|
||
|
|
let mo_tot_num = MO_number.of_int 10 in
|
||
|
|
let det =
|
||
|
|
[| 15L ; 7L |]
|
||
|
|
|> Determinant.of_int64_array (N_int_number.of_int 1)
|
||
|
|
in
|
||
|
|
Printf.printf "%s\n" (Determinant.to_string (~mo_tot_num:mo_tot_num) det)
|
||
|
|
;;
|
||
|
|
|
||
|
|
test_module ();;
|