Merge pull request #10070 from fluca1978/PWC268

PWC 268

21 files changed, 374 insertions, 3 deletions

diff --git a/challenge-268/luca-ferrari/blog-1.txt b/challenge-268/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..bbeedaf24b
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task1
diff --git a/challenge-268/luca-ferrari/blog-10.txt b/challenge-268/luca-ferrari/blog-10.txt
new file mode 100644
index 0000000000..028f3c0f87
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-10.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/[= date -%]/PerlWeeklyChallenge268.html#task2pljava
diff --git a/challenge-268/luca-ferrari/blog-2.txt b/challenge-268/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..e210a306c4
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task2
diff --git a/challenge-268/luca-ferrari/blog-3.txt b/challenge-268/luca-ferrari/blog-3.txt
new file mode 100644
index 0000000000..ca333cad39
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-3.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task1plperl
diff --git a/challenge-268/luca-ferrari/blog-4.txt b/challenge-268/luca-ferrari/blog-4.txt
new file mode 100644
index 0000000000..52c5a57591
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-4.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task2plperl
diff --git a/challenge-268/luca-ferrari/blog-5.txt b/challenge-268/luca-ferrari/blog-5.txt
new file mode 100644
index 0000000000..e3b1c460e1
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-5.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task1plpgsql
diff --git a/challenge-268/luca-ferrari/blog-6.txt b/challenge-268/luca-ferrari/blog-6.txt
new file mode 100644
index 0000000000..dcfa71995e
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-6.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task2plpgsql
diff --git a/challenge-268/luca-ferrari/blog-7.txt b/challenge-268/luca-ferrari/blog-7.txt
new file mode 100644
index 0000000000..ee790d8a27
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-7.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task1python
diff --git a/challenge-268/luca-ferrari/blog-8.txt b/challenge-268/luca-ferrari/blog-8.txt
new file mode 100644
index 0000000000..a732291431
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-8.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task2python
diff --git a/challenge-268/luca-ferrari/blog-9.txt b/challenge-268/luca-ferrari/blog-9.txt
new file mode 100644
index 0000000000..271f45d443
--- /dev/null
+++ b/challenge-268/luca-ferrari/blog-9.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/05/08/PerlWeeklyChallenge268.html#task1pljava
diff --git a/challenge-268/luca-ferrari/pljava/pom.xml b/challenge-268/luca-ferrari/pljava/pom.xml
index f010e9517a..47fefd2b32 100644
--- a/challenge-268/luca-ferrari/pljava/pom.xml
+++ b/challenge-268/luca-ferrari/pljava/pom.xml
@@ -7,14 +7,14 @@
 
   <groupId>PWC</groupId>
   <artifactId>
-    PWC267
+    PWC268
   </artifactId>
   <version>
     1
   </version>
 
-  <name>Perl Weekly Challenge 267 with package PWC267</name>
-  <description>Implementation of the tasks in PL/Java for PWC 267</description>
+  <name>Perl Weekly Challenge 268 with package PWC268</name>
+  <description>Implementation of the tasks in PL/Java for PWC 268</description>
 
   <properties>
     <project.build.sourceEncoding>US-ASCII</project.build.sourceEncoding>
diff --git a/challenge-268/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-268/luca-ferrari/pljava/src/main/java/Task1.java
new file mode 100644
index 0000000000..d9cb80b717
--- /dev/null
+++ b/challenge-268/luca-ferrari/pljava/src/main/java/Task1.java
@@ -0,0 +1,79 @@
+
+
+
+package PWC268;
+
+/**
+ * PL/Java implementation for PWC 268
+ * Task 1
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+ *
+ *
+ * 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/PWC268-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC268-1.jar', 'PWC268', true );
+ select sqlj.set_classpath( 'public', 'PWC268' );
+
+ select pwc268.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC268-1.jar', 'PWC268', 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 Task1 {
+
+    private final static Logger logger = Logger.getAnonymousLogger();
+
+    @Function( schema = "pwc268",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final Integer task1_pljava( int[] left, int[] right ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc268.task1_pljava" );
+
+	List<Integer> l = new LinkedList<Integer>();
+	List<Integer> r = new LinkedList<Integer>();
+
+	for ( int i : left )
+	    l.add( i );
+	for ( int i : right )
+	    r.add( i );
+
+	Collections.sort( l );
+	Collections.sort( r );
+	List<Integer> diffs = new LinkedList<Integer>();
+
+	for ( int i = 0; i < l.size(); i++ ) {
+	    int current = l.get( i ) - r.get( i );
+	    if ( ! diffs.contains( current ) )
+		diffs.add( current );
+	}
+
+	if ( diffs.size() == 1 )
+	    return diffs.get( 0 );
+	else
+	    return null;
+
+	
+    }
+}
diff --git a/challenge-268/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-268/luca-ferrari/pljava/src/main/java/Task2.java
new file mode 100644
index 0000000000..6e2a1e1fcc
--- /dev/null
+++ b/challenge-268/luca-ferrari/pljava/src/main/java/Task2.java
@@ -0,0 +1,72 @@
+
+
+
+package PWC268;
+
+/**
+ * PL/Java implementation for PWC 268
+ * Task 2
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+ *
+ *
+ * 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/PWC268-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC268-1.jar', 'PWC268', true );
+ select sqlj.set_classpath( 'public', 'PWC268' );
+
+ select pwc268.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC268-1.jar', 'PWC268', 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 = "pwc268",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final int[] task2_pljava( int[] nums ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc268.task2_pljava" );
+
+	List<Integer> sorted = new LinkedList<Integer>();
+	for ( int i : nums )
+	    sorted.add( i );
+	Collections.sort( nums );
+
+	int[] result = new int[ nums.length ];
+	int index = 0;
+
+	for ( int i = 0; i < sorted.size(); i++ ) {
+	    int left = sorted.get( i );
+	    int right = sorted.get( ++i );
+
+	    result[ index++ ]   = ( left > right ? left : right );
+	    result[ index++ ] = ( left > right ? right : left );
+	}
+
+	return result;
+    }
+}
diff --git a/challenge-268/luca-ferrari/plperl/ch-1.plperl b/challenge-268/luca-ferrari/plperl/ch-1.plperl
new file mode 100644
index 0000000000..cc9f08c727
--- /dev/null
+++ b/challenge-268/luca-ferrari/plperl/ch-1.plperl
@@ -0,0 +1,28 @@
+--
+-- Perl Weekly Challenge 268
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc268;
+
+CREATE OR REPLACE FUNCTION
+pwc268.task1_plperl( int[], int[] )
+RETURNS int
+AS $CODE$
+
+   my ( $left, $right ) = @_;
+
+   die 'Array must have the same length!' if ( $left->@* != $right->@* );
+
+   my @diffs;
+   for my $index ( 0 .. $left->@* - 1 ) {
+       my $d = $left->@[ $index ] - $right->@[ $index ];
+       push @diffs, $d if ( ! grep( { $_ == $d } @diffs ) );
+   }
+
+   return $diffs[ 0 ] if ( @diffs == 1 );
+   return undef;
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-268/luca-ferrari/plperl/ch-2.plperl b/challenge-268/luca-ferrari/plperl/ch-2.plperl
new file mode 100644
index 0000000000..4a5b9823c6
--- /dev/null
+++ b/challenge-268/luca-ferrari/plperl/ch-2.plperl
@@ -0,0 +1,26 @@
+--
+-- Perl Weekly Challenge 268
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc268;
+
+CREATE OR REPLACE FUNCTION
+pwc268.task2_plperl( int[] )
+RETURNS SETOF int
+AS $CODE$
+
+   my ( $nums ) = @_;
+
+   $nums = [ sort $nums->@* ];
+   my @sorted;
+   for my $index ( 0 .. $nums->@* - 1 ) {
+       next if $index % 2 != 0;
+       push @sorted, reverse sort( $nums->@[ $index ], $nums->@[ $index + 1 ] );
+   }
+
+   return [ @sorted ]	;
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-268/luca-ferrari/plpgsql/ch-1.sql b/challenge-268/luca-ferrari/plpgsql/ch-1.sql
new file mode 100644
index 0000000000..d812800d96
--- /dev/null
+++ b/challenge-268/luca-ferrari/plpgsql/ch-1.sql
@@ -0,0 +1,28 @@
+--
+-- Perl Weekly Challenge 268
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc268;
+
+CREATE OR REPLACE FUNCTION
+pwc268.task1_plpgsql( l int[], r int[] )
+RETURNS int
+AS $CODE$
+
+   WITH sorted_left AS ( SELECT v, row_number()  OVER ( order by 1 ) as r  FROM unnest( l ) v  )
+   , sorted_right AS ( SELECT v, row_number()  OVER ( order by 1 ) as r  FROM unnest( r ) v  )
+   , diffs AS (
+   SELECT l.v - r.v as d
+   FROM sorted_left l, sorted_right r
+   WHERE l.r = r.r
+   )
+   SELECT d
+   FROM diffs d
+   GROUP BY d
+   HAVING count(*) = ( SELECT array_length( l, 1 ) );
+
+
+$CODE$
+LANGUAGE sql;
diff --git a/challenge-268/luca-ferrari/plpgsql/ch-2.sql b/challenge-268/luca-ferrari/plpgsql/ch-2.sql
new file mode 100644
index 0000000000..503a60a2bf
--- /dev/null
+++ b/challenge-268/luca-ferrari/plpgsql/ch-2.sql
@@ -0,0 +1,15 @@
+--
+-- Perl Weekly Challenge 268
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc268;
+
+CREATE OR REPLACE FUNCTION
+pwc268.task2_plpgsql( nums int[] )
+RETURNS SETOF int
+AS $CODE$
+   SELECT pwc268.task2_plperl( nums );
+$CODE$
+LANGUAGE sql;
diff --git a/challenge-268/luca-ferrari/python/ch-1.py b/challenge-268/luca-ferrari/python/ch-1.py
new file mode 100644
index 0000000000..c977d2a464
--- /dev/null
+++ b/challenge-268/luca-ferrari/python/ch-1.py
@@ -0,0 +1,39 @@
+#!python
+
+#
+# Perl Weekly Challenge 268
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+#
+
+import sys
+
+# task implementation
+# the return value will be printed
+def task_1( args ):
+    left = []
+    right = []
+
+    left  = list( map( int, args[ 0 : args.index( "|" ) ] ) )
+    right = list( map( int, args[ args.index( "|" ) + 1 : ] ) )
+
+    left.sort()
+    right.sort()
+
+    diffs = []
+    for index in range( 0, len( left ) ):
+        d = left[ index ] - right[ index ]
+        if not d in diffs:
+            diffs.append( d )
+
+    if len( diffs ) == 1:
+        return diffs[ 0 ]
+    else:
+        return None
+
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_1( sys.argv[ 1: ] ) )
diff --git a/challenge-268/luca-ferrari/python/ch-2.py b/challenge-268/luca-ferrari/python/ch-2.py
new file mode 100644
index 0000000000..4a2c56a0d9
--- /dev/null
+++ b/challenge-268/luca-ferrari/python/ch-2.py
@@ -0,0 +1,35 @@
+#!python
+
+#
+# Perl Weekly Challenge 268
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+#
+
+import sys
+
+# task implementation
+# the return value will be printed
+def task_2( args ):
+    sorted = list( map( int, args ) )
+    sorted.sort()
+
+    result = []
+
+    for i in range( 0, len( sorted ) ):
+        if i % 2 != 0:
+            continue
+
+        left  = sorted[ i ]
+        right = sorted[ i + 1 ]
+
+        result.append( left if left > right else right )
+        result.append( left if right > left else right )
+
+    return result
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_2( sys.argv[ 1: ] ) )
diff --git a/challenge-268/luca-ferrari/raku/ch-1.raku b/challenge-268/luca-ferrari/raku/ch-1.raku
new file mode 100644
index 0000000000..d5a996c853
--- /dev/null
+++ b/challenge-268/luca-ferrari/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!raku
+
+#
+# Perl Weekly Challenge 268
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+#
+
+sub MAIN(  :@left,  :@right where { @left.elems == @right.elems }  ) {
+    my @sorted-left  = @left.sort;
+    my @sorted-right = @right.sort;
+
+    my @diffs;
+    for 0 ..^ @sorted-left.elems -> $i {
+	my $current = @sorted-left[ $i ] - @sorted-right[ $i ];
+	@diffs.push: $current if ! @diffs.grep( $current );
+    }
+
+    @diffs[ 0 ].say and exit  if @diffs.elems == 1;
+    'Impossible'.say;
+}
diff --git a/challenge-268/luca-ferrari/raku/ch-2.raku b/challenge-268/luca-ferrari/raku/ch-2.raku
new file mode 100644
index 0000000000..983d2cf867
--- /dev/null
+++ b/challenge-268/luca-ferrari/raku/ch-2.raku
@@ -0,0 +1,17 @@
+#!raku
+
+#
+# Perl Weekly Challenge 268
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-268>
+#
+
+sub MAIN( *@nums where { @nums.elems == @nums.grep( * ~~ Int ).elems  && @nums.elems %% 2 }  ) {
+    my @sorted;
+    for @nums.sort.rotor( 2 ) -> @couple {
+	@sorted.push: @couple.reverse.flat;
+    }
+
+    @sorted.join( " " ).say;
+}