Dinesman's multiple-dwelling problem: Difference between revisions
m
→{{header|Perl 6}}: Fixed link
(→{{header|Perl 6}}: Added Perl 6 solution) |
m (→{{header|Perl 6}}: Fixed link) |
||
Line 296:
=={{header|Perl 6}}==
We use permutations because "different floors" are specified. The next_perm subroutine is from the [[Permutations]] task.
<lang perl6>sub next_perm ( @a is copy ) {
my $j = @a.end - 1;
| |||