Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club

5 files changed, 165 insertions, 0 deletions

diff --git a/challenge-219/arne-sommer/blog.txt b/challenge-219/arne-sommer/blog.txt
new file mode 100644
index 0000000000..30fec0129b
--- /dev/null
+++ b/challenge-219/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/sorted-expenditure.html
diff --git a/challenge-219/arne-sommer/raku/ch-1.raku b/challenge-219/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..712abaf756
--- /dev/null
+++ b/challenge-219/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@list where @list.elems >= 1 && all(@list) ~~ Int);
+
+say '(' ~ @list.map( * ** 2 ).sort.join(", ") ~ ')';
diff --git a/challenge-219/arne-sommer/raku/ch-2.raku b/challenge-219/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..4f30e24971
--- /dev/null
+++ b/challenge-219/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,77 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($costs, $days, :v(:$verbose));
+
+my @costs = $costs.words>>.Numeric;
+
+die "Specify three costs" unless @costs.elems == 3;
+die "Costs must be numeric" unless all(@costs) ~~ Numeric;
+
+my %costs = ( 1 => @costs[0], 7 => @costs[1], 30 => @costs[2] ); 
+
+my @days  = $days.words>>.UInt;
+
+die "The days must be positive integers (1..366)" unless all(@days) ~~ UInt && 1 <= all(@days) <= 366;
+
+my @res = gather
+{
+  recurse(log => (), total-cost => 0, todo => @days.sort);
+}
+
+my $lowest = Inf;
+
+for @res -> $row
+{
+  print ": Cost: $row{'cost'}" if $verbose;
+
+  if $row{'cost'} < $lowest
+  {
+    $lowest = $row{'cost'};
+    say " - new lowest" if $verbose;
+  }
+  elsif $verbose
+  {
+    say "";
+  }
+
+  if $verbose
+  {
+    for @($row{'log'}) -> $log
+    {
+      say ": - $log";
+    }
+    say "";
+  }
+}
+
+say $lowest;
+
+sub recurse (:@log, :$total-cost, :@todo is copy)
+{
+  my $today = @todo.shift;
+
+  for 1,7,30 -> $days
+  {
+    my $paid     = $total-cost + %costs{$days};
+    my $paid-to  = $today + $days;
+    my @covered  = ($today,);
+    my @new-todo = @todo.clone;
+    my @new-log  = @log.clone;
+
+    while @new-todo.elems && @new-todo[0] < $paid-to
+    {
+      @covered.push: @new-todo.shift;
+    }
+
+    @new-log.push: "At day $today pay for $days day(s) ({ @covered.join(",") })";
+
+    if @new-todo.elems
+    {
+      recurse(log => @new-log, total-cost => $paid, todo => @new-todo)
+    }
+    else
+    {
+      take { cost => $paid, log => @new-log };
+    }
+  }
+}
diff --git a/challenge-219/arne-sommer/raku/sorted-squares b/challenge-219/arne-sommer/raku/sorted-squares
new file mode 100755
index 0000000000..712abaf756
--- /dev/null
+++ b/challenge-219/arne-sommer/raku/sorted-squares
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@list where @list.elems >= 1 && all(@list) ~~ Int);
+
+say '(' ~ @list.map( * ** 2 ).sort.join(", ") ~ ')';
diff --git a/challenge-219/arne-sommer/raku/travel-expenditure b/challenge-219/arne-sommer/raku/travel-expenditure
new file mode 100755
index 0000000000..4f30e24971
--- /dev/null
+++ b/challenge-219/arne-sommer/raku/travel-expenditure
@@ -0,0 +1,77 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($costs, $days, :v(:$verbose));
+
+my @costs = $costs.words>>.Numeric;
+
+die "Specify three costs" unless @costs.elems == 3;
+die "Costs must be numeric" unless all(@costs) ~~ Numeric;
+
+my %costs = ( 1 => @costs[0], 7 => @costs[1], 30 => @costs[2] ); 
+
+my @days  = $days.words>>.UInt;
+
+die "The days must be positive integers (1..366)" unless all(@days) ~~ UInt && 1 <= all(@days) <= 366;
+
+my @res = gather
+{
+  recurse(log => (), total-cost => 0, todo => @days.sort);
+}
+
+my $lowest = Inf;
+
+for @res -> $row
+{
+  print ": Cost: $row{'cost'}" if $verbose;
+
+  if $row{'cost'} < $lowest
+  {
+    $lowest = $row{'cost'};
+    say " - new lowest" if $verbose;
+  }
+  elsif $verbose
+  {
+    say "";
+  }
+
+  if $verbose
+  {
+    for @($row{'log'}) -> $log
+    {
+      say ": - $log";
+    }
+    say "";
+  }
+}
+
+say $lowest;
+
+sub recurse (:@log, :$total-cost, :@todo is copy)
+{
+  my $today = @todo.shift;
+
+  for 1,7,30 -> $days
+  {
+    my $paid     = $total-cost + %costs{$days};
+    my $paid-to  = $today + $days;
+    my @covered  = ($today,);
+    my @new-todo = @todo.clone;
+    my @new-log  = @log.clone;
+
+    while @new-todo.elems && @new-todo[0] < $paid-to
+    {
+      @covered.push: @new-todo.shift;
+    }
+
+    @new-log.push: "At day $today pay for $days day(s) ({ @covered.join(",") })";
+
+    if @new-todo.elems
+    {
+      recurse(log => @new-log, total-cost => $paid, todo => @new-todo)
+    }
+    else
+    {
+      take { cost => $paid, log => @new-log };
+    }
+  }
+}