diff options
| author | Daniel Mita <mienaikage@gmail.com> | 2019-05-30 09:02:29 +0100 |
|---|---|---|
| committer | Daniel Mita <mienaikage@gmail.com> | 2019-05-30 09:02:29 +0100 |
| commit | d477193d025f9a0ec4df03c1d35e5a5f63e26cb7 (patch) | |
| tree | cf301b72586ce66a83254b648af9f284db71bc54 /challenge-010/daniel-mita | |
| parent | e4550b603e1bcfe010180e46645f2bda1d5cb797 (diff) | |
| download | perlweeklychallenge-club-d477193d025f9a0ec4df03c1d35e5a5f63e26cb7.tar.gz perlweeklychallenge-club-d477193d025f9a0ec4df03c1d35e5a5f63e26cb7.tar.bz2 perlweeklychallenge-club-d477193d025f9a0ec4df03c1d35e5a5f63e26cb7.zip | |
Add .uc method to roman-numerals string
Diffstat (limited to 'challenge-010/daniel-mita')
| -rw-r--r-- | challenge-010/daniel-mita/perl6/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-010/daniel-mita/perl6/ch-1.p6 b/challenge-010/daniel-mita/perl6/ch-1.p6 index 82b3fc3500..7a12b34226 100644 --- a/challenge-010/daniel-mita/perl6/ch-1.p6 +++ b/challenge-010/daniel-mita/perl6/ch-1.p6 @@ -32,7 +32,7 @@ multi MAIN ( --> Nil ) { given |( @overlines.map(@letters X~ *).reverse ), @letters -> @set { - $roman-numerals ~~ / ^ ( @(@set[0])+ )? ( @(@set[1])+ )? ( @(@set[2])+ )? $ /; + $roman-numerals.uc ~~ / ^ ( @(@set[0])+ )? ( @(@set[1])+ )? ( @(@set[2])+ )? $ /; } if $/ { |