simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 03:44:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

do simplify the code a bit

Browse source 
closer to the original solution, too. Avoids a redundant `:= []`.
This commit is contained in:
Simon Cruanes 2025-12-20 11:15:15 -05:00
parent ddc87518a7
commit c72b60fd6f
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/core/CCList.ml
View file

@ -821,14 +821,14 @@ let take_drop n l =
(* fun idea from nojb in (* fun idea from nojb in
https://discuss.ocaml.org/t/efficient-implementation-of-list-split/17616/2 *) https://discuss.ocaml.org/t/efficient-implementation-of-list-split/17616/2 *)
let[@tail_mod_cons] rec loop (res_drop : _ ref) n l = let[@tail_mod_cons] rec loop (res_drop : _ ref) n l =
match n, l with match l with
| 0, _ -> | [] -> []
res_drop := l; | x :: tl ->
[] if n = 0 then (
| _, [] -> res_drop := l;
res_drop := []; []
[] ) else
| _, x :: tl -> x :: loop res_drop (n - 1) tl x :: loop res_drop (n - 1) tl
in in
let res_drop = ref [] in let res_drop = ref [] in
let res_take = loop res_drop n l in let res_take = loop res_drop n l in