Skip to content

Instantly share code, notes, and snippets.

@kunishi

kunishi/gist:3031741

Created July 2, 2012 07:48
Show Gist options
  • Save kunishi/3031741 to your computer and use it in GitHub Desktop.
Save kunishi/3031741 to your computer and use it in GitHub Desktop.
Download ZIP
interleave
Raw
gistfile1.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