From bbcb37a4a35070e2adc1676833f7aee57fbab339 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Thu, 22 Apr 2021 08:41:51 +0200 Subject: Use multi main --- challenge-109/luca-ferrari/raku/ch-2.p6 | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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> ); +} -- cgit