LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-06-19 11:42:06 +02:00
Code Releases Activity

Corrected ordering

Browse Source
This commit is contained in:
Anthony Scemama 2018-03-22 00:51:34 +01:00
parent 0face5817e
commit 0715f56eaf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Basis/ContractedShellPair.ml
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