mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-31 10:43:38 +01:00
14 lines
250 B
OCaml
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 ();)
|
||
|
|
|
||
|
|
|