986400 548 (Fuckup: = instead of == !)
#! perl -slw
use strict;
use Algorithm::Combinatorics qw[ variations ];
my @digits = 1 .. 9;
my $c = 0;
for my $k ( 1 .. 9 ) {
my $i = variations( \@digits, $k );
while( my $aref = $i->next ) {
my $n = join '', @$aref;
my $dv = 0;
for my $d ( @$aref ) {
my $r = $n / $d;
++$dv if int( $r ) == $r; ## <<<
}
++$c if $dv == @$aref;
}
}
print $c;
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
RIP Neil Armstrong