10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00
quantum_package/ocaml/test_symmetry.ml

14 lines
250 B
OCaml
Raw Normal View History

2016-01-27 00:19:08 +01:00
open Qputils
open Qptypes
open Symmetry
let () =
"SPDFGHIJKL"
2017-08-18 19:43:52 +02:00
|> String_ext.to_list
|> List.map of_char
|> List.map Xyz.of_symmetry
|> List.iter (fun x -> List.iter (fun y -> Xyz.to_string y |> print_endline) x ;
2016-01-27 00:19:08 +01:00
print_newline ();)