qsort.io

#!/usr/bin/env io

List do (
    pivot := method(first)
    upper := method(select(x, x < pivot))
    lower := method(select(x, x > pivot))
    qsort := method(if(size > 1, lower qsort append(pivot) appendSeq(upper qsort), clone))
)

writeln("building list")
a := list()
10000 repeat(i, a append(i asString))
a shuffle

testSort := method(
	a clone doMessage(call argAt(0))
)

writeln("Testing")

for(i, 0, 3,
	writeln("testQSort ", Date secondsToRun(testSort(qsort)))
	writeln("testSort  ", Date secondsToRun(testSort(sortInPlace)))
	"" println
)