Skip to content

Instantly share code, notes, and snippets.

@kunishi

kunishi/merge_as.sml

Created January 29, 2014 10:18
Show Gist options
  • Save kunishi/8685130 to your computer and use it in GitHub Desktop.
Save kunishi/8685130 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
merge_as.sml
fun merge(nil, M) = M
| merge(L, nil) = L
| merge(L as x::xs, M as y::ys) =
if (x:int) < y then x::merge(xs, M)
else y::merge(L, ys);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment