Sorting algorithms/Stooge sort: Difference between revisions

m
imported>Arakov
(One intermediate revision by one other user not shown)
Line 702:
 
=={{header|EasyLang}}==
<syntaxhighlight lang=easylang>
proc stsort left right . d[] .
if d[left] > d[right]
Line 715:
.
for i = 1 to 100
d[] &= randomrandint 1000
.
stsort 1 len d[] d[]
Line 2,541:
 
=={{header|Wren}}==
<syntaxhighlight lang="ecmascriptwren">var stoogeSort // recursive
stoogeSort = Fn.new { |a, i, j|
if (a[j] < a[i]) {
Line 2,556:
}
 
var asarray = [ [4, 65, 2, -31, 0, 99, 2, 83, 782, 1], [7, 5, 2, 6, 1, 4, 2, 6, 3] ]
for (a in asarray) {
System.print("Before: %(a)")
stoogeSort.call(a, 0, a.count-1)
2,046

edits