Sorting algorithms/Stooge sort: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) m (→{{header|11l}}: Void) |
(added RPL) |
||
Line 2,251: | Line 2,251: | ||
-31 0 1 2 2 4 65 83 99 782 |
-31 0 1 2 2 4 65 83 99 782 |
||
</pre> |
</pre> |
||
=={{header|RPL}}== |
|||
« 0 → start end t |
|||
« DUP start GET OVER end GET |
|||
'''IF''' DUP2 > '''THEN''' |
|||
ROT start ROT PUT |
|||
end ROT PUT |
|||
'''ELSE''' DROP2 '''END''' |
|||
'''IF''' end start - 2 ≥ '''THEN''' |
|||
end start - 1 + 3 / FLOOR 't' STO |
|||
start end t - <span style="color:blue">STOOGESORT</span> |
|||
start t + end <span style="color:blue">STOOGESORT</span> |
|||
start end t - <span style="color:blue">STOOGESORT</span> |
|||
'''END''' |
|||
» » '<span style="color:blue">STOOGESORT</span>' STO <span style="color:grey">''@ ( { } start end → { } )'' |
|||
{ 1 4 5 3 -6 3 7 10 -2 -5 7 5 9 -3 7 } 1 OVER SIZE <span style="color:blue">STOOGESORT</span> |
|||
{{out}} |
|||
<pre> |
|||
1: { -6 - 5 -3 -2 1 3 3 4 5 5 7 7 7 9 10 } |
|||
</pre> |
|||
Stooge sort is 436 times slower than the built-in <code>SORT</code> function on an HP-50g. |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |