Skip to content

Instantly share code, notes, and snippets.

@kunishi

kunishi/interleave.sml

Created January 29, 2014 10:17
Show Gist options
  • Save kunishi/8685115 to your computer and use it in GitHub Desktop.
Save kunishi/8685115 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
interleave.sml
fun interleave n nil = [[n]]
| interleave n (L as x::xs) = (n::L) :: map (fn L => x::L) (interleave n xs);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment