From ad488d50e99fd7515521e0902671b2c24d032ad3 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 16 Jan 2023 11:42:48 +0100 Subject: Task 2 plperl done --- challenge-200/luca-ferrari/postgresql/ch-2.plperl | 122 ++++++++++++++++++++++ 1 file changed, 122 insertions(+) create mode 100644 challenge-200/luca-ferrari/postgresql/ch-2.plperl diff --git a/challenge-200/luca-ferrari/postgresql/ch-2.plperl b/challenge-200/luca-ferrari/postgresql/ch-2.plperl new file mode 100644 index 0000000000..d436feaeee --- /dev/null +++ b/challenge-200/luca-ferrari/postgresql/ch-2.plperl @@ -0,0 +1,122 @@ +-- +-- Perl Weekly Challenge 200 +-- Task 2 +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc200; + +CREATE OR REPLACE FUNCTION +pwc200.task2_plperl( int ) +RETURNS text +AS $CODE$ + + use List::MoreUtils qw/zip/; + my ( $value ) = @_; + + my $lcd = [ + [ ' -------- ', + '| |', + '| |', + '| |', + '| |', + '| |', + ' -------- ', + ], + [ ' ', + ' |', + ' |', + ' |', + ' |', + ' |', + ' ', + ], + [ ' ------ ', + ' |', + ' |', + ' ------ ', + '| ', + '| ', + ' ------ ', + ], + + [ ' ------ ', + ' |', + ' |', + ' ------ ', + ' |', + ' |', + ' ------ ', + ], + + [ '| |', + '| |', + '| |', + ' ------ ', + ' |', + ' |', + ' ', + ], + [ ' ------ ', + '| ', + '| ', + ' ------ ', + ' |', + ' |', + ' ', + ], + [ ' ------ ', + '| ', + '| ', + ' ------ ', + '| |', + '| |', + ' ------ ', + ], + + [ ' -------', + ' |', + ' |', + ' | ', + ' |', + ' |', + ' ', + ], + + [ ' -------- ', + '| |', + '| |', + ' ------- ', + '| |', + '| |', + ' -------- ', + ], + + [ ' -------- ', + '| |', + '| |', + ' ------- ', + ' |', + ' |', + ' -------- ', + ], + + + ]; + + + my $display; + + for my $row ( 0 .. 6 ) { + for ( split '', $value ) { + $display .= ' ' . $lcd->[ $_ ]->[ $row ]; + } + + $display .= "\n"; + } + + $display .= "\n"; + + return $display; +$CODE$ +LANGUAGE plperlu; -- cgit