diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-08 15:40:30 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-08 15:40:30 +0200 |
| commit | 94fb7bfc97525637029b22a4727db362edde6374 (patch) | |
| tree | ffbf4e596bb5a54adc1e25e76918685dd4aee9b6 | |
| parent | 9817474c0b7f76d936b16a38a836c13bf6d69ab3 (diff) | |
| download | perlweeklychallenge-club-94fb7bfc97525637029b22a4727db362edde6374.tar.gz perlweeklychallenge-club-94fb7bfc97525637029b22a4727db362edde6374.tar.bz2 perlweeklychallenge-club-94fb7bfc97525637029b22a4727db362edde6374.zip | |
avoid $_
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-081/markus-holzer/raku/ch-1.raku b/challenge-081/markus-holzer/raku/ch-1.raku index d29156c0bb..e9a18dd53e 100644 --- a/challenge-081/markus-holzer/raku/ch-1.raku +++ b/challenge-081/markus-holzer/raku/ch-1.raku @@ -6,6 +6,6 @@ my Str $B = @*ARGS.max(*.chars); # Custom operator, just for fun multi sub infix:<%%>( Str $n, Str $d ) returns Bool { given $n.chars / $d.chars { - .denominator == 1 && $n eq $d x $_ }} + .denominator == 1 && $n eq $d x .numerator }} .say for grep all($A, $B) %% *, [\~] $A.comb; |