diff options
| -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; } } } |