mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-19 19:52:15 +02:00
16 lines
290 B
OCaml
16 lines
290 B
OCaml
|
open Core.Std
|
||
|
|
open Qputils
|
||
|
|
open Qptypes
|
||
|
|
open Symmetry
|
||
|
|
|
||
|
|
let () =
|
||
|
|
"SPDFGHIJKL"
|
||
|
|
|> String.to_list_rev
|
||
|
|
|> List.rev
|
||
|
|
|> List.map ~f:of_char
|
||
|
|
|> List.map ~f:Xyz.of_symmetry
|
||
|
|
|> List.iter ~f:(fun x -> List.iter x ~f:(fun y -> Xyz.to_string y |> print_endline) ;
|
||
|
|
print_newline ();)
|
||
|
|
|
||
|
|
|