Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
4 lines (3 sloc) 199 Bytes
mergesort =. ( $:@ ((<.@-:@#)({.)([)) merge $:@ ((<.@-:@(-@#))({.)([)) )^:(1<#)
min =. (<./@({.!._@[,{.!._@]))
merge =. (min , (((min=({.!._@[)) }. [)) $: (((min=({.!._@])) }. ])) )^:(0&<@(#@([,])))