From 8071a002320792cda2be39bde5c8792934527032 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 22 Aug 2022 11:38:51 +0200
Subject: Fix limit

---
 challenge-179/luca-ferrari/postgresql/ch-1.plperl | 3 ++-
 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; }
     }
 
 }
-- 
cgit