Merge pull request #12201 from fluca1978/PWC326

PWC 326

21 files changed, 342 insertions, 3 deletions

diff --git a/challenge-326/luca-ferrari/blog-1.txt b/challenge-326/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..5f822e0ddc
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task1
diff --git a/challenge-326/luca-ferrari/blog-10.txt b/challenge-326/luca-ferrari/blog-10.txt
new file mode 100644
index 0000000000..035f554f5a
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-10.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task2pljava
diff --git a/challenge-326/luca-ferrari/blog-2.txt b/challenge-326/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..be6f36d582
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task2
diff --git a/challenge-326/luca-ferrari/blog-3.txt b/challenge-326/luca-ferrari/blog-3.txt
new file mode 100644
index 0000000000..f8313f78d0
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-3.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task1plperl
diff --git a/challenge-326/luca-ferrari/blog-4.txt b/challenge-326/luca-ferrari/blog-4.txt
new file mode 100644
index 0000000000..0091b1bb6a
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-4.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task2plperl
diff --git a/challenge-326/luca-ferrari/blog-5.txt b/challenge-326/luca-ferrari/blog-5.txt
new file mode 100644
index 0000000000..6e168c1286
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-5.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task1plpgsql
diff --git a/challenge-326/luca-ferrari/blog-6.txt b/challenge-326/luca-ferrari/blog-6.txt
new file mode 100644
index 0000000000..156e906468
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-6.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task2plpgsql
diff --git a/challenge-326/luca-ferrari/blog-7.txt b/challenge-326/luca-ferrari/blog-7.txt
new file mode 100644
index 0000000000..d8db137694
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-7.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task1python
diff --git a/challenge-326/luca-ferrari/blog-8.txt b/challenge-326/luca-ferrari/blog-8.txt
new file mode 100644
index 0000000000..421ca209f5
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-8.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task2python
diff --git a/challenge-326/luca-ferrari/blog-9.txt b/challenge-326/luca-ferrari/blog-9.txt
new file mode 100644
index 0000000000..b55b74a91a
--- /dev/null
+++ b/challenge-326/luca-ferrari/blog-9.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/06/16/PerlWeeklyChallenge326.html#task1pljava
diff --git a/challenge-326/luca-ferrari/pljava/pom.xml b/challenge-326/luca-ferrari/pljava/pom.xml
index 25362680ec..7b9dc8a6c5 100644
--- a/challenge-326/luca-ferrari/pljava/pom.xml
+++ b/challenge-326/luca-ferrari/pljava/pom.xml
@@ -7,14 +7,14 @@
 
   <groupId>PWC</groupId>
   <artifactId>
-    PWC325
+    PWC326
   </artifactId>
   <version>
     1
   </version>
 
-  <name>Perl Weekly Challenge 325 with package PWC325</name>
-  <description>Implementation of the tasks in PL/Java for PWC 325</description>
+  <name>Perl Weekly Challenge 326 with package PWC326</name>
+  <description>Implementation of the tasks in PL/Java for PWC 326</description>
 
   <properties>
     <project.build.sourceEncoding>US-ASCII</project.build.sourceEncoding>
diff --git a/challenge-326/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-326/luca-ferrari/pljava/src/main/java/Task1.java
new file mode 100644
index 0000000000..c24f26ad2d
--- /dev/null
+++ b/challenge-326/luca-ferrari/pljava/src/main/java/Task1.java
@@ -0,0 +1,62 @@
+
+
+
+package PWC326;
+
+/**
+ * PL/Java implementation for PWC 326
+ * Task 1
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+ *
+ *
+ * To compile on the local machine:
+
+ $ export JAVA_HOME=/usr/lib/jvm/java-17-openjdk-amd64/  # if not already set
+ $ mvn clean build
+ $ scp target/PWC326-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC326-1.jar', 'PWC326', true );
+ select sqlj.set_classpath( 'public', 'PWC326' );
+
+ select pwc326.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC326-1.jar', 'PWC326', true );
+
+*/
+
+import org.postgresql.pljava.*;
+import org.postgresql.pljava.annotation.Function;
+import static org.postgresql.pljava.annotation.Function.Effects.IMMUTABLE;
+import static org.postgresql.pljava.annotation.Function.OnNullInput.RETURNS_NULL;
+
+import java.util.*;
+import java.util.stream.*;
+import java.sql.SQLException;
+import java.util.logging.*;
+import java.sql.ResultSet;
+import java.sql.Date;
+import java.time.*;
+import java.time.temporal.*;
+
+public class Task1 {
+
+    private final static Logger logger = Logger.getAnonymousLogger();
+
+    @Function( schema = "pwc326",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final int task1_pljava( Date day ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc326.task1_pljava" );
+
+	Calendar end   = Calendar.getInstance();
+	end.setTime( day );
+	Calendar begin = (Calendar) end.clone();
+	begin.set( Calendar.DAY_OF_YEAR, 1 );
+	return (int) ( ( end.getTimeInMillis() - begin.getTimeInMillis() ) / ( 1000 * 60 * 60 * 24 ) );
+    }
+}
diff --git a/challenge-326/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-326/luca-ferrari/pljava/src/main/java/Task2.java
new file mode 100644
index 0000000000..820bff4301
--- /dev/null
+++ b/challenge-326/luca-ferrari/pljava/src/main/java/Task2.java
@@ -0,0 +1,72 @@
+
+
+
+package PWC326;
+
+/**
+ * PL/Java implementation for PWC 326
+ * Task 2
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+ *
+ *
+ * To compile on the local machine:
+
+ $ export JAVA_HOME=/usr/lib/jvm/java-17-openjdk-amd64/  # if not already set
+ $ mvn clean build
+ $ scp target/PWC326-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC326-1.jar', 'PWC326', true );
+ select sqlj.set_classpath( 'public', 'PWC326' );
+
+ select pwc326.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC326-1.jar', 'PWC326', true );
+
+*/
+
+import org.postgresql.pljava.*;
+import org.postgresql.pljava.annotation.Function;
+import static org.postgresql.pljava.annotation.Function.Effects.IMMUTABLE;
+import static org.postgresql.pljava.annotation.Function.OnNullInput.RETURNS_NULL;
+
+import java.util.*;
+import java.util.stream.*;
+import java.sql.SQLException;
+import java.util.logging.*;
+import java.sql.ResultSet;
+import java.sql.Date;
+
+public class Task2 {
+
+    private final static Logger logger = Logger.getAnonymousLogger();
+
+    @Function( schema = "pwc326",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final int[] task2_pljava( int[] nums ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc326.task2_pljava" );
+
+	List<Integer> result = new LinkedList<Integer>();
+	for( int i = 0; i < nums.length - 1; i++ ) {
+	    if( i % 2 != 0 )
+		continue;
+
+	    int base  = nums[ i ];
+	    int times = nums[ i + 1 ];
+
+	    for ( int j = 0; j < times; j++ )
+		result.add( base );
+	}
+
+	int r[] = new int[ result.size() ];
+	for ( int i = 0; i < result.size(); i++ )
+	    r[ i ] = result.get( i );
+
+	return r;
+    }
+}
diff --git a/challenge-326/luca-ferrari/plperl/ch-1.plperl b/challenge-326/luca-ferrari/plperl/ch-1.plperl
new file mode 100644
index 0000000000..ce3c525008
--- /dev/null
+++ b/challenge-326/luca-ferrari/plperl/ch-1.plperl
@@ -0,0 +1,28 @@
+--
+-- Perl Weekly Challenge 326
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc326;
+
+CREATE OR REPLACE FUNCTION
+pwc326.task1_plperl( text )
+RETURNS int
+AS $CODE$
+
+   use DateTime;
+   my ( $date ) = @_;
+
+   if ( $date =~ / ^ (\d{4}) - (\d{2}) - (\d{2}) $ /x ) {
+
+      my $day = DateTime->new( year  => $1,
+                               month => $2,
+   			    day   => $3 );
+
+      return $day->day_of_year;
+   }
+
+   return 0;
+$CODE$
+LANGUAGE plperlu;
diff --git a/challenge-326/luca-ferrari/plperl/ch-2.plperl b/challenge-326/luca-ferrari/plperl/ch-2.plperl
new file mode 100644
index 0000000000..8cf8894b7c
--- /dev/null
+++ b/challenge-326/luca-ferrari/plperl/ch-2.plperl
@@ -0,0 +1,27 @@
+--
+-- Perl Weekly Challenge 326
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc326;
+
+CREATE OR REPLACE FUNCTION
+pwc326.task2_plperl( int[] )
+RETURNS SETOF int
+AS $CODE$
+
+   my ( $nums ) = @_;
+   my @result;
+
+   for my $index ( 0 .. $nums->@* - 2 ) {
+       next unless ( $index % 2 == 0 );
+      my ( $base, $times ) = $nums->@[ $index .. $index + 1 ];
+      push @result, $base for ( 0 .. $times );
+
+   }
+
+   return [ @result ];
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-326/luca-ferrari/plpgsql/ch-1.sql b/challenge-326/luca-ferrari/plpgsql/ch-1.sql
new file mode 100644
index 0000000000..01f1be9b5f
--- /dev/null
+++ b/challenge-326/luca-ferrari/plpgsql/ch-1.sql
@@ -0,0 +1,17 @@
+--
+-- Perl Weekly Challenge 326
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc326;
+
+CREATE OR REPLACE FUNCTION
+pwc326.task1_plpgsql( d date )
+RETURNS int
+AS $CODE$
+   SELECT 1 +
+          d -
+	  ( extract( year from d ) || '-01-01' )::date;
+$CODE$
+LANGUAGE sql;
diff --git a/challenge-326/luca-ferrari/plpgsql/ch-2.sql b/challenge-326/luca-ferrari/plpgsql/ch-2.sql
new file mode 100644
index 0000000000..030b495017
--- /dev/null
+++ b/challenge-326/luca-ferrari/plpgsql/ch-2.sql
@@ -0,0 +1,36 @@
+--
+-- Perl Weekly Challenge 326
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc326;
+
+CREATE OR REPLACE FUNCTION
+pwc326.task2_plpgsql( nums int[] )
+RETURNS SETOF int
+AS $CODE$
+DECLARE
+	i int;
+	base int;
+	times int;
+BEGIN
+
+	FOR i IN 1 .. array_length( nums, 1 ) - 1 LOOP
+	    IF mod( i, 2 ) = 0 THEN
+	       CONTINUE;
+	    END IF;
+
+	    base  := nums[ i ];
+	    times := nums[ i + 1 ];
+
+
+	    FOR j in 1 .. times LOOP
+	    	RETURN NEXT base;
+            END LOOP;
+	END LOOP;
+
+RETURN;
+END
+$CODE$
+LANGUAGE plpgsql;
diff --git a/challenge-326/luca-ferrari/python/ch-1.py b/challenge-326/luca-ferrari/python/ch-1.py
new file mode 100644
index 0000000000..5e97d3206d
--- /dev/null
+++ b/challenge-326/luca-ferrari/python/ch-1.py
@@ -0,0 +1,23 @@
+#!python
+
+#
+# Perl Weekly Challenge 326
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+#
+
+import sys
+from datetime import datetime, date
+
+# task implementation
+# the return value will be printed
+def task_1( args ):
+    begin = datetime.strptime( args[ 0 ], "%Y-%m-%d").date()
+    end   = date( begin.year, 1, 1 )
+    return abs( ( end - begin ).days )
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_1( sys.argv[ 1: ] ) )
diff --git a/challenge-326/luca-ferrari/python/ch-2.py b/challenge-326/luca-ferrari/python/ch-2.py
new file mode 100644
index 0000000000..1c38833dac
--- /dev/null
+++ b/challenge-326/luca-ferrari/python/ch-2.py
@@ -0,0 +1,34 @@
+#!python
+
+#
+# Perl Weekly Challenge 326
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+#
+
+import sys
+
+# task implementation
+# the return value will be printed
+def task_2( args ):
+    nums = list( map( int, args ) )
+
+    result = []
+
+    for i in range( 0, len( nums ) - 1 ):
+        if i % 2 != 0 :
+            continue
+
+        base  = nums[ i ]
+        times = nums[ i + 1 ]
+
+        for x in range(0, times ):
+            result.append( base )
+
+    return result
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_2( sys.argv[ 1: ] ) )
diff --git a/challenge-326/luca-ferrari/raku/ch-1.raku b/challenge-326/luca-ferrari/raku/ch-1.raku
new file mode 100644
index 0000000000..d33dea1262
--- /dev/null
+++ b/challenge-326/luca-ferrari/raku/ch-1.raku
@@ -0,0 +1,13 @@
+#!raku
+
+#
+# Perl Weekly Challenge 326
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+#
+
+sub MAIN( Str $date ) {
+    my $day = Date.new: $date;
+    say 1 + $day - Date.new: month => 1, day => 1, year => $day.year;
+}
diff --git a/challenge-326/luca-ferrari/raku/ch-2.raku b/challenge-326/luca-ferrari/raku/ch-2.raku
new file mode 100644
index 0000000000..ef2d4a4902
--- /dev/null
+++ b/challenge-326/luca-ferrari/raku/ch-2.raku
@@ -0,0 +1,17 @@
+#!raku
+
+#
+# Perl Weekly Challenge 326
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-326>
+#
+
+sub MAIN( *@nums where { @nums.grep( * ~~ Int ).elems == @nums.elems } ) {
+    my @result;
+    for @nums -> $base, $times {
+	@result.push: ( $base xx $times );
+    }
+
+    @result.flat.say;
+}