Anonymous user
Sorting algorithms/Stooge sort: Difference between revisions
→{{header|Eiffel}}
(Added Julia language) |
|||
Line 494:
sorted:
-2 0 2 5 7 66
</pre>
=={{header|Elena}}==
ELENA 3.2.1 :
<lang elena>import extensions.
import system'routines.
extension $op
{
stoogeSort
= self stoogeSort(0, self length - 1).
stoogeSort(IntNumber i, IntNumber j)
[
if(self[j]<self[i])
[
self exchange(i,j)
].
if (j - i > 1)
[
int t := (j - i + 1) / 3.
self stoogeSort(i,j-t).
self stoogeSort(i+t,j).
self stoogeSort(i,j-t).
]
]
}
program =
[
var list := 0 to:15 repeat(:n)(randomGenerator eval(20)); toArray.
console printLine("before:", list).
console printLine("after:", list stoogeSort).
].</lang>
{{out}}
<pre>
before:0,1,18,17,4,13,18,8,2,10,15,17,11,1,17
after:0,1,1,2,4,8,10,11,13,15,17,17,17,18,18
</pre>
| |||