simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 04:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

better CCKlist.flat_map

Browse source
This commit is contained in:
Simon Cruanes 2014-05-20 20:10:09 +02:00
parent 29ff651f3b
commit 9bcc410c36
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
core/CCKList.ml
View file

@ -120,5 +120,9 @@ let rec append l1 l2 = match l1 with
let rec flat_map f l = match l with let rec flat_map f l = match l with
| `Nil -> `Nil | `Nil -> `Nil
| `Cons (x, l') -> | `Cons (x, l') ->
append (f x) (flat_map f (l' ())) _flat_map_app f (f x) (l' ()) ()
and _flat_map_app f l l' () = match l with
| `Nil -> flat_map f l'
| `Cons (x, tl) ->
`Cons (x, _flat_map_app f (tl ()) l')