diff options
| -rwxr-xr-x | challenge-113/perlboy1967/perl/ch-1.pl | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/challenge-113/perlboy1967/perl/ch-1.pl b/challenge-113/perlboy1967/perl/ch-1.pl index a63eb55d9d..03a3f70273 100755 --- a/challenge-113/perlboy1967/perl/ch-1.pl +++ b/challenge-113/perlboy1967/perl/ch-1.pl @@ -37,21 +37,9 @@ foreach my $test (@tests) { done_testing; -for my $d (1 .. 9) { - print STDERR "d:$d\n"; - for my $i (1 .. 100000) { - printf "($i,$d)\n" if (x($i,$d) == $i); - print STDERR '.' if ($i % 1000 == 0); - } - print STDERR "\n"; -} - sub isRepresentInteger($$) { my ($n,$d) = @_; return ($n == sum0(grep /$d/, ($d .. $n)) ? 1 : 0); } -sub x { - return sum0(grep /$_[1]/, ($_[1] .. $_[0])); -} |