epicours/Exam.md

Multiple insertion

# let insert_mult n x lst =
	if n <= 0 then
		invalid_arg "insert_mult: n must be > 0"
	else
	    let rec aux count = function
	      | [] -> []
	      | e::t ->
	          if (count = n) then
		        e :: x :: aux 1 t
	          else
		        e :: aux (count + 1) t
	    in
		    match lst with
			    | [] -> []
			    | z::f -> z :: aux 0 f
val insert_mult: int -> 'a -> 'a list -> 'a list = <fun>