237

2 files changed, 186 insertions, 0 deletions

diff --git a/challenge-237/0rir/raku/ch-1.raku b/challenge-237/0rir/raku/ch-1.raku
new file mode 100644
index 0000000000..1172caecd5
--- /dev/null
+++ b/challenge-237/0rir/raku/ch-1.raku
@@ -0,0 +1,102 @@
+#!/usr/bin/env raku
+# :vim ft=raku sw=4 expandtab  # 🦋 ∅∪∩∋∈∉ ≡ ≢ «␤ » ∴
+use v6.d;
+use Test;
+
+=begin comment
+236-1: Seize The Day            Submitted by: Mark Anderson
+Given a year, a month, a weekday of month, and a day of
+week (1 (Mon) .. 7 (Sun)), print the day.
+
+Example 1
+Input: Year = 2024, Month = 4, Weekday of month = 3, day of week = 2
+Output: 16
+
+The 3rd Tue of Apr 2024 is the 16th
+Example 2
+Input: Year = 2025, Month = 10, Weekday of month = 2, day of week = 4
+Output: 9
+
+The 2nd Thu of Oct 2025 is the 9th
+Example 3
+Input: Year = 2026, Month = 8, Weekday of month = 5, day of week = 3
+Output: 0
+
+There isn't a 5th Wed in Aug 2026
+=end comment
+
+my @Test =
+    #yr   mo  occur  dow         day
+    2024,  4,   1,     1,          1,
+    2024,  4,   1,     2,          2,
+    2024,  4,   1,     3,          3,
+    2024,  4,   1,     4,          4,
+    2024,  4,   1,     5,          5,
+    2024,  4,   1,     6,          6,
+    2024,  4,   1,     7,          7,
+
+    2024,  4,   2,     2,          9,
+    2024,  4,   3,     2,         16,
+    2024,  4,   4,     2,         23,
+    2024,  4,   5,     2,         30,
+    2024,  4,   6,     2,         Int,
+
+    2025, 10,   2,     4,          9,
+    2026,  8,   5,     3,         Int,
+    2024,  3,   3,     1,         18,
+;
+
+plan 33 + @Test ÷ 5;
+
+# Argument $date must only be in the correct month and year.
+
+sub nth-day-or-zed( Date $date, UInt $dow, UInt $nth --> Int ) {
+    $_ = nth-day-of-week-in-month( $date, $dow, $nth );
+    .defined ?? .day !! Int
+}
+
+sub nth-day-of-week-in-month( Date $date,
+                              UInt $dow,
+                              UInt $nth is copy --> Date ) {
+    my $ret = first-day-of-week-in-month( $date, $dow) + ($nth × 7) -7;
+    return Date if $date.month ≠ $ret.month;
+    $ret;
+}
+
+sub first-day-of-week-in-month( Date $date is copy,
+                              UInt $dow where 0 < * < 8 --> Date ) {
+    my $start-day-of-week = ( $date.=first-date-in-month ).day-of-week;
+    return  do given $start-day-of-week <=> $dow {
+                when Less { $date += $dow - $start-day-of-week;        }
+                when More { $date += 7    - $start-day-of-week + $dow; }
+                when Same { $date; }
+            }
+}
+
+for @Test -> $y,$m, $nth, $dow, $exp  {
+    if $nth == 1 {
+        is first-day-of-week-in-month( Date.new( $y,$m,14), $dow).day-of-week,
+                $exp,
+                "first-day-o-wk-in-mo";
+    }
+    my $x = Date.new(  $y, $m, 15); 
+
+    my $res = nth-day-of-week-in-month( $x, $dow, $nth);
+    if $res.defined {
+        is $res.day, $exp, "day is expected";
+        is $res.weekday-of-month == $nth, True, "weekday match";
+    }
+
+    is nth-day-or-zed( $x, $dow, $nth),
+            $exp, "yr/mo: $y/$m  occur: $nth  dow: $dow ";
+}
+done-testing;
+
+my ($Year, $Month, $Weekday-of-month, $day-of-week) = 2024, 4, 3, 2;
+say   "\nInput: Year = $Year, Month = $Month,"
+    ~ " Weekday of month = $Weekday-of-month, day-of-week = $day-of-week"
+    ~ "\nOutput: ",
+    nth-day-or-zed(
+        Date.new( $Year, $Month, 7), $day-of-week, $Weekday-of-month);
+exit;
+
diff --git a/challenge-237/0rir/raku/ch-2.raku b/challenge-237/0rir/raku/ch-2.raku
new file mode 100644
index 0000000000..5871348c1c
--- /dev/null
+++ b/challenge-237/0rir/raku/ch-2.raku
@@ -0,0 +1,84 @@
+#!/usr/bin/env raku
+# :vim ft=raku sw=4 expandtab  # 🦋 ∅∪∩∋∈∉ ≡ ≢ «␤ » ∴
+use v6.d;
+use Test;
+
+=begin comment
+236-2: Maximise Greatness       Submitted by: Mohammad S Anwar
+
+Given an array of integers, permute the given array such that you get
+the maximum possible greatness.
+
+To determine greatness, nums[i] < perm[i] where 0 <= i < nums.length
+
+Example 1
+Input: @nums = (1, 3, 5, 2, 1, 3, 1)
+Output: 4
+
+One possible permutation: (2, 5, 1, 3, 3, 1, 1) which returns 4 greatness as below:
+nums[0] < perm[0]
+nums[1] < perm[1]
+nums[3] < perm[3]
+nums[4] < perm[4]
+
+Example 2
+Input: @ints = (1, 2, 3, 4)
+Output: 3
+
+One possible permutation: (2, 3, 4, 1) which returns 3 greatness as below:
+nums[0] < perm[0]
+nums[1] < perm[1]
+nums[2] < perm[2]
+
+=end comment
+
+my @Test =
+    (1,),                       0,
+    (1,1,1,1),                  0,
+    (1,2),                      1,
+    (3,2,1),                    2,
+    (1,1,2),                    1,
+    (1,3,2,4),                  3,
+    (1,1,1,2),                  1,
+    (1,1,1,1,2),                1,
+    (1,1,1,1,2,2),              2,
+    (1,1,1,1,2,2,2),            3,
+    (1,1,1,1,2,2,2,2),          4,
+    (1,1,1,1,2,2,2,2,2),        4,
+    (1,1,1,1,2,2,2,2,2,2,2),    4,
+    (1,3,5,2,1,3,1),            4,
+    (1,1,3,5,2,1,3,1),          4,
+    (1,3,5,2,1,3,1,3,3,5),      6,
+    (1,3,5,2,1,3,1,3,3,3),      5,
+    (1,3,5,2,1,3,1,5,5,5),      6,
+    (1,3,5,2,1,3,1,5,5,5,4),    7,
+;
+
+plan @Test ÷ 2;
+
+sub func( @in is copy --> Int) {
+
+    return 0 if @in.end == 0;
+
+    my ($head, $tail, $work) = 0, 1, 0;
+    @in.=sort;
+
+    while $tail ≤ @in.end {
+        if @in[$tail] == @in[$head] {
+            ++$tail;
+            next;
+        }
+        ++$tail;
+        ++$head;
+    }
+    $head;
+}
+
+for @Test -> @in, $exp {
+    is func(@in), $exp, "$exp <- in: @in.sort()";
+}
+done-testing;
+my @int = (1,3,5,2,1,3,1,5,5,5,4).sort;
+say "\nInput: @int =  @int.raku()\nOutput: &func( @int)";
+exit;
+