diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-10-08 14:54:13 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-10-08 14:54:13 +0100 |
| commit | 68d66b4b6065b686ec7c91ca8c1a72d843a268bc (patch) | |
| tree | f92476d5d887e473e056cf9482bef805cdab1073 | |
| parent | 47b10caca9fc548a7b73861d80d532eb8c48d1ed (diff) | |
| parent | 94fb7bfc97525637029b22a4727db362edde6374 (diff) | |
| download | perlweeklychallenge-club-68d66b4b6065b686ec7c91ca8c1a72d843a268bc.tar.gz perlweeklychallenge-club-68d66b4b6065b686ec7c91ca8c1a72d843a268bc.tar.bz2 perlweeklychallenge-club-68d66b4b6065b686ec7c91ca8c1a72d843a268bc.zip | |
Merge pull request #2478 from holli-holzer/master
bugfix and optimization
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-1.raku | 11 | ||||
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-2.raku | 2 |
2 files changed, 7 insertions, 6 deletions
diff --git a/challenge-081/markus-holzer/raku/ch-1.raku b/challenge-081/markus-holzer/raku/ch-1.raku index ee685600da..e9a18dd53e 100644 --- a/challenge-081/markus-holzer/raku/ch-1.raku +++ b/challenge-081/markus-holzer/raku/ch-1.raku @@ -1,10 +1,11 @@ unit sub MAIN( Str, Str ); -my Str $A = @*ARGS.min; -my Str $B = @*ARGS.max; +my Str $A = @*ARGS.min(*.chars); +my Str $B = @*ARGS.max(*.chars); # Custom operator, just for fun -multi sub infix:<%%>( Str $n, Str $d ) { - $n eq $d x $n.chars div $d.chars } +multi sub infix:<%%>( Str $n, Str $d ) returns Bool { + given $n.chars / $d.chars { + .denominator == 1 && $n eq $d x .numerator }} -.say for grep $B %% *, [\~] $A.comb
\ No newline at end of file +.say for grep all($A, $B) %% *, [\~] $A.comb; diff --git a/challenge-081/markus-holzer/raku/ch-2.raku b/challenge-081/markus-holzer/raku/ch-2.raku index 7f6ab7aadc..c9d0bad20c 100644 --- a/challenge-081/markus-holzer/raku/ch-2.raku +++ b/challenge-081/markus-holzer/raku/ch-2.raku @@ -11,4 +11,4 @@ my $words = $file .classify( *.value ); say "{$_} : {sort $words{$_}>>.key}" - for sort $words.keys;
\ No newline at end of file + for sort keys $words;
\ No newline at end of file |