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