Task 1 plperl done

1 files changed, 53 insertions, 0 deletions

diff --git a/challenge-179/luca-ferrari/postgresql/ch-1.plperl b/challenge-179/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..f50a5b9828
--- /dev/null
+++ b/challenge-179/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,53 @@
+-- Perl Weekly Challenge 179
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc179;
+
+CREATE OR REPLACE FUNCTION
+pwc179.task1_plperl( int )
+RETURNS text
+AS $CODE$
+    my @units = qw/
+                first
+                second
+                third
+                foruth
+                fifth
+                sixth
+                seventh
+                eigth
+                nineth
+                tenth
+                /;
+
+    my @teens = qw /
+              eleven
+              twelve
+              thriteen
+              fourteen
+              fifteen
+              sixteen
+              seventeen
+              eigtheen
+              nineteen
+              /;
+    my @non_teens = qw/
+                    twenty
+                    thirty
+                    fourty
+                    fifty
+                    sixty
+                    seventy
+                    eighty
+                    ninety
+                    /;
+
+     my ( $n ) = @_;
+     
+     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;