17 lines
281 B
Markdown
17 lines
281 B
Markdown
## Multiple insertion
|
|
```
|
|
# let rec remove_x x = function
|
|
| [] -> []
|
|
| e::t ->
|
|
if (e = x) then
|
|
remove_x x t
|
|
else e::remove_x x t
|
|
|
|
val remove_x: 'a -> 'a list -> 'a list
|
|
|
|
# let rec remove_duplicates = function
|
|
| [] -> []
|
|
| e::t -> remove_duplicates (remove_x e)::t
|
|
```
|
|
|