Dinesman's multiple-dwelling problem: Difference between revisions
m
→{{header|Perl}}: revised where 'warnings' pragma used
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: revised where 'warnings' pragma used) |
|||
Line 2,510:
<lang perl>use strict;
use warnings;
use feature
use List::Util 1.33 qw(pairmap);
use Algorithm::Permute qw(permute);
Line 2,549:
my $pred = $predicates{$+{pred}};
{ no warnings;
my $expr = '(' . sprintf($pred->[1], $id->($+{subj}),▼
my $expr = '(' .
$
push @expressions, $expr;
▲ }
}
my @f = 1..$i;
eval '
permute {
say join(", ", pairmap { "$f[$b] $a" } %ids)
|