mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-10-31 19:23:40 +01:00
Corrected ordering
This commit is contained in:
parent
0face5817e
commit
0715f56eaf
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user