4 lines
165 B
Text
4 lines
165 B
Text
let rec insert_after a b = function
|
|
c :: cs when a = c -> a :: b :: cs
|
|
| c :: cs -> c :: insert_after a b cs
|
|
| [] -> raise Not_found
|