Sorting algorithms/Cycle sort: Difference between revisions
Content added Content deleted
(→{{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: | 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> |
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}}== |
=={{header|Perl 6}}== |
||
<lang perl6>sub cycle_sort ( @nums |
<lang perl6>sub cycle_sort ( @nums ) { |
||
my $writes = 0; |
my $writes = 0; |
||