Challenge 268 solutions by Packy Anderson

  * Raku that maybe looks like Raku
  * Perl
  * Python that definitely looks like Perl

1 Blog post

8 files changed, 221 insertions, 1 deletions

diff --git a/challenge-268/packy-anderson/README.md b/challenge-268/packy-anderson/README.md
index 3c4bbfa52c..736b69a97f 100644
--- a/challenge-268/packy-anderson/README.md
+++ b/challenge-268/packy-anderson/README.md
@@ -16,4 +16,4 @@
 
 ## Blog Post
 
-[It’s the Product Line Sign that Counts](https://packy.dardan.com/b/Ko)
+[Let's do the Numbers!](https://packy.dardan.com/b/L6)
diff --git a/challenge-268/packy-anderson/blog.txt b/challenge-268/packy-anderson/blog.txt
new file mode 100644
index 0000000000..c57ebc32d4
--- /dev/null
+++ b/challenge-268/packy-anderson/blog.txt
@@ -0,0 +1 @@
+https://packy.dardan.com/b/L6
\ No newline at end of file
diff --git a/challenge-268/packy-anderson/perl/ch-1.pl b/challenge-268/packy-anderson/perl/ch-1.pl
new file mode 100755
index 0000000000..8985dd6ccf
--- /dev/null
+++ b/challenge-268/packy-anderson/perl/ch-1.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/env perl
+use v5.38;
+
+sub magicNumber($x, $y) {
+  my @xS = sort @$x;
+  my @yS = sort @$y;
+  my $magic = shift(@yS) - shift(@xS);
+  while (@xS) {
+    if (shift(@yS) - shift(@xS) != $magic) {
+      return; # no magic number
+    }
+  }
+  return $magic;
+}
+
+sub solution($x, $y) {
+  say 'Input: @x = (' . join(', ', @$x) . ')';
+  say '       @y = (' . join(', ', @$y) . ')';
+  my $magic = magicNumber($x, $y);
+  if (defined $magic) {
+    say 'Output: ' . $magic;
+    say "\nThe magic number is $magic.";
+    say '@x = (' . join(', ', @$x) . ')';
+    say '   +  ' . join('  ', ($magic) x scalar(@$x));
+    say '@y = (' . join(', ', map { $_ + $magic } @$x ) . ')';
+  }
+  else {
+    say 'Output: no magic number';
+  }
+}
+
+say "Example 1:";
+solution([3, 7, 5], [9, 5, 7]);
+
+say "\nExample 2:";
+solution([1, 2, 1], [5, 4, 4]);
+
+say "\nExample 3:";
+solution([2], [5]);
+
+say "\nExample 4:";
+solution([1, 2], [4, 2]);
\ No newline at end of file
diff --git a/challenge-268/packy-anderson/perl/ch-2.pl b/challenge-268/packy-anderson/perl/ch-2.pl
new file mode 100755
index 0000000000..36944305a8
--- /dev/null
+++ b/challenge-268/packy-anderson/perl/ch-2.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+use v5.38;
+
+sub numberGame(@ints) {
+  my @intSorted = sort @ints;
+  my @new;
+  while (@intSorted) {
+    my $x = shift @intSorted;
+    my $y = shift @intSorted;
+    if ($x > $y) {
+      push @new, $x, $y;
+    }
+    else {
+      push @new, $y, $x;
+    }
+  }
+  return @new;
+}
+
+sub solution($ints) {
+  say 'Input: @ints = (' . join(', ', @$ints) . ')';
+  my @new = numberGame(@$ints);
+  say 'Output: (' . join(', ', @new) . ')';
+}
+
+say "Example 1:";
+solution([2, 5, 3, 4]);
+
+say "\nExample 2:";
+solution([9, 4, 1, 3, 6, 4, 6, 1]);
+
+say "\nExample 3:";
+solution([1, 2, 2, 3]);
\ No newline at end of file
diff --git a/challenge-268/packy-anderson/python/ch-1.py b/challenge-268/packy-anderson/python/ch-1.py
new file mode 100755
index 0000000000..902a1fe2fb
--- /dev/null
+++ b/challenge-268/packy-anderson/python/ch-1.py
@@ -0,0 +1,39 @@
+#!/usr/bin/env python
+
+def magicNumber(x, y):
+    xS = sorted(x)
+    yS = sorted(y)
+    magic = yS.pop(0) - xS.pop(0)
+    while xS:
+        if yS.pop(0) - xS.pop(0) != magic:
+            return None; # no magic number
+    return magic
+
+def comma_join(arr):
+    return ', '.join(map(lambda i: str(i), arr))
+
+def solution(x, y):
+    print(f'Input: @x = ({comma_join(x)})')
+    print(f'       @y = ({comma_join(y)})')
+    magic = magicNumber(x, y)
+    if magic is None:
+        print('Output: no magic number')
+    else:
+        print(f'Output: {magic}\n')
+        print(f'@x = ({comma_join(x)})')
+        magicStr = '  '.join(map(lambda i: str(magic), x))
+        print(f'   +  {magicStr}')
+        yStr = ', '.join(map(lambda i: str(i+magic), x))
+        print(f'@y = ({yStr}')
+
+print('Example 1:')
+solution([3, 7, 5], [9, 5, 7])
+
+print('\nExample 2:')
+solution([1, 2, 1], [5, 4, 4])
+
+print('\nExample 3:')
+solution([2], [5])
+
+print('\nExample 4:')
+solution([1, 2], [4, 2])
\ No newline at end of file
diff --git a/challenge-268/packy-anderson/python/ch-2.py b/challenge-268/packy-anderson/python/ch-2.py
new file mode 100755
index 0000000000..51acaf6615
--- /dev/null
+++ b/challenge-268/packy-anderson/python/ch-2.py
@@ -0,0 +1,30 @@
+#!/usr/bin/env python
+
+def numberGame(ints):
+    intSorted = sorted(ints)
+    new = []
+    while intSorted:
+        x = intSorted.pop(0)
+        y = intSorted.pop(0)
+        if x > y:
+            new.extend([x, y])
+        else:
+            new.extend([y, x])
+    return new
+
+def comma_join(arr):
+    return ', '.join(map(lambda i: str(i), arr))
+
+def solution(ints):
+    print(f'Input: @ints = ({comma_join(ints)})')
+    new = numberGame(ints)
+    print(f'Output: ({comma_join(new)})')
+
+print('Example 1:')
+solution([2, 5, 3, 4])
+
+print('\nExample 2:')
+solution([9, 4, 1, 3, 6, 4, 6, 1])
+
+print('\nExample 3:')
+solution([1, 2, 2, 3])
\ No newline at end of file
diff --git a/challenge-268/packy-anderson/raku/ch-1.raku b/challenge-268/packy-anderson/raku/ch-1.raku
new file mode 100755
index 0000000000..6696fe24da
--- /dev/null
+++ b/challenge-268/packy-anderson/raku/ch-1.raku
@@ -0,0 +1,42 @@
+#!/usr/bin/env raku
+use v6;
+
+sub magicNumber(@x, @y) {
+  my @xS = @x.sort;
+  my @yS = @y.sort;
+  my $magic = @yS.shift - @xS.shift;
+  while (@xS) {
+    if (@yS.shift - @xS.shift != $magic) {
+      return; # no magic number
+    }
+  }
+  return $magic;
+}
+
+sub solution(@x, @y) {
+  say 'Input: @x = (' ~ @x.join(', ') ~ ')';
+  say '       @y = (' ~ @y.join(', ') ~ ')';
+  my $magic = magicNumber(@x, @y);
+  if ($magic.defined) {
+    say 'Output: ' ~ $magic;
+    say "\nThe magic number is $magic.";
+    say '@x = (' ~ @x.join(', ') ~ ')';
+    say '   +  ' ~ ($magic xx @x.elems).join('  ');
+    say '@y = (' ~ @x.map(-> $v { $v + $magic }).join(', ') ~ ')';
+  }
+  else {
+    say 'Output: no magic number';
+  }
+}
+
+say "Example 1:";
+solution([3, 7, 5], [9, 5, 7]);
+
+say "\nExample 2:";
+solution([1, 2, 1], [5, 4, 4]);
+
+say "\nExample 3:";
+solution([2], [5]);
+
+say "\nExample 4:";
+solution([1, 2], [4, 2]);
\ No newline at end of file
diff --git a/challenge-268/packy-anderson/raku/ch-2.raku b/challenge-268/packy-anderson/raku/ch-2.raku
new file mode 100755
index 0000000000..103fbe599f
--- /dev/null
+++ b/challenge-268/packy-anderson/raku/ch-2.raku
@@ -0,0 +1,33 @@
+#!/usr/bin/env raku
+use v6;
+
+sub numberGame(@ints) {
+  my @intSorted = @ints.sort;
+  my @new;
+  while (@intSorted) {
+    my $x = @intSorted.shift;
+    my $y = @intSorted.shift;
+    if ($x > $y) {
+      @new.push: ($x, $y).Slip;
+    }
+    else {
+      @new.push: ($y, $x).Slip;
+    }
+  }
+  return @new;
+}
+
+sub solution(@ints) {
+  say 'Input: @ints = (' ~ @ints.join(', ') ~ ')';
+  my @new = numberGame(@ints);
+  say 'Output: (' ~ @new.join(', ') ~ ')';
+}
+
+say "Example 1:";
+solution([2, 5, 3, 4]);
+
+say "\nExample 2:";
+solution([9, 4, 1, 3, 6, 4, 6, 1]);
+
+say "\nExample 3:";
+solution([1, 2, 2, 3]);
\ No newline at end of file