15 lines
340 B
Markdown
15 lines
340 B
Markdown
## Multiple insertion
|
|
```
|
|
# let rec split sep lst =
|
|
let rec aux acc current = function
|
|
| [], [] -> acc
|
|
| [], tail -> current :: acc
|
|
| x::xs, _ ->
|
|
if sep x then
|
|
aux (current::acc) [] (xs, [])
|
|
else aux acc (x :: current) (xs, current)
|
|
in aux [] [] (lst, [])
|
|
val split: ('a -> bool) -> 'a list -> 'a list list = <fun>
|
|
```
|
|
|