Merge pull request #3667 from arnesom/branch-for-challenge-102

Arne Sommer

22 files changed, 570 insertions, 0 deletions

diff --git a/challenge-102/arne-sommer/blog.txt b/challenge-102/arne-sommer/blog.txt
new file mode 100644
index 0000000000..5b137fc1d1
--- /dev/null
+++ b/challenge-102/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/rare-counting.html
diff --git a/challenge-102/arne-sommer/perl/ch-1.pl b/challenge-102/arne-sommer/perl/ch-1.pl
new file mode 100755
index 0000000000..6515e7ff81
--- /dev/null
+++ b/challenge-102/arne-sommer/perl/ch-1.pl
@@ -0,0 +1,39 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+use feature 'signatures';
+no warnings 'experimental::signatures';
+use Getopt::Long;
+
+my $verbose = 0;
+
+GetOptions("verbose" => \$verbose);
+
+my $N = shift(@ARGV) // die 'Please specify $N';
+
+die '$N is not a positive integer' unless $N =~ /^[1-9][0-9]*$/;
+
+my $lower = 1 . 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for my $candidate ($lower .. $upper)
+{
+  say $candidate if is_rare($candidate);
+}
+
+sub is_rare ($number)
+{
+  my $reverse  = reverse $number;
+  my $add      = $number + $reverse;
+  my $subtract = $number - $reverse;
+
+  return 0 if $add < 0 || $subtract < 0;
+
+  my $add_sqrt = sqrt($add);
+  my $sub_sqrt = sqrt($subtract);
+
+  return int($add_sqrt) == $add_sqrt && int($sub_sqrt) == $sub_sqrt;
+}
diff --git a/challenge-102/arne-sommer/perl/ch-2.pl b/challenge-102/arne-sommer/perl/ch-2.pl
new file mode 100755
index 0000000000..f2f84f78a8
--- /dev/null
+++ b/challenge-102/arne-sommer/perl/ch-2.pl
@@ -0,0 +1,23 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+
+my $N = shift(@ARGV) // die 'Please specify $N';
+
+die '$N is not a positive integer' unless $N =~ /^[1-9][0-9]*$/;
+
+my $position = $N;
+my $string   = "";
+
+while ($position > 1)
+{
+  my $prefix = $position . '#';
+
+  $string = $prefix . $string;
+  $position -= length($prefix);
+}
+
+length($string) == $N
+    ? say $string
+    : say "#$string";
diff --git a/challenge-102/arne-sommer/perl/hash-counting-string-perl b/challenge-102/arne-sommer/perl/hash-counting-string-perl
new file mode 100755
index 0000000000..f2f84f78a8
--- /dev/null
+++ b/challenge-102/arne-sommer/perl/hash-counting-string-perl
@@ -0,0 +1,23 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+
+my $N = shift(@ARGV) // die 'Please specify $N';
+
+die '$N is not a positive integer' unless $N =~ /^[1-9][0-9]*$/;
+
+my $position = $N;
+my $string   = "";
+
+while ($position > 1)
+{
+  my $prefix = $position . '#';
+
+  $string = $prefix . $string;
+  $position -= length($prefix);
+}
+
+length($string) == $N
+    ? say $string
+    : say "#$string";
diff --git a/challenge-102/arne-sommer/perl/hash-counting-string-ternary-perl b/challenge-102/arne-sommer/perl/hash-counting-string-ternary-perl
new file mode 100755
index 0000000000..5f4d8ee973
--- /dev/null
+++ b/challenge-102/arne-sommer/perl/hash-counting-string-ternary-perl
@@ -0,0 +1,21 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+
+my $N = shift(@ARGV) // die 'Please specify $N';
+
+die '$N is not a positive integer' unless $N =~ /^[1-9][0-9]*$/;
+
+my $position = $N;
+my $string   = "";
+
+while ($position > 0)
+{
+  my $prefix = $position != 1 ? $position . '#' : '#';
+
+  $string = $prefix . $string;
+  $position -= length($prefix);
+}
+
+say $string;
diff --git a/challenge-102/arne-sommer/perl/rare-numbers-perl b/challenge-102/arne-sommer/perl/rare-numbers-perl
new file mode 100755
index 0000000000..6515e7ff81
--- /dev/null
+++ b/challenge-102/arne-sommer/perl/rare-numbers-perl
@@ -0,0 +1,39 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+use feature 'signatures';
+no warnings 'experimental::signatures';
+use Getopt::Long;
+
+my $verbose = 0;
+
+GetOptions("verbose" => \$verbose);
+
+my $N = shift(@ARGV) // die 'Please specify $N';
+
+die '$N is not a positive integer' unless $N =~ /^[1-9][0-9]*$/;
+
+my $lower = 1 . 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for my $candidate ($lower .. $upper)
+{
+  say $candidate if is_rare($candidate);
+}
+
+sub is_rare ($number)
+{
+  my $reverse  = reverse $number;
+  my $add      = $number + $reverse;
+  my $subtract = $number - $reverse;
+
+  return 0 if $add < 0 || $subtract < 0;
+
+  my $add_sqrt = sqrt($add);
+  my $sub_sqrt = sqrt($subtract);
+
+  return int($add_sqrt) == $add_sqrt && int($sub_sqrt) == $sub_sqrt;
+}
diff --git a/challenge-102/arne-sommer/raku/ch-1.raku b/challenge-102/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..d06b0367d6
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,29 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = (1 ~ 0 x ($N -1)).Int;
+my $upper = (9 x $N).Int;
+
+my ($reverse, $add, $subtract, $add-sqrt, $sub-sqrt);
+ 
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $number
+{
+  $reverse  = $number.flip.Int;
+
+  $add      = $number + $reverse;
+  next if $add < 0;
+
+  $subtract = $number - $reverse;
+  next if $subtract < 0;
+
+  $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    $sub-sqrt = $subtract.sqrt;
+    say $number if $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/ch-2.raku b/challenge-102/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..ae353bd416
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0);
+
+my $position = $N;
+my $string   = "";
+
+while ($position > 1)
+{
+  my $prefix = $position ~ '#';
+
+  $string = $prefix ~ $string;
+  $position -= $prefix.chars;
+}
+
+say $string.chars == $N
+  ?? $string
+  !! "#$string";
diff --git a/challenge-102/arne-sommer/raku/hash-counting-string b/challenge-102/arne-sommer/raku/hash-counting-string
new file mode 100755
index 0000000000..ae353bd416
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/hash-counting-string
@@ -0,0 +1,18 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0);
+
+my $position = $N;
+my $string   = "";
+
+while ($position > 1)
+{
+  my $prefix = $position ~ '#';
+
+  $string = $prefix ~ $string;
+  $position -= $prefix.chars;
+}
+
+say $string.chars == $N
+  ?? $string
+  !! "#$string";
diff --git a/challenge-102/arne-sommer/raku/hash-counting-string-ternary b/challenge-102/arne-sommer/raku/hash-counting-string-ternary
new file mode 100755
index 0000000000..dafad526b1
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/hash-counting-string-ternary
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0);
+
+my $position = $N;
+my $string   = "";
+
+while ($position > 0)
+{
+  my $prefix = $position != 1 ?? $position ~ '#' !! '#';
+
+  $string = $prefix ~ $string;
+  $position -= $prefix.chars;
+}
+
+say $string;
diff --git a/challenge-102/arne-sommer/raku/rare-numbers b/challenge-102/arne-sommer/raku/rare-numbers
new file mode 100755
index 0000000000..d06b0367d6
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers
@@ -0,0 +1,29 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = (1 ~ 0 x ($N -1)).Int;
+my $upper = (9 x $N).Int;
+
+my ($reverse, $add, $subtract, $add-sqrt, $sub-sqrt);
+ 
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $number
+{
+  $reverse  = $number.flip.Int;
+
+  $add      = $number + $reverse;
+  next if $add < 0;
+
+  $subtract = $number - $reverse;
+  next if $subtract < 0;
+
+  $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    $sub-sqrt = $subtract.sqrt;
+    say $number if $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers-sequence b/challenge-102/arne-sommer/raku/rare-numbers-sequence
new file mode 100755
index 0000000000..9ad6937bca
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers-sequence
@@ -0,0 +1,21 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0);
+
+my $rns = (1..Inf).grep( *.&is-rare );
+
+say $rns[^$N];
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip;
+  my $add      = $number + $reverse;
+  my $subtract = $number - $reverse;
+
+  return False if any($add, $subtract) < 0;
+
+  my $add-sqrt = $add.sqrt;
+  my $sub-sqrt = $subtract.sqrt;
+
+  return $add.sqrt.Int == $add.sqrt && $sub-sqrt.Int == $sub-sqrt;
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers1 b/challenge-102/arne-sommer/raku/rare-numbers1
new file mode 100755
index 0000000000..9a314a83cd
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers1
@@ -0,0 +1,27 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = 1 ~ 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $candidate
+{
+  say $candidate if is-rare($candidate);
+}
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip;
+  my $add      = $number + $reverse;
+  my $subtract = $number - $reverse;
+
+  return False if any($add, $subtract) < 0;
+
+  my $add-sqrt = $add.sqrt;
+  my $sub-sqrt = $subtract.sqrt;
+
+  return $add.sqrt.Int == $add.sqrt && $sub-sqrt.Int == $sub-sqrt;
+}
\ No newline at end of file
diff --git a/challenge-102/arne-sommer/raku/rare-numbers10 b/challenge-102/arne-sommer/raku/rare-numbers10
new file mode 100755
index 0000000000..a3732bb47c
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers10
@@ -0,0 +1,27 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = (1 ~ 0 x ($N -1)).Int;
+my $upper = (9 x $N).Int;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $number
+{
+  my $reverse  = $number.flip.Int;
+
+  my $add      = $number + $reverse;
+  next if $add < 0;
+
+  my $subtract = $number - $reverse;
+  next if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    say $number if $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers2 b/challenge-102/arne-sommer/raku/rare-numbers2
new file mode 100755
index 0000000000..32600662bf
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers2
@@ -0,0 +1,30 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = 1 ~ 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $candidate
+{
+  say $candidate if is-rare($candidate);
+}
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip;
+  my $add      = $number + $reverse;
+  my $subtract = $number - $reverse;
+
+  return False if any($add, $subtract) < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    return $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers3 b/challenge-102/arne-sommer/raku/rare-numbers3
new file mode 100755
index 0000000000..81137b468a
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers3
@@ -0,0 +1,31 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = 1 ~ 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $candidate
+{
+  say $candidate if is-rare($candidate);
+}
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip;
+  my $add      = $number + $reverse;
+  my $subtract = $number - $reverse;
+
+  return False if $add      < 0;
+  return False if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    return $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers4 b/challenge-102/arne-sommer/raku/rare-numbers4
new file mode 100755
index 0000000000..5e6306c4c5
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers4
@@ -0,0 +1,32 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = 1 ~ 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $candidate
+{
+  say $candidate if is-rare($candidate);
+}
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip;
+
+  my $add      = $number + $reverse;
+  return False if $add < 0;
+
+  my $subtract = $number - $reverse;
+  return False if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    return $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers5 b/challenge-102/arne-sommer/raku/rare-numbers5
new file mode 100755
index 0000000000..289b0f8f6c
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers5
@@ -0,0 +1,32 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = 1 ~ 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $candidate
+{
+  say $candidate if is-rare($candidate);
+}
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip.Int;
+
+  my $add      = $number + $reverse;
+  return False if $add < 0;
+
+  my $subtract = $number - $reverse;
+  return False if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    return $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers6 b/challenge-102/arne-sommer/raku/rare-numbers6
new file mode 100755
index 0000000000..e5ed42d8c1
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers6
@@ -0,0 +1,27 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = 1 ~ 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+for $lower .. $upper -> $number
+{
+  my $reverse  = $number.flip.Int;
+
+  my $add      = $number + $reverse;
+  next if $add < 0;
+
+  my $subtract = $number - $reverse;
+  next if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    say $number if $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers7 b/challenge-102/arne-sommer/raku/rare-numbers7
new file mode 100755
index 0000000000..f2160c1550
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers7
@@ -0,0 +1,29 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = 1 ~ 0 x ($N -1);
+my $upper = 9 x $N;
+
+say ": Range: $lower - $upper" if $verbose;
+
+say ($lower .. $upper).grep({ is-rare($_) }).join("\n");
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip.Int;
+
+  my $add      = $number + $reverse;
+  return False if $add < 0;
+
+  my $subtract = $number - $reverse;
+  return False if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    return $sub-sqrt.Int == $sub-sqrt;
+  }
+}
\ No newline at end of file
diff --git a/challenge-102/arne-sommer/raku/rare-numbers8 b/challenge-102/arne-sommer/raku/rare-numbers8
new file mode 100755
index 0000000000..b58c47e98a
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers8
@@ -0,0 +1,29 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = (1 ~ 0 x ($N -1)).Int;
+my $upper = (9 x $N).Int;
+
+say ": Range: $lower - $upper" if $verbose;
+
+say ($lower .. $upper).grep( *.&is-rare ).join("\n");
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip.Int;
+
+  my $add      = $number + $reverse;
+  return False if $add < 0;
+
+  my $subtract = $number - $reverse;
+  return False if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    return $sub-sqrt.Int == $sub-sqrt;
+  }
+}
diff --git a/challenge-102/arne-sommer/raku/rare-numbers9 b/challenge-102/arne-sommer/raku/rare-numbers9
new file mode 100755
index 0000000000..70f883bc9c
--- /dev/null
+++ b/challenge-102/arne-sommer/raku/rare-numbers9
@@ -0,0 +1,29 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $N where $N > 0, :v(:$verbose));
+
+my $lower = (1 ~ 0 x ($N -1)).Int;
+my $upper = (9 x $N).Int;
+
+say ": Range: $lower - $upper" if $verbose;
+
+($lower .. $upper).hyper.grep( *.&is-rare )>>.say;
+
+sub is-rare ($number)
+{
+  my $reverse  = $number.flip.Int;
+
+  my $add      = $number + $reverse;
+  return False if $add < 0;
+
+  my $subtract = $number - $reverse;
+  return False if $subtract < 0;
+
+  my $add-sqrt = $add.sqrt;
+
+  if $add-sqrt.Int == $add-sqrt
+  { 
+    my $sub-sqrt = $subtract.sqrt;
+    return $sub-sqrt.Int == $sub-sqrt;
+  }
+}