diff options
| -rw-r--r-- | challenge-194/luca-ferrari/raku/ch-1.p6 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-194/luca-ferrari/raku/ch-1.p6 b/challenge-194/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..c279fa8df1 --- /dev/null +++ b/challenge-194/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,17 @@ +#!raku + +# Perl Weekly Challenge 194 + +sub MAIN( Str $what ) { + + given ( $what ) { + when ( / ^ \? \d ':' \d ** 2 $ / ) { 2.say and exit } + when ( / ^ \d \? ':' \d ** 2 $ / + || / ^ \d ** 2 ':' \? \d $ / ) { 5.say and exit } + when ( / ^\d ** 2 ':' \d \? $ / ) { 9.say and exit } + } + # exit if $what !~~ / \? /; + # 2.say if $what ~~ / ^ \? \d ':' \d ** 2 $ /; + # 5.say if $what ~~ / ^ \d \? ':' \d ** 2 $ / || $what ~~ / ^ \d ** 2 ':' \? \d $ / ; + # 9.say if $what ~~ / ^\d ** 2 ':' \d \? $ /; +} |