179

3 files changed, 310 insertions, 0 deletions

diff --git a/challenge-179/0rir/raku/Test-Ord.rakumod b/challenge-179/0rir/raku/Test-Ord.rakumod
new file mode 100644
index 0000000000..49922a4a07
--- /dev/null
+++ b/challenge-179/0rir/raku/Test-Ord.rakumod
@@ -0,0 +1,110 @@
+use v6.d;
+unit module Test-Ord;
+
+our @Test-Cardinal is export =
+     [ 0,  'Zero', ],
+     [ 1,  'One', ],
+     [ 9,  'Nine', ],
+     [ 10,  'Ten', ],
+     [ 11,  'Eleven', ],
+     [ 20,  'Twenty', ],
+     [ 23,  'Twenty-Three', ],
+     [ 99,  'Ninety-Nine', ],
+     [ 100,  'One Hundred', ],
+     [ 101,  'One Hundred One', ],
+     [ 113,  'One Hundred Thirteen', ],
+     [ 999,  'Nine Hundred Ninety-Nine', ],
+     [ 1000,  'One Thousand', ],
+     [ 1001,  'One Thousand One', ],
+     [ 1999,  'One Thousand Nine Hundred Ninety-Nine', ],
+     [ 9000,  'Nine Thousand', ],
+     [ 9900, 'Nine Thousand Nine Hundred', ],
+     [ 9901, 'Nine Thousand Nine Hundred One', ],
+     [ 9999,  'Nine Thousand Nine Hundred Ninety-Nine', ],
+     [ 900901, 'Nine Hundred Thousand Nine Hundred One', ],
+     [ 901901, 'Nine Hundred One Thousand Nine Hundred One', ],
+     [ 99_000_900_000_000,   'Ninety-Nine Trillion Nine Hundred Million', ],
+;
+
+our %Test-Ordinal is export =
+     0 => [ "Zeroeth", " 0th", ],
+     1 => [ "First", "1st", ],
+     2 => [ "Second", "2nd", ],
+     3 => [ "Third", "3rd", ],
+     4 => [ "Fourth", "4th", ],
+     5 => [ "Fifth", "5th", ],
+     6 => [ "Sixth", "6th", ],
+     7 => [ "Seventh", " 7th", ],
+     8 => [ "Eighth", "8th", ],
+     9 => [ "Ninth", " 9th", ],
+    10 => [ "Tenth", " 9th", ],
+    11 => [ "Eleventh", " 10th", ],
+    12 => [ "Twelfth", "12th", ],
+    13 => [ "Thirteenth", " 13th", ],
+    14 => [ "Fourteenth", "14th", ],
+    15 => [ "Fifteenth", "15th", ],
+    16 => [ "Sixteenth", "16th", ],
+    17 => [ "Seventeenth", " 17th", ],
+    18 => [ "Eighteenth", " 18th", ],
+    19 => [ "Nineteenth", "19th", ],
+    20 => [ "Twentieth", "20th", ],
+    21 => [ "Twenty-First", "21st", ],
+    22 => [ "Twenty-Second", "22nd", ],
+    23 => [ "Twenty-Third", "23rd", ],
+    24 => [ "Twenty-Fourth", "24th", ],
+    25 => [ "Twenty-Fifth", "25th", ],
+    26 => [ "Twenty-Sixth", "26th", ],
+    27 => [ "Twenty-Seventh", "27th", ],
+    28 => [ "Twenty-Eighth", "28th", ],
+    29 => [ "Twenty-Ninth", "29th", ],
+    30 => [ "Thirtieth", "30th", ],
+    31 => [ "Thirty-First", "31st", ],
+    32 => [ "Thirty-Second", "32nd", ],
+    33 => [ "Thirty-Third", " 33rd", ],
+    36 => [ "Thirty-Sixth", "34th", ],
+    40 => [ "Fortieth", "40th", ],
+    50 => [ "Fiftieth", "50th", ],
+    60 => [ "Sixtieth", "60th", ],
+    70 => [ "Seventieth", "70th", ],
+    80 => [ "Eightieth", "80th", ],
+    90 => [ "Ninetieth", "90th", ],
+    100 => [ "One Hundredth", "100th", ],
+    1000 => [ "One Thousandth", "1000th", ],
+    1000000 => [ "One Millionth", "1000000th" ],
+;
+
+our @Test-Ordinal is export =
+    [ 0,  'Zeroeth', ],
+    [ 1,  'First', ],
+    [ 9,  'Ninth', ],
+    [ 10, 'Tenth', ],
+    [ 11, 'Eleventh', ],
+    [ 12, 'Twelfth', ],
+    [ 13, 'Thirteenth', ],
+    [ 14, 'Fourteenth', ],
+    [ 15, 'Fifteenth', ],
+    [ 16, 'Sixteenth', ],
+    [ 17, 'Seventeenth', ],
+    [ 18, 'Eighteenth', ],
+    [ 19, 'Nineteenth', ],
+    [ 20,  'Twentieth', ],
+    [ 21,  'Twenty-First', ],
+    [ 32,  'Thirty-Second', ],
+    [ 43,  'Forty-Third', ],
+    [ 44,  'Forty-Fourth', ],
+    [ 97,  'Ninety-Seventh', ],
+    [ 98,  'Ninety-Eighth', ],
+    [ 99,  'Ninety-Ninth', ],
+    [ 100,  'One Hundredth', ],
+    [ 101,  'One Hundred First', ],
+    [ 113,  'One Hundred Thirteenth', ],
+    [ 999,  'Nine Hundred Ninety-Ninth', ],
+    [ 1000,  'One Thousandth', ],
+    [ 1001,  'One Thousand First', ],
+    [ 1999,  'One Thousand Nine Hundred Ninety-Ninth', ],
+    [ 9000,  'Nine Thousandth', ],
+    [ 9900, 'Nine Thousand Nine Hundredth', ],
+    [ 9901, 'Nine Thousand Nine Hundred First', ],
+    [ 9990,  'Nine Thousand Nine Hundred Ninetieth', ],
+    [ 99_000_900_000_000, 'Ninety-Nine Trillion Nine Hundred Millionth', ],
+;
diff --git a/challenge-179/0rir/raku/ch-1.raku b/challenge-179/0rir/raku/ch-1.raku
new file mode 100644
index 0000000000..769477aa8e
--- /dev/null
+++ b/challenge-179/0rir/raku/ch-1.raku
@@ -0,0 +1,103 @@
+#!/usr/bin/env raku
+# :vim ft=raku sw=4 expandtab  # ∅ ≡ ∩ ≢
+use v6.d;
+use lib $?FILE.IO.parent;
+use Test;
+use Test-Ord;
+
+=begin requirements
+Task 1: Ordinal Number Spelling  Submitted by: Mohammad S Anwar
+
+You are given a positive number, $n.
+Write a script to spell the ordinal number.
+
+=end requirements
+
+=begin comment
+I bave added Zeroeth because I often name one thing nothing.
+Lingua::Number is broken
+=end comment
+
+sub MAIN( @n = ( 99943201, )) {
+    for @n -> $n { say "$n -> ", ordinal( $n.Int); }
+}
+
+constant @cardinal = < Zero One Two Three Four Five Six
+    Seven Eight Nine Ten Eleven Twelve Thirteen Fourteen
+    Fifteen Sixteen Seventeen Eighteen Nineteen
+    Twenty Twenty-One Twenty-Two Twenty-Three Twenty-Four
+    Twenty-Five Twenty-Six Twenty-Seven Twenty-Eight Twenty-Nine
+    Thirty Thirty-One Thirty-Two Thirty-Three Thirty-Four
+    Thirty-Five Thirty-Six Thirty-Seven Thirty-Eight Thirty-Nine
+    Forty Forty-One Forty-Two Forty-Three Forty-Four
+    Forty-Five Forty-Six Forty-Seven Forty-Eight Forty-Nine
+    Fifty Fifty-One Fifty-Two Fifty-Three Fifty-Four Fifty-Five
+    Fifty-Six Fifty-Seven Fifty-Eight Fifty-Nine
+    Sixty Sixty-One Sixty-Two Sixty-Three Sixty-Four Sixty-Five
+    Sixty-Six Sixty-Seven Sixty-Eight Sixty-Nine
+    Seventy Seventy-One Seventy-Two Seventy-Three Seventy-Four Seventy-Five
+    Seventy-Six Seventy-Seven Seventy-Eight Seventy-Nine
+    Eighty Eighty-One Eighty-Two Eighty-Three Eighty-Four Eighty-Five
+    Eighty-Six Eighty-Seven Eighty-Eight Eighty-Nine
+    Ninety Ninety-One Ninety-Two Ninety-Three Ninety-Four Ninety-Five
+    Ninety-Six Ninety-Seven Ninety-Eight Ninety-Nine >;
+
+constant TEST=True;
+if TEST {
+    plan @Test-Cardinal.elems + @Test-Ordinal + %Test-Ordinal.keys;
+
+    for @Test-Cardinal -> @t { is cardinal( @t[0]), @t[1]; }
+    for @Test-Ordinal -> @t { is ordinal( @t[0]), @t[1]; }
+    for %Test-Ordinal.keys -> $k { is ordinal( $k), %Test-Ordinal{$k}[0]; }
+
+    done-testing;
+    exit;
+}
+
+# Create a cardinal phrase name for an pos. Int
+sub cardinal( Int $n is copy where * ≥ 0 --> Str) {
+    return 'Zero' if $n == 0;
+
+    my @triad = $n.Str.flip.comb( 3).reverse;
+    @triad.=map: *.flip;
+    my $period = @triad.end;
+    my $ret;
+
+    while @triad {
+        $ret ~= _generation( @triad.shift.Str, $period--);
+    }
+    return $ret.=trim-trailing;
+}
+
+# Create the ordinal phrase for 3 digits: hundreds, tens, ones, with suffix.
+sub _generation( Str $digits is copy, $period) {
+
+    constant @suffix =  ' ', ' Thousand ', ' Million ', ' Billion ',
+        ' Trillion ', ' Quadrillion ', ' Quintillion ', ' Sextillion ',
+        ' Septillion ', ' Octillion ';
+
+    $digits.=subst: / ^ 0 + / ;
+    return '' if $digits eq '';
+
+    return @cardinal[ $digits] ~ @suffix[$period] if $digits < 100;
+    my $h = @cardinal[ $digits.substr( 0, 1)] ~ ' Hundred';
+    return $h  ~ @suffix[$period] if '00' == $digits.substr( 1, 2);
+    return $h ~= " " ~ @cardinal[ $digits.substr( 1, 2)] ~ @suffix[$period];
+}
+
+# Convert a cardinal number's name-phrase to ordinal.
+sub ordinal( $n --> Str) {
+    my $ret = cardinal( $n.Int);
+
+    constant  %suffix = One => 'First', Two => 'Second', ree => 'ird',
+        ive => 'ifth',  ght => 'ghth', ine => 'inth',    lve => 'lfth',
+        ety => 'etieth', fty => 'ftieth', hty => 'htieth', nty => 'ntieth',
+        rty => 'rtieth', xty => 'xtieth',
+        red => 'redth',  and => 'andth', ion => 'ionth', ero => 'eroeth';
+
+    if %suffix{ $ret.substr($ret.chars -3)}:exists {
+        $ret.substr-rw($ret.chars -3) = %suffix{$ret.substr( $ret.chars -3 )};
+        return $ret;
+   } 
+   return $ret ~ 'th';
+}
diff --git a/challenge-179/0rir/raku/ch-2.raku b/challenge-179/0rir/raku/ch-2.raku
new file mode 100644
index 0000000000..5c81889b13
--- /dev/null
+++ b/challenge-179/0rir/raku/ch-2.raku
@@ -0,0 +1,97 @@
+#!/usr/bin/env raku
+# :vim ft=raku sw=4 expandtab  # ∅ ≡ ∩ ≢
+use v6.d;
+
+=begin requirement
+Task 2: Unicode Sparkline   Submitted by: Mohammad S Anwar
+You are given a list of positive numbers, @n.
+
+Write a script to print sparkline in Unicode for the given list of numbers.
+
+=end requirement
+
+=begin comment
+Sparkline will be 16 characters long max.
+=end comment
+
+my @graphic = '▁' … '█';
+constant SparkMaxLen = 16;
+constant SparkMinLen = 2;
+constant SparkSteps = 8;
+
+sub sparkline( @n is copy --> Str) {
+    die "Refusing to graph @n[]" if @n.elems < SparkMinLen;
+    my $bs = my $never-mind = ( 1 => 0);
+    my ($min, $max) = @n.min, @n.max;
+
+    my $return = sprintf "min:%5d  max:%5d  data-points: @n.elems() ",
+        $min, $max ;
+
+    if @n.elems > SparkMaxLen {    # chunk to length
+        $bs = ( @n.elems mod SparkMaxLen) + (@n.elems div SparkMaxLen)
+                =>  - (@n.elems mod SparkMaxLen) ;
+        @n.=rotor: $bs unless $bs ~~ $never-mind;
+        @n.=map: { [+] $_[0..*-1] };
+        ($min, $max) = @n.min, @n.max;
+    }
+
+    # scale to SparkSteps
+    @n.=map: ( (* - $min) ÷ ( ($max - $min) ÷ (SparkSteps -1 ))).Int;
+    $return ~=  @graphic[@n].join;
+}
+
+constant TEST=False;
+if TEST {
+    my @Test =
+        [ 0, 1, 2, 3, 4, 5, 6, 7, 7, 6, 5, 4, 3, 2, 1, 0 ],
+
+        [ 0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,7,7,6,6,5,5,4,4,3,3,2,2,1,1,0,0 ],
+        [ 47, 47, 67, 67, 87, 87, 107, 107, 127, 127, 147, 147, 167, 167,
+            187, 187, 187, 187,
+            167, 167, 147, 147, 127, 127, 107, 107, 87, 87, 67, 67, 47, 47],
+
+        [ 0,0,0,0,0, 1,1,1,1,1, 2,2,2,2,2, 3,3,3,3,3, 4,4,4,4,4, 5,5,5,5,5,
+            6,6,6,6,6, 7,7,7,7,7, 7,7,7,7,7, 6,6,6,6,6, 5,5,5,5,5, 4,4,4,4,4,
+            3,3,3,3,3, 2,2,2,2,2, 1,1,1,1,1, 0,0,0,0,0, ],
+        [ 0,0,0,0,0, 1,1,1,1,1, 2,2,2,2,2, 3,3,3,3,3, 4,4,4,4,4, 5,5,5,5,5,
+            6,6,6,6,6,          7,7,7,7,7,  6,6,6,6,6, 5,5,5,5,5, 4,4,4,4,4,
+            3,3,3,3,3, 2,2,2,2,2, 1,1,1,1,1, 0,0,0,0,0, ],
+
+        [ 446, 317,216, 250 ],
+        [ 446, 317,216, 250, 57 ],
+        [ 446, 446, 317, 317, 216, 216,  250, 250, 57, 57 ],
+        [ 785, 311, 925, 535, 726, 195, 76, 558,
+            188, 288, 308, 449, 712, 324, 891, 291,
+            739, 299, 956, 606, 797, 20, 285, 16,
+            194, 90, 690, 612, 97, 987, 922, 120 ],
+        [ 343, 491, 341, 863, 407, 482, 272, 905,
+            69, 870, 498 ],
+        [ 243, 714, 728, 970, 33, 437, 159, 827,
+            703, 453, 301, 491, 271, 15, 873, 634 ],
+        [ 243, 714, 728, 970, 33, 437, 159, 827,
+            703, 453, 301, 491, 271, 15, 873, 634, 625,  ],
+        [ 243, 714, 728, 970, 33, 437, 159, 827,
+            703, 453, 301, 491, 271, 15, 873, 634, 625, 641,  ],
+        [ 243, 714, 728, 970, 33, 437, 159, 827,
+            703, 453, 301, 491, 271, 15, 873, 634, 625, 641, 438, ],
+        [ 243, 714, 728, 970, 33, 437, 159, 827,
+            703, 453, 301, 491, 271, 15, 873, 634, 625, 641, 438, 28, ],
+        [ 243, 714, 728, 970, 33, 437, 159, 827,
+            703, 453, 301, 491, 271, 15, 873, 634, 625, 641, 438, 28, 371, ],
+        [ 243, 714, 728, 970, 33, 437, 159, 827,
+            703, 453, 301, 491, 271, 15, 873, 634, 625, 641, 438, 28, 371,
+            879, 334, 446,]
+    ;
+    for @Test -> @t {
+        say sparkline( @t ), "\n";
+    }
+    exit;
+}
+
+my @n = [ 243, 714, 728, 970,  33, 437, 159, 827, 703, 453, 301, 491,
+          271,  15, 873, 634, 625, 641, 438,  28, 371, 879, 334, 446,];
+
+sub MAIN( ) {
+   say sparkline @n;
+}
+