10
1
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-10-31 19:23:40 +01:00

Corrected ordering

This commit is contained in:
Anthony Scemama 2018-03-22 00:51:34 +01:00
parent 0face5817e
commit 0715f56eaf

View File

@ -121,13 +121,13 @@ let cmp a b =
*)
let of_contracted_shell_array ?(cutoff=Constants.epsilon) basis =
let rec loop accu = function
| [] -> List.rev accu
| [] -> accu
| (s_a :: rest) as l ->
let new_accu =
(List.map (fun s_b -> make ~cutoff s_a s_b) l) :: accu
in loop new_accu rest
in
loop [] (Array.to_list basis)
loop [] (List.rev (Array.to_list basis))
|> List.concat
|> list_some