Sorting algorithms/Stooge sort: Difference between revisions
Content added Content deleted
m (added whitespace before the TOC.) |
SqrtNegInf (talk | contribs) |
||
Line 1,230: | Line 1,230: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>sub stoogesort( @L |
<lang perl6>sub stoogesort( @L, $i = 0, $j = @L.end ) { |
||
@L[$j,$i] = @L[$i,$j] if @L[$i] > @L[$j]; |
@L[$j,$i] = @L[$i,$j] if @L[$i] > @L[$j]; |
||