PWC 261

Task 1 Raku done
Task 2 Raku done

Task 1 PL/Perl done
Task 2 PL/Perl done

Task 1 PL/PgSQL done
Task 2 PL/PgSQL done

Task 1 Python done
Task 2 Python done

Task 1 PL/Java done
Task 2 PL/Java done

21 files changed, 341 insertions, 3 deletions

diff --git a/challenge-261/luca-ferrari/blog-1.txt b/challenge-261/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..b558069dbb
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task1
diff --git a/challenge-261/luca-ferrari/blog-10.txt b/challenge-261/luca-ferrari/blog-10.txt
new file mode 100644
index 0000000000..3049b90ccd
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-10.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/[= date -%]/PerlWeeklyChallenge261.html#task2pljava
diff --git a/challenge-261/luca-ferrari/blog-2.txt b/challenge-261/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..07eaf3a6bb
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task2
diff --git a/challenge-261/luca-ferrari/blog-3.txt b/challenge-261/luca-ferrari/blog-3.txt
new file mode 100644
index 0000000000..ba8b14192a
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-3.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task1plperl
diff --git a/challenge-261/luca-ferrari/blog-4.txt b/challenge-261/luca-ferrari/blog-4.txt
new file mode 100644
index 0000000000..5fe6a5324f
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-4.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task2plperl
diff --git a/challenge-261/luca-ferrari/blog-5.txt b/challenge-261/luca-ferrari/blog-5.txt
new file mode 100644
index 0000000000..3f8c12a738
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-5.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task1plpgsql
diff --git a/challenge-261/luca-ferrari/blog-6.txt b/challenge-261/luca-ferrari/blog-6.txt
new file mode 100644
index 0000000000..d909a9d196
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-6.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task2plpgsql
diff --git a/challenge-261/luca-ferrari/blog-7.txt b/challenge-261/luca-ferrari/blog-7.txt
new file mode 100644
index 0000000000..710c28a54f
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-7.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task1python
diff --git a/challenge-261/luca-ferrari/blog-8.txt b/challenge-261/luca-ferrari/blog-8.txt
new file mode 100644
index 0000000000..93bae4af8f
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-8.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task2python
diff --git a/challenge-261/luca-ferrari/blog-9.txt b/challenge-261/luca-ferrari/blog-9.txt
new file mode 100644
index 0000000000..9e912aa4d2
--- /dev/null
+++ b/challenge-261/luca-ferrari/blog-9.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/03/19/PerlWeeklyChallenge261.html#task1pljava
diff --git a/challenge-261/luca-ferrari/pljava/pom.xml b/challenge-261/luca-ferrari/pljava/pom.xml
index e9d5777410..d05bdc8222 100644
--- a/challenge-261/luca-ferrari/pljava/pom.xml
+++ b/challenge-261/luca-ferrari/pljava/pom.xml
@@ -7,14 +7,14 @@
 
   <groupId>PWC</groupId>
   <artifactId>
-    PWC260
+    PWC261
   </artifactId>
   <version>
     1
   </version>
 
-  <name>Perl Weekly Challenge 260 with package PWC260</name>
-  <description>Implementation of the tasks in PL/Java for PWC 260</description>
+  <name>Perl Weekly Challenge 261 with package PWC261</name>
+  <description>Implementation of the tasks in PL/Java for PWC 261</description>
 
   <properties>
     <project.build.sourceEncoding>US-ASCII</project.build.sourceEncoding>
diff --git a/challenge-261/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-261/luca-ferrari/pljava/src/main/java/Task1.java
new file mode 100644
index 0000000000..512fbd230a
--- /dev/null
+++ b/challenge-261/luca-ferrari/pljava/src/main/java/Task1.java
@@ -0,0 +1,68 @@
+
+
+
+package PWC261;
+
+/**
+ * PL/Java implementation for PWC 261
+ * Task 1
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+ *
+ *
+ * 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/PWC261-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC261-1.jar', 'PWC261', true );
+ select sqlj.set_classpath( 'public', 'PWC261' );
+
+ select pwc261.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC261-1.jar', 'PWC261', 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.lang.Math;
+
+public class Task1 {
+
+    private final static Logger logger = Logger.getAnonymousLogger();
+
+    @Function( schema = "pwc261",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final int task1_pljava( int nums[] ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc261.task1_pljava" );
+	int sum_numbers = 0;
+	int sum_digits  = 0;
+
+	for ( int current : nums ) {
+	    sum_numbers += current;
+	    while ( current > 0 ) {
+		sum_digits += current % 10;
+		current /= 10;
+	    }
+	}
+
+	return Math.abs( sum_numbers - sum_digits );
+
+    }
+}
diff --git a/challenge-261/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-261/luca-ferrari/pljava/src/main/java/Task2.java
new file mode 100644
index 0000000000..df81c3f088
--- /dev/null
+++ b/challenge-261/luca-ferrari/pljava/src/main/java/Task2.java
@@ -0,0 +1,67 @@
+
+
+
+package PWC261;
+
+/**
+ * PL/Java implementation for PWC 261
+ * Task 2
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+ *
+ *
+ * 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/PWC261-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC261-1.jar', 'PWC261', true );
+ select sqlj.set_classpath( 'public', 'PWC261' );
+
+ select pwc261.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC261-1.jar', 'PWC261', 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 = "pwc261",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final int task2_pljava( int start, int[] nums ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc261.task2_pljava" );
+
+	while ( grep( start, nums ) )
+	    start *= 2;
+
+	return start;
+    }
+
+    private static boolean grep( int needle, int[] nums ) {
+	for ( int current : nums )
+	    if ( current == needle )
+		return true;
+
+	return false;
+    }
+}
diff --git a/challenge-261/luca-ferrari/plperl/ch-1.plperl b/challenge-261/luca-ferrari/plperl/ch-1.plperl
new file mode 100644
index 0000000000..e0fc117167
--- /dev/null
+++ b/challenge-261/luca-ferrari/plperl/ch-1.plperl
@@ -0,0 +1,28 @@
+--
+-- Perl Weekly Challenge 261
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc261;
+
+CREATE OR REPLACE FUNCTION
+pwc261.task1_plperl( int[] )
+RETURNS int
+AS $CODE$
+
+   my ( $nums ) = @_;
+   my ( $sum, $sum_digits ) = ( 0, 0 );
+
+   for my $current ( $nums->@* ) {
+       $sum += $current;
+       for my $digit ( split //, $current ) {
+       	   $sum_digits += $digit;
+       }
+   }
+
+   my $result = $sum - $sum_digits;
+   return $result < 0 ? $result * -1 : $result;
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-261/luca-ferrari/plperl/ch-2.plperl b/challenge-261/luca-ferrari/plperl/ch-2.plperl
new file mode 100644
index 0000000000..7867832571
--- /dev/null
+++ b/challenge-261/luca-ferrari/plperl/ch-2.plperl
@@ -0,0 +1,22 @@
+--
+-- Perl Weekly Challenge 261
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc261;
+
+CREATE OR REPLACE FUNCTION
+pwc261.task2_plperl( int, int[] )
+RETURNS int
+AS $CODE$
+
+   my ( $start, $nums ) = @_;
+
+   while ( grep( { $start == $_ } $nums->@* ) ) {
+   	 $start *= 2;
+   }
+
+   return $start;
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-261/luca-ferrari/plpgsql/ch-1.sql b/challenge-261/luca-ferrari/plpgsql/ch-1.sql
new file mode 100644
index 0000000000..d12067ac9a
--- /dev/null
+++ b/challenge-261/luca-ferrari/plpgsql/ch-1.sql
@@ -0,0 +1,27 @@
+--
+-- Perl Weekly Challenge 261
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc261;
+
+CREATE OR REPLACE FUNCTION
+pwc261.task1_plpgsql( nums int[] )
+RETURNS int
+AS $CODE$
+
+WITH sum_numbers AS ( SELECT SUM( n::int ) AS y FROM unnest( nums ) n )
+     , digits AS ( SELECT regexp_split_to_table( n::text, '' ) d
+       	      	   FROM unnest( nums ) n )
+      , sum_digits AS ( SELECT SUM( d::int ) AS x FROM digits d )
+     , result AS ( SELECT y - x AS r
+                   FROM sum_numbers, sum_digits )
+
+     SELECT CASE WHEN r > 0 THEN r
+            ELSE r * -1
+	    END
+
+    FROM result;
+$CODE$
+LANGUAGE sql;
diff --git a/challenge-261/luca-ferrari/plpgsql/ch-2.sql b/challenge-261/luca-ferrari/plpgsql/ch-2.sql
new file mode 100644
index 0000000000..efd3bdd16f
--- /dev/null
+++ b/challenge-261/luca-ferrari/plpgsql/ch-2.sql
@@ -0,0 +1,30 @@
+--
+-- Perl Weekly Challenge 261
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc261;
+
+CREATE OR REPLACE FUNCTION
+pwc261.task2_plpgsql( s int, nums int[] )
+RETURNS int
+AS $CODE$
+DECLARE
+
+BEGIN
+	LOOP
+		PERFORM s
+		FROM unnest( nums ) n
+		WHERE n::int = s;
+
+		IF FOUND THEN
+		   s := s * 2;
+		ELSE
+		  RETURN s;
+		END IF;
+	END LOOP;
+
+END
+$CODE$
+LANGUAGE plpgsql;
diff --git a/challenge-261/luca-ferrari/python/ch-1.py b/challenge-261/luca-ferrari/python/ch-1.py
new file mode 100644
index 0000000000..5e1927a010
--- /dev/null
+++ b/challenge-261/luca-ferrari/python/ch-1.py
@@ -0,0 +1,30 @@
+#!python
+
+#
+# Perl Weekly Challenge 261
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+#
+
+import sys
+
+# task implementation
+# the return value will be printed
+def task_1( args ):
+    sum_numbers = sum( list( map( int, args ) ) )
+    sum_digits  = 0
+    for num in args:
+        for d in num:
+            sum_digits += int( d )
+
+    result = sum_numbers - sum_digits
+    if result < 0:
+        return result * -1
+
+    return result
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_1( sys.argv[ 1: ] ) )
diff --git a/challenge-261/luca-ferrari/python/ch-2.py b/challenge-261/luca-ferrari/python/ch-2.py
new file mode 100644
index 0000000000..a9e1b1472d
--- /dev/null
+++ b/challenge-261/luca-ferrari/python/ch-2.py
@@ -0,0 +1,25 @@
+#!python
+
+#
+# Perl Weekly Challenge 261
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+#
+
+import sys
+
+# task implementation
+# the return value will be printed
+def task_2( args ):
+    start = int( args[ 0 ] )
+    nums  = args[ 1: ]
+    while len( list( filter( lambda x: x == str( start ), nums ) ) ) > 0:
+        start *= 2
+
+    return start
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_2( sys.argv[ 1: ] ) )
diff --git a/challenge-261/luca-ferrari/raku/ch-1.raku b/challenge-261/luca-ferrari/raku/ch-1.raku
new file mode 100644
index 0000000000..53133e902c
--- /dev/null
+++ b/challenge-261/luca-ferrari/raku/ch-1.raku
@@ -0,0 +1,13 @@
+#!raku
+
+#
+# Perl Weekly Challenge 261
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+#
+
+sub MAIN( *@nums where { @nums.elems == @nums.grep( * ~~ Int ).elems } ) {
+    my $result = @nums.sum -  @nums.map( *.comb ).flat.sort.sum;
+    ( $result < 0 ?? $result * -1 !! $result ).say;
+}
diff --git a/challenge-261/luca-ferrari/raku/ch-2.raku b/challenge-261/luca-ferrari/raku/ch-2.raku
new file mode 100644
index 0000000000..2b734ca0c4
--- /dev/null
+++ b/challenge-261/luca-ferrari/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!raku
+
+#
+# Perl Weekly Challenge 261
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-261>
+#
+
+sub MAIN( Int $start is copy,
+	  *@nums where { @nums.elems == @nums.grep( * ~~ Int ).elems } ) {
+
+    while ( @nums.grep( * ~~ $start ) ) {
+	$start *= 2;
+    }
+
+    $start.say;
+}