From 232cb84b704d4cf898156d5da68c4ae3b45bccfe Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Wed, 20 Apr 2022 12:02:40 +0200
Subject: Task 2 done in PL/Perl

---
 challenge-161/luca-ferrari/postgresql/ch-2.plperl | 28 +++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 challenge-161/luca-ferrari/postgresql/ch-2.plperl

diff --git a/challenge-161/luca-ferrari/postgresql/ch-2.plperl b/challenge-161/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..edae5c307c
--- /dev/null
+++ b/challenge-161/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,28 @@
+-- Perl Weekly Challenge 161
+CREATE SCHEMA IF NOT EXISTS pwc161;
+
+
+CREATE OR REPLACE FUNCTION pwc161.pangrams()
+RETURNS SETOF text
+AS $CODE$
+ my @found;
+ 
+ for my $letter ( 'a' .. 'z' ){
+   my $query = spi_query( "SELECT word FROM pwc161.dictionary WHERE word like '%$letter%' order by random()" );   
+
+ while ( defined ( $row = spi_fetchrow( $query ) ) ) {
+  # first word ever
+  push @found, $row->{ word } and return_next( $row->{ word } ) if ! @found;
+
+  next if grep /$letter/, @found;
+
+  # add the word
+  push @found, $row->{ word };
+  return_next( $row->{ word } );
+
+  }
+}
+
+return undef;
+$CODE$
+LANGUAGE plperl;
-- 
cgit