From 9abe078b8418cdf250d6223d8b1c9949b7f16e1d Mon Sep 17 00:00:00 2001 From: deadmarshal Date: Sun, 15 Sep 2024 08:14:46 +0330 Subject: TWC286 --- challenge-286/deadmarshal/blog.txt | 1 + challenge-286/deadmarshal/perl/ch-1.pl | 12 ++++++++++++ challenge-286/deadmarshal/perl/ch-2.pl | 21 +++++++++++++++++++++ challenge-286/deadmarshal/raku/ch-1.raku | 9 +++++++++ challenge-286/deadmarshal/raku/ch-2.raku | 18 ++++++++++++++++++ 5 files changed, 61 insertions(+) create mode 100644 challenge-286/deadmarshal/blog.txt create mode 100644 challenge-286/deadmarshal/perl/ch-1.pl create mode 100644 challenge-286/deadmarshal/perl/ch-2.pl create mode 100644 challenge-286/deadmarshal/raku/ch-1.raku create mode 100644 challenge-286/deadmarshal/raku/ch-2.raku 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]); + -- cgit