diff options
| -rw-r--r-- | challenge-267/0rir/ch-1.raku | 71 | ||||
| -rw-r--r-- | challenge-267/0rir/ch-2.raku | 154 |
2 files changed, 0 insertions, 225 deletions
diff --git a/challenge-267/0rir/ch-1.raku b/challenge-267/0rir/ch-1.raku deleted file mode 100644 index a8e9e54591..0000000000 --- a/challenge-267/0rir/ch-1.raku +++ /dev/null @@ -1,71 +0,0 @@ -#!/usr/bin/env raku -# :vim ft=raku sw=4 expandtab # 🦋 ∅∪∩∋∈∉⊆ ≡ ≢ « » ∴ -use v6.d; -use Test; - -=begin comment -267-1: Product Sign Submitted by: Mohammad Sajid Anwar -You are given an array of @ints. - -Write a script to find the sign of product of all integers in the given -array. The sign is 1 if the product is positive, -1 if the product is -negative and 0 if product is zero. - -Example 1 -Input: @ints = (-1, -2, -3, -4, 3, 2, 1) -Output: 1 - -The product -1 x -2 x -3 x -4 x 3 x 2 x 1 => 144 > 0 -Example 2 -Input: @ints = (1, 2, 0, -2, -1) -Output: 0 - -The product 1 x 2 x 0 x -2 x -1 => 0 -Example 3 -Input: @ints = (-1, -1, 1, -1, 2) -Output: -1 - -The product -1 x -1 x 1 x -1 x 2 => -2 < 0 - -=end comment - -my @Test = - Int, (), - Int, ( 0,), - Int, (-1,), - Int, ( 1,), - -1, ( 1, -1), - 1, ( 1, 1), - 0, ( 0, 0), - 0, ( 1, 0), - 0, (-1, 0), - 1, (-1, -2, -3, -4, 3, 2, 1), - 0, ( 1, 2, 0, -2, -1), - -1, (-1, -1, 1, -1, 2), - 1, ( flat -1 xx 10_000, 1 xx 9_999 ).List, - -1, ( flat -1 xx 9_999, 1 xx 9_999 ).List, - 0, ( flat 0, -1 xx 100_000, 1 xx 99_999 ).List, - 0, ( flat -1 xx 100_000, 1 xx 99_999, 0 ).List, -; - -plan @Test ÷ 2; - -sub mult-sign( List $a) { - return Int if $a ~~ Empty or +@$a == 1; - my ( $n, $z, $p) = hyper $a».sign.Bag{-1, 0, 1}; # Thanks Util - return 0 if $z; - return -1 unless $n %% 2; - return 1; -} - -for @Test -> $exp, $in { - is mult-sign($in), $exp, "$exp.raku() <- $in.gist()"; -} - -done-testing; -my @int = (-1,-1,-1,1,1,1,1,1,1,1,1,1,1,1,-1,-1,-1,-1,-1,-1); - -say "\nInput: @int = @int[]\nOutput: &mult-sign(@int)"; - -exit; - diff --git a/challenge-267/0rir/ch-2.raku b/challenge-267/0rir/ch-2.raku deleted file mode 100644 index 7f0b12e402..0000000000 --- a/challenge-267/0rir/ch-2.raku +++ /dev/null @@ -1,154 +0,0 @@ -#!/usr/bin/env raku -# :vim ft=raku sw=4 expandtab # 🦋 ∅∪∩∋∈∉⊆ ≡ ≢ « » ∴ -use v6.d; -use Test; - -=begin comment -267-2: Line Counts Submitted by: Mohammad Sajid Anwar -You are given a string, $str, and a 26-items array @widths containing -the width of each character from a to z. - - -Write a script to find out the number of lines and the width of the -last line needed to display the given string, assuming you can only fit -100 width units on a line. - -Example 1 -Input: $str = "abcdefghijklmnopqrstuvwxyz" - @widths = (10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10) -Output: (3, 60) - -Line 1: abcdefghij (100 pixels) -Line 2: klmnopqrst (100 pixels) -Line 3: uvwxyz (60 pixels) -Example 2 -Input: $str = "bbbcccdddaaa" - @widths = (4,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10) -Output: (2, 4) - -Line 1: bbbcccdddaa (98 pixels) -Line 2: a (4 pixels) - -=end comment - - -my @Test = - #text char-width expect max-pixels-per-line - "", ( 10 x 25, 1), ('',0), 100, - - "abcdefghij", ( 10 xx 26), (1, 100), 100, - - "abcde", ( 10 xx 26), (1, 50), 100, - - "abcdefghijklmnopqrstuvwxyz", - (10,10,10,10,10,10,10,10,10,10,10,10,10, - 10,10,10,10,10,10,10,10,10,10,10,10,10), - (3, 60), - 100, - - "bbbcccdddaaa", - ( 4,10,10,10,10,10,10,10,10,10,10,10,10, - 10,10,10,10,10,10,10,10,10,10,10,10,10), - (2, 4), - 100, - - "abcdefghijklmnopqrstuvwxyz", - ( 4,100,10,10,10,10,10,10,10,10,10,10,10, - 10,10,10,10,10,10,10,10,10,10,10,10,10), - (5, 40), - 100, - - "abcdefghijklmnopqrstuvwxyz", - (flat 5 xx 11, 3, 7, 5 xx 9, 7,5,5,5 ), - (2, 32), - 100, - - "abcdefghijklmnopqrstuvwxyz", - (flat 5 xx 11, 3, 7, 5 xx 9, 7,5,5,5 ), - (3, 32), - 50, - - "abcdefghijklmnopqrstuvwxyz", - (flat 5 xx 11, 3, 9, 5 xx 9, 9,5,5,5 ), - (3, 39), - 50, -; - -my @Die = - "abcdefghijklmnopqrstuvwxyz", - (flat 101, 5 xx 25), - (3, 60), - 100, - - "abcdefghijklmnopqrstuvwxyz", - (flat 5 xx 11, 3, 7, 5 xx 9, 7,5,5,101 ), - (3, 60), - 100, -; - -plan @Test ÷ 4 + @Die ÷ 4; - -constant @abc = 'a'..'z'; -my $line-size = 100; - -multi pixel-lines-w-tail-size( '', @char-width ) { ('', 0) } -multi pixel-lines-w-tail-size( Str:D $s, @char-width -->List) { - - # create array of widths for chars - # my @width = do { $s.comb.List.map: { %(@abc Z=> @char-width){ $_}}}; - - # create array of IntStr( width, pixels) just for error message - my %intstr = %( @abc Z=> @char-width.map( {IntStr.new( $_, "$_")})); - my @width = $s.comb.List.map( { %intstr{$_} }); - - my $lino = 1; # line number accumulator - my $cur = 0; # current index into @width - my $pixels = 0; # pixel accumulater found in a line - - while $cur < @width { - - die "char '@width[$cur]' exceeds line width: loop $cur" - if @width[$cur] > $line-size; - - $pixels += @width[$cur]; - - given $pixels <=> $line-size { - when Less { ++$cur; } - when More { - if @width[$cur] == $line-size { - $pixels = 0; - } else { - $pixels = @width[$cur]; - ++$cur; - } - ++$lino; - } - when Same { - last if $cur == @width.end; - ++$lino; - $pixels = 0; - ++$cur; - } - } - } - return ( $lino, $pixels); -} - -for @Test -> $in, @width, @exp, $ls { - $line-size = $ls; - is pixel-lines-w-tail-size($in, @width), @exp, "@exp.raku() <- $in"; - } -for @Die -> $in, @width, @exp, $ls { - $line-size = $ls; - dies-ok { pixel-lines-w-tail-size($in, @width)}, - "DIES: a char wider than line"; -} - -done-testing; - -$line-size = 100; -my $str = "abcdefghijklmnopqrstuvwxyz"; -my @width = (flat 5 xx 11, 3, 7, 5 xx 9, 7,5,5,5 ); - -say qq{\nInput: \$str = "$str"\n @width = @width.raku()\nOutput: }, - pixel-lines-w-tail-size($str, @width); |