LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-12-31 00:25:41 +01: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 of_contracted_shell_array ?(cutoff=Constants.epsilon) basis =
let rec loop accu = function let rec loop accu = function
| [] -> List.rev accu | [] -> accu
| (s_a :: rest) as l -> | (s_a :: rest) as l ->
let new_accu = let new_accu =
(List.map (fun s_b -> make ~cutoff s_a s_b) l) :: accu (List.map (fun s_b -> make ~cutoff s_a s_b) l) :: accu
in loop new_accu rest in loop new_accu rest
in in
loop [] (Array.to_list basis) loop [] (List.rev (Array.to_list basis))
|> List.concat |> List.concat
|> list_some |> list_some