diff options
| -rw-r--r-- | challenge-194/luca-ferrari/raku/ch-1.p6 | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/challenge-194/luca-ferrari/raku/ch-1.p6 b/challenge-194/luca-ferrari/raku/ch-1.p6 index c279fa8df1..ef5abaf253 100644 --- a/challenge-194/luca-ferrari/raku/ch-1.p6 +++ b/challenge-194/luca-ferrari/raku/ch-1.p6 @@ -5,13 +5,10 @@ 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 } + when ( / ^ \? \d ':' \d ** 2 $ / ) { 2.say and exit } + when ( / ^ <[01]> \? ':' \d ** 2 $ / ) { 9.say and exit } + when ( / ^ 2 \? ':' \d ** 2 $ / ) { 3.say and exit } + when ( / ^ \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 \? $ /; } |