diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2022-12-06 07:50:28 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2022-12-06 07:53:47 +0100 |
| commit | 8e8f3299d4447ec1f8cc0e52522ae2543535439c (patch) | |
| tree | 1b1f04cf4fe3b635cdb0a17eedf08ce305da8dde | |
| parent | 246d43250884545dc6af047f756d3044cbff2253 (diff) | |
| download | perlweeklychallenge-club-8e8f3299d4447ec1f8cc0e52522ae2543535439c.tar.gz perlweeklychallenge-club-8e8f3299d4447ec1f8cc0e52522ae2543535439c.tar.bz2 perlweeklychallenge-club-8e8f3299d4447ec1f8cc0e52522ae2543535439c.zip | |
Fix task 1
| -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 \? $ /; } |