forked from
jonmsterling.com/ocaml-forester
ocaml
remove duplicate functions from List_util
-8
-8
lib/prelude/List_util.ml
-8
lib/prelude/List_util.ml
···
22
22
let partition_fold_error :
23
23
('a -> ('b list, 'c list) result) -> 'a list -> 'b list * 'b list =
24
24
fun f xs -> error_partition f xs |> Pair.map_snd List.concat
25
-
26
-
let rec prepend_to_all sep = function
27
-
| [] -> []
28
-
| x :: xs -> sep :: x :: prepend_to_all sep xs
29
-
30
-
let intersperse sep = function
31
-
| [] -> []
32
-
| x :: xs -> x :: prepend_to_all sep xs