9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-09 17:33:05 +02:00
qp2/ocaml/tests/test_symmetry.ml
2019-01-25 11:39:31 +01:00

14 lines
250 B
OCaml

open Qputils
open Qptypes
open Symmetry
let () =
"SPDFGHIJKL"
|> 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 ;
print_newline ();)