Index finite lists of positive integers: Difference between revisions
Index finite lists of positive integers (view source)
Revision as of 06:35, 9 May 2014
, 10 years ago→{{header|Perl 6}}: comma missing
(adding extra credit) |
m (→{{header|Perl 6}}: comma missing) |
||
Line 167:
sub compress(*@n is copy where @n > 1) {
my $dimension = @n.elems;
reduce * * $dimension + *, 0, 0,
reverse gather while @n.any > 0 {
(state $i = 0) %= $dimension;
| |||