diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2022-08-22 11:38:51 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2022-08-22 11:40:42 +0200 |
| commit | 8071a002320792cda2be39bde5c8792934527032 (patch) | |
| tree | 9bb731e01a3a826ae68001e9d6d7df5e9dbd25e8 | |
| parent | 4dce5e63a15f7718baabc557d66c067bec6dcd36 (diff) | |
| download | perlweeklychallenge-club-8071a002320792cda2be39bde5c8792934527032.tar.gz perlweeklychallenge-club-8071a002320792cda2be39bde5c8792934527032.tar.bz2 perlweeklychallenge-club-8071a002320792cda2be39bde5c8792934527032.zip | |
Fix limit
| -rw-r--r-- | challenge-179/luca-ferrari/postgresql/ch-1.plperl | 3 | ||||
| -rwxr-xr-x | challenge-179/luca-ferrari/raku/ch-1.p6 | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/challenge-179/luca-ferrari/postgresql/ch-1.plperl b/challenge-179/luca-ferrari/postgresql/ch-1.plperl index f50a5b9828..f495dabed6 100644 --- a/challenge-179/luca-ferrari/postgresql/ch-1.plperl +++ b/challenge-179/luca-ferrari/postgresql/ch-1.plperl @@ -43,11 +43,12 @@ AS $CODE$ /; my ( $n ) = @_; - + return 'Cannot spell' if ( $n >= 100 ); return $units[ $n - 1 ] if ( $n <= 10 ); return $teens[ ( $n - 1 ) % 10 ] if ( $n > 10 && $n < 20 ); return $non_teens[ ( $n / 10 ) - 2 ] if ( $n >= 20 && $n % 10 == 0 ); return $non_teens[ ( $n / 10 ) - 2 ] . $units[ ( $n % 10 ) - 1 ] if ( $n > 20 ); + $CODE$ LANGUAGE plperl; diff --git a/challenge-179/luca-ferrari/raku/ch-1.p6 b/challenge-179/luca-ferrari/raku/ch-1.p6 index 9621aaac46..da58bbe2bb 100755 --- a/challenge-179/luca-ferrari/raku/ch-1.p6 +++ b/challenge-179/luca-ferrari/raku/ch-1.p6 @@ -2,7 +2,7 @@ # Perl Weekly Challenge 179 -sub MAIN( Int $n where { 0 < $n < 1000 } ) { +sub MAIN( Int $n where { 0 < $n < 100 } ) { my @units = 'first', 'second', @@ -26,7 +26,7 @@ sub MAIN( Int $n where { 0 < $n < 1000 } ) { say @non-teens[ ( $n / 10 ).Int - 2 ] ~ ( $n %% 10 ?? '' !! @units[ ( $n % 10 ) - 1 ] ); } - + default { "Cannot spell $n".say; } } } |