Rosetta Code

Sorting algorithms/Selection sort: Difference between revisions

Page Discussion

Sorting algorithms/Selection sort (view source)

Revision as of 19:22, 12 October 2011

37 bytes removed ,  12 years ago
→‎{{header|Standard ML}}
Line 1,384:
| selection_sort (first::lst) =
let
fun select_rval (small ([], output) = small :: selection_sort outputfoldl
| select_r small(fn (x::xs, (small, output)) = >
if x < small then
select_r x (xsx, small::output)
else
select_r small (xssmall, x::output)
) (first, []) lst
in
select_rsmall first:: (lst,selection_sort [])output
end</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/88563"