diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-08 15:11:46 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-08 15:11:46 +0200 |
| commit | a3d7d532eab68e3edde77df48b701485ef6f38ad (patch) | |
| tree | df2b19706417550d41b10c5831f99d899aba5c93 /challenge-081/markus-holzer | |
| parent | f35727bec948a408ef2d1daa273ed7e769e8b125 (diff) | |
| download | perlweeklychallenge-club-a3d7d532eab68e3edde77df48b701485ef6f38ad.tar.gz perlweeklychallenge-club-a3d7d532eab68e3edde77df48b701485ef6f38ad.tar.bz2 perlweeklychallenge-club-a3d7d532eab68e3edde77df48b701485ef6f38ad.zip | |
bugfix and optimization
Diffstat (limited to 'challenge-081/markus-holzer')
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-1.raku | 14 | ||||
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-2.raku | 2 |
2 files changed, 10 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..f3b9e8c8e6 100644 --- a/challenge-081/markus-holzer/raku/ch-1.raku +++ b/challenge-081/markus-holzer/raku/ch-1.raku @@ -1,10 +1,14 @@ 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 { + #will always be a Rat + given $n.chars / $d.chars { + .denominator == 1 + ?? $n eq $d x $_ + !! False }} -.say for grep $B %% *, [\~] $A.comb
\ No newline at end of file +.say for grep all($A, $B) %% *, [\~] $A.comb
\ No newline at end of file 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 |