diff options
| -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; |