diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-04-22 08:41:51 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-04-22 08:41:51 +0200 |
| commit | bbcb37a4a35070e2adc1676833f7aee57fbab339 (patch) | |
| tree | a04ae9c9c80e88116a40d2d3e63ce25e73570eec | |
| parent | 66c7224b6dc440254b7943e0dd2071859b9ad2ba (diff) | |
| download | perlweeklychallenge-club-bbcb37a4a35070e2adc1676833f7aee57fbab339.tar.gz perlweeklychallenge-club-bbcb37a4a35070e2adc1676833f7aee57fbab339.tar.bz2 perlweeklychallenge-club-bbcb37a4a35070e2adc1676833f7aee57fbab339.zip | |
Use multi main
| -rw-r--r-- | challenge-109/luca-ferrari/raku/ch-2.p6 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/challenge-109/luca-ferrari/raku/ch-2.p6 b/challenge-109/luca-ferrari/raku/ch-2.p6 index d25c5c1333..4a9117f636 100644 --- a/challenge-109/luca-ferrari/raku/ch-2.p6 +++ b/challenge-109/luca-ferrari/raku/ch-2.p6 @@ -1,7 +1,7 @@ #!raku -sub MAIN( *@nums where { @nums.grep( * ~~ Int ).elems == @nums.elems && @nums.elems == 7 } ) { +multi sub MAIN( *@nums where { @nums.grep( * ~~ Int ).elems == @nums.elems && @nums.elems == 7 } ) { my @letters = 'a' .. 'g'; my @solutions; @@ -28,3 +28,8 @@ sub MAIN( *@nums where { @nums.grep( * ~~ Int ).elems == @nums.elems && @nums.e say $_ for @solutions; } + + +multi sub MAIN() { + MAIN( <1 2 3 4 5 6 7> ); +} |