From 7919af83153f33c170dad1636bef45935728cdb1 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 17 May 2021 21:04:20 +0000
Subject: Updated task 1 - Removed bogus developmen code

---
 challenge-113/perlboy1967/perl/ch-1.pl | 12 ------------
 1 file changed, 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]));
-}
-- 
cgit