Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (8 sloc) 237 Bytes
open Core.Std
(* The new function we're going to add *)
let rec intersperse list el =
match list with
| [] | [ _ ] -> list
| x :: y :: tl -> x :: el :: intersperse (y::tl) el
(* The remainder of the list module *)
include List