Sorting algorithms/Cycle sort: Difference between revisions
m
→{{header|Perl 6}}: removed 'is rw' from sub, here and in previous
(→{{header|REXX}}: flagged 1st version as incorrect (not using Classic REXX).) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: removed 'is rw' from sub, here and in previous) |
||
Line 734:
After sorting: a a b b c c d d e e f f g g h h i i j j k k l l m m n n o o p p q q r r s s t t u u v v w w x x y y z z</pre>
=={{header|Perl 6}}==
<lang perl6>sub cycle_sort ( @nums
my $writes = 0;
| |||