Merge pull request #10834 from deadmarshal/TWC286

TWC286

5 files changed, 61 insertions, 0 deletions

diff --git a/challenge-286/deadmarshal/blog.txt b/challenge-286/deadmarshal/blog.txt
new file mode 100644
index 0000000000..6794868868
--- /dev/null
+++ b/challenge-286/deadmarshal/blog.txt
@@ -0,0 +1 @@
+https://deadmarshal.blogspot.com/2024/09/twc286.html
diff --git a/challenge-286/deadmarshal/perl/ch-1.pl b/challenge-286/deadmarshal/perl/ch-1.pl
new file mode 100644
index 0000000000..37b03fe485
--- /dev/null
+++ b/challenge-286/deadmarshal/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use File::Slurp;
+
+sub self_spammer{
+  my @words = grep /\S/,split /\s/, read_file(__FILE__);
+  $words[rand @words]
+}
+
+print self_spammer();
+
diff --git a/challenge-286/deadmarshal/perl/ch-2.pl b/challenge-286/deadmarshal/perl/ch-2.pl
new file mode 100644
index 0000000000..35870337bc
--- /dev/null
+++ b/challenge-286/deadmarshal/perl/ch-2.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util qw(min max);
+
+sub order_game{
+  my ($arr) = @_;
+  while(@$arr > 2){
+    my @t;
+    foreach my($a,$b,$c,$d)(@$arr){
+      push @t,min($a,$b),max($c,$d)
+    }
+    @$arr = @t;
+  }
+  min @$arr
+}
+
+printf "%d\n",order_game([2,1,4,5,6,3,0,2]);
+printf "%d\n",order_game([0,5,3,2]);
+printf "%d\n",order_game([9,2,1,4,5,6,0,7,3,1,3,5,7,9,0,8]);
+
diff --git a/challenge-286/deadmarshal/raku/ch-1.raku b/challenge-286/deadmarshal/raku/ch-1.raku
new file mode 100644
index 0000000000..bf14773d1b
--- /dev/null
+++ b/challenge-286/deadmarshal/raku/ch-1.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/env raku
+
+sub self-spammer()
+{
+  $?FILE.IO.words.pick
+}
+
+say self-spammer();
+
diff --git a/challenge-286/deadmarshal/raku/ch-2.raku b/challenge-286/deadmarshal/raku/ch-2.raku
new file mode 100644
index 0000000000..5927b6f320
--- /dev/null
+++ b/challenge-286/deadmarshal/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub order-game(@arr)
+{
+  while (@arr > 2) {
+    my @t;
+    for @arr -> $a,$b,$c,$d {
+      @t.push: ($a,$b).min,($c,$d).max
+    }
+    @arr = @t;
+  }
+  @arr.min
+}
+
+say order-game([2,1,4,5,6,3,0,2]);
+say order-game([0,5,3,2]);
+say order-game([9,2,1,4,5,6,0,7,3,1,3,5,7,9,0,8]);
+