diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-06 02:56:50 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-06 02:56:50 +0200 |
| commit | f35727bec948a408ef2d1daa273ed7e769e8b125 (patch) | |
| tree | 25de28f7f353a4ab5f5d08b54cac051c49f77d2e | |
| parent | daab3535d86432ed54c56abc3865c26fe07d7aed (diff) | |
| download | perlweeklychallenge-club-f35727bec948a408ef2d1daa273ed7e769e8b125.tar.gz perlweeklychallenge-club-f35727bec948a408ef2d1daa273ed7e769e8b125.tar.bz2 perlweeklychallenge-club-f35727bec948a408ef2d1daa273ed7e769e8b125.zip | |
think i like this better
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-1.raku | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/challenge-081/markus-holzer/raku/ch-1.raku b/challenge-081/markus-holzer/raku/ch-1.raku index 5f67b1f491..ee685600da 100644 --- a/challenge-081/markus-holzer/raku/ch-1.raku +++ b/challenge-081/markus-holzer/raku/ch-1.raku @@ -1,4 +1,7 @@ -unit sub MAIN( Str $A, $B where $B.chars > $A.chars ); +unit sub MAIN( Str, Str ); + +my Str $A = @*ARGS.min; +my Str $B = @*ARGS.max; # Custom operator, just for fun multi sub infix:<%%>( Str $n, Str $d ) { |