diff options
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-1.raku | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-081/markus-holzer/raku/ch-1.raku b/challenge-081/markus-holzer/raku/ch-1.raku new file mode 100644 index 0000000000..091bf6bc03 --- /dev/null +++ b/challenge-081/markus-holzer/raku/ch-1.raku @@ -0,0 +1,7 @@ +unit sub MAIN(Str $A, $B); + +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 |