Anonymous user
Sorting algorithms/Bead sort: Difference between revisions
→{{header|Perl}}
No edit summary |
|||
Line 413:
=={{header|Perl}}==
<lang perl>
my @data = @_;
Line 425 ⟶ 423:
push @{$columns[$column]}, 1;
my $row = @{$columns[$column]} - 1;
++ $rows[$row]
}
}
return reverse
}
| |||