diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-06 02:00:50 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-06 02:00:50 +0200 |
| commit | 442b860e270048cd15837325de48270180a9323b (patch) | |
| tree | f8d67c5715dfb390e5857aaff3ebbdbad6d8cfa5 | |
| parent | 861915d4c25b5b18ef5ee28ac129e1ee92339c4d (diff) | |
| download | perlweeklychallenge-club-442b860e270048cd15837325de48270180a9323b.tar.gz perlweeklychallenge-club-442b860e270048cd15837325de48270180a9323b.tar.bz2 perlweeklychallenge-club-442b860e270048cd15837325de48270180a9323b.zip | |
dont need the junction
| -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 091bf6bc03..8d61f71011 100644 --- a/challenge-081/markus-holzer/raku/ch-1.raku +++ b/challenge-081/markus-holzer/raku/ch-1.raku @@ -4,4 +4,4 @@ my $chars = ( $A, $B ).max.chars; my @chars = ( $A, $B ).min.comb; .say for ( [\~] @chars ).grep( -> $part { - $part x $chars div $part.chars eq $A|$B });
\ No newline at end of file + $part x $chars div $part.chars eq $B })
\ No newline at end of file |