Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove unnecessary list reverse

  • Loading branch information...
commit ef683d417631ca6a33971e718a5b69aeae5f2d0d 1 parent f1d335f
@VictorNicollet authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/listAssoc.ml
View
4 src/listAssoc.ml
@@ -58,10 +58,10 @@ let group_stable list =
List.rev (List.fold_left (fun acc (k,v) -> group_insert k v acc) [] (List.rev list))
let group_seq list =
- List.rev (List.fold_left (fun acc (k,v) ->
+ List.fold_left (fun acc (k,v) ->
match acc with
| (k',l) :: t when k' = k -> (k,v::l) :: t
- | _ -> (k,[v]) :: acc) [] (List.rev list))
+ | _ -> (k,[v]) :: acc) [] (List.rev list)
let of_json key value json =
let assoc = Json.to_assoc json in
Please sign in to comment.
Something went wrong with that request. Please try again.