Merge pull request #9653 from fluca1978/PWC258

PWC 258

21 files changed, 348 insertions, 3 deletions

diff --git a/challenge-258/luca-ferrari/blog-1.txt b/challenge-258/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..6fba75eff2
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task1
diff --git a/challenge-258/luca-ferrari/blog-10.txt b/challenge-258/luca-ferrari/blog-10.txt
new file mode 100644
index 0000000000..f0ea0bf318
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-10.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/[= date -%]/PerlWeeklyChallenge258.html#task2pljava
diff --git a/challenge-258/luca-ferrari/blog-2.txt b/challenge-258/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..12172aca8d
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task2
diff --git a/challenge-258/luca-ferrari/blog-3.txt b/challenge-258/luca-ferrari/blog-3.txt
new file mode 100644
index 0000000000..f3ca0419a3
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-3.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task1plperl
diff --git a/challenge-258/luca-ferrari/blog-4.txt b/challenge-258/luca-ferrari/blog-4.txt
new file mode 100644
index 0000000000..a145ef8d3e
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-4.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task2plperl
diff --git a/challenge-258/luca-ferrari/blog-5.txt b/challenge-258/luca-ferrari/blog-5.txt
new file mode 100644
index 0000000000..ff27319926
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-5.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task1plpgsql
diff --git a/challenge-258/luca-ferrari/blog-6.txt b/challenge-258/luca-ferrari/blog-6.txt
new file mode 100644
index 0000000000..7c37d2ecbc
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-6.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task2plpgsql
diff --git a/challenge-258/luca-ferrari/blog-7.txt b/challenge-258/luca-ferrari/blog-7.txt
new file mode 100644
index 0000000000..3acf21468e
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-7.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task1python
diff --git a/challenge-258/luca-ferrari/blog-8.txt b/challenge-258/luca-ferrari/blog-8.txt
new file mode 100644
index 0000000000..91ad2169e2
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-8.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task2python
diff --git a/challenge-258/luca-ferrari/blog-9.txt b/challenge-258/luca-ferrari/blog-9.txt
new file mode 100644
index 0000000000..28ce6da696
--- /dev/null
+++ b/challenge-258/luca-ferrari/blog-9.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2024/02/26/PerlWeeklyChallenge258.html#task1pljava
diff --git a/challenge-258/luca-ferrari/pljava/pom.xml b/challenge-258/luca-ferrari/pljava/pom.xml
index 6fe5f45834..1a0d8dbf4d 100644
--- a/challenge-258/luca-ferrari/pljava/pom.xml
+++ b/challenge-258/luca-ferrari/pljava/pom.xml
@@ -5,11 +5,11 @@
   <modelVersion>4.0.0</modelVersion>
 
   <groupId>PWC</groupId>
-  <artifactId>PWC257</artifactId>
+  <artifactId>PWC258</artifactId>
   <version>1</version>
 
-  <name>Perl Weekly Challenge 257</name>
-  <description>Implementation of the tasks in PL/Java for PWC 257</description>
+  <name>Perl Weekly Challenge 258</name>
+  <description>Implementation of the tasks in PL/Java for PWC 258</description>
 
   <properties>
     <project.build.sourceEncoding>US-ASCII</project.build.sourceEncoding>
diff --git a/challenge-258/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-258/luca-ferrari/pljava/src/main/java/Task1.java
new file mode 100644
index 0000000000..52e1cf3491
--- /dev/null
+++ b/challenge-258/luca-ferrari/pljava/src/main/java/Task1.java
@@ -0,0 +1,62 @@
+package PWC258;
+
+/**
+ * PL/Java implementation for PWC 258
+ * Task 1
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+ *
+ *
+ * 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/PWC258.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC258-1.jar', 'PWC258', true );
+
+ select pwc258.task1_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC258-1.jar', 'PWC258', 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.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 = "pwc258",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final int task1_pljava( int nums[] ) throws SQLException {
+	logger.log( Level.INFO, "Entering task1_pljava" );
+
+	List<Integer> numbers = new LinkedList<Integer>();
+	for ( int current : nums )
+	    numbers.add( current );
+
+	int count = numbers.stream().mapToInt( current -> {
+		if ( String.format( "%d", current ).length() % 2 == 0 )
+		    return 1;
+		else
+		    return 0;
+	    } ).sum();
+
+	return count;
+    }
+}
diff --git a/challenge-258/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-258/luca-ferrari/pljava/src/main/java/Task2.java
new file mode 100644
index 0000000000..a724c021c6
--- /dev/null
+++ b/challenge-258/luca-ferrari/pljava/src/main/java/Task2.java
@@ -0,0 +1,81 @@
+package PWC258;
+
+/**
+ * PL/Java implementation for PWC 258
+ * Task 2
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+ *
+ *
+ * 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/PWC258.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC258-1.jar', 'PWC258', true );
+
+ select pwc258.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC258-1.jar', 'PWC258', 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 = "pwc258",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final int task2_pljava( int k, int[] nums ) throws SQLException {
+	logger.log( Level.INFO, "Entering task2_pljava" );
+
+	// int sum = 0;
+	// int count = 0;
+	// for ( int i = 0; i < nums.length; i++ ) {
+	//     count = 0;
+	//     for ( String d : Integer.toBinaryString( i ).split( "" ) )
+	// 	if ( d.equals( "1" ) )
+	// 	    count++;
+
+
+	//     if ( count == k )
+	// 	sum += nums[ i ];
+	// }
+
+	// return sum
+
+	return IntStream.range( 0, nums.length )
+	    .map( current -> {
+		    int ones  = 0;
+		    for ( String d : Integer.toBinaryString( current ).split( "" ) )
+			if ( d.equals( "1" ) )
+			    ones ++;
+
+
+		    if ( ones  == k )
+			return nums[ current ];
+		    else
+			return 0;
+
+		} ).sum();
+;
+    }
+}
diff --git a/challenge-258/luca-ferrari/plperl/ch-1.plperl b/challenge-258/luca-ferrari/plperl/ch-1.plperl
new file mode 100644
index 0000000000..533e6570f7
--- /dev/null
+++ b/challenge-258/luca-ferrari/plperl/ch-1.plperl
@@ -0,0 +1,22 @@
+--
+-- Perl Weekly Challenge 258
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc258;
+
+CREATE OR REPLACE FUNCTION
+pwc258.task1_plperl( int[] )
+RETURNS int
+AS $CODE$
+
+   my ( $numbers ) = @_;
+
+   my @counting = map { split( //, $_ ) % 2 == 0 ? 1 : 0  } ( $numbers->@*  );
+   my $sum = 0;
+   $sum += $_  for ( @counting );
+   return $sum;
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-258/luca-ferrari/plperl/ch-2.plperl b/challenge-258/luca-ferrari/plperl/ch-2.plperl
new file mode 100644
index 0000000000..8d6755c472
--- /dev/null
+++ b/challenge-258/luca-ferrari/plperl/ch-2.plperl
@@ -0,0 +1,28 @@
+--
+-- Perl Weekly Challenge 258
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc258;
+
+CREATE OR REPLACE FUNCTION
+pwc258.task2_plperl( int, int[] )
+RETURNS int
+AS $CODE$
+
+   my ( $k, $numbers ) = @_;
+
+   my $count_binary_ones = sub {
+      my $num = shift;
+      my @digits = split //, sprintf( '%b', $num );
+      return scalar( grep { $_ == 1 } @digits );
+   };
+
+   my @indexes = grep { $count_binary_ones->( $_ ) == $k } ( 0 .. $numbers->@* - 1 );
+   my $sum = 0;
+   $sum += $numbers->@[ $_ ] for ( @indexes );
+   return $sum;
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-258/luca-ferrari/plpgsql/ch-1.sql b/challenge-258/luca-ferrari/plpgsql/ch-1.sql
new file mode 100644
index 0000000000..7e02f746b8
--- /dev/null
+++ b/challenge-258/luca-ferrari/plpgsql/ch-1.sql
@@ -0,0 +1,22 @@
+--
+-- Perl Weekly Challenge 258
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc258;
+
+CREATE OR REPLACE FUNCTION
+pwc258.task1_plpgsql( nums int[] )
+RETURNS int
+AS $CODE$
+   WITH q_nums AS (
+   	SELECT v, array_length( regexp_split_to_array( v::text, '' ), 1 ) as c
+	FROM unnest( nums ) v
+	)
+	SELECT count( * )
+	FROM q_nums
+	WHERE c % 2 = 0;
+
+$CODE$
+LANGUAGE sql;
diff --git a/challenge-258/luca-ferrari/plpgsql/ch-2.sql b/challenge-258/luca-ferrari/plpgsql/ch-2.sql
new file mode 100644
index 0000000000..3241facae4
--- /dev/null
+++ b/challenge-258/luca-ferrari/plpgsql/ch-2.sql
@@ -0,0 +1,32 @@
+--
+-- Perl Weekly Challenge 258
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc258;
+
+CREATE OR REPLACE FUNCTION
+pwc258.task2_plpgsql( k int, nums int[] )
+RETURNS int
+AS $CODE$
+DECLARE
+	v_sum int := 0;
+	count_of_ones int := 0;
+BEGIN
+	FOR i IN 1 .. array_length( nums, 1 ) LOOP
+		SELECT sum( v::int )
+		INTO count_of_ones
+		FROM regexp_split_to_table( i::bit( 8 )::text, '' ) v;
+
+		IF count_of_ones <> k THEN
+		   continue;
+		END IF;
+
+		v_sum := v_sum + nums[ i ];
+	END LOOP;
+
+	RETURN v_sum;
+END
+$CODE$
+LANGUAGE plpgsql;
diff --git a/challenge-258/luca-ferrari/python/ch-1.py b/challenge-258/luca-ferrari/python/ch-1.py
new file mode 100644
index 0000000000..4ba789cf54
--- /dev/null
+++ b/challenge-258/luca-ferrari/python/ch-1.py
@@ -0,0 +1,25 @@
+#!python
+
+#
+# Perl Weekly Challenge 258
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+#
+
+import sys
+
+# task implementation
+# the return value will be printed
+def task_1( args ):
+    sum = 0
+    for n in args:
+        if len( n ) % 2 == 0:
+            sum += 1
+
+    return sum
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_1( sys.argv[ 1: ] ) )
diff --git a/challenge-258/luca-ferrari/python/ch-2.py b/challenge-258/luca-ferrari/python/ch-2.py
new file mode 100644
index 0000000000..a5f6a97177
--- /dev/null
+++ b/challenge-258/luca-ferrari/python/ch-2.py
@@ -0,0 +1,36 @@
+#!python
+
+#
+# Perl Weekly Challenge 258
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+#
+
+import sys
+
+
+# task implementation
+# the return value will be printed
+def task_2( args ):
+    k = int( args[ 0 ] )
+    nums = list( map( int, args[ 1: ] ) )
+
+    def is_index_ok( v, k ):
+        b = '{0:08b}'.format( v )
+        count = sum( map( int, list( '{0:08b}'.format( v ) ) ) )
+        return count == k
+
+    indexes = list( filter( lambda i: is_index_ok( i, k ),
+                            range(0, len( nums ) ) ) )
+
+    summy = 0
+    for i in indexes:
+        summy += nums[ i ]
+
+    return summy
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_2( sys.argv[ 1: ] ) )
diff --git a/challenge-258/luca-ferrari/raku/ch-1.raku b/challenge-258/luca-ferrari/raku/ch-1.raku
new file mode 100644
index 0000000000..2864397a03
--- /dev/null
+++ b/challenge-258/luca-ferrari/raku/ch-1.raku
@@ -0,0 +1,13 @@
+#!raku
+
+#
+# Perl Weekly Challenge 258
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+#
+
+sub MAIN( *@nums where { @nums.elems == @nums.grep( * ~~ Int ).elems } ) {
+    @nums.map( { $_.comb.elems %% 2 ?? 1 !! 0 } ).sum.say;
+
+}
diff --git a/challenge-258/luca-ferrari/raku/ch-2.raku b/challenge-258/luca-ferrari/raku/ch-2.raku
new file mode 100644
index 0000000000..174f177137
--- /dev/null
+++ b/challenge-258/luca-ferrari/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!raku
+
+#
+# Perl Weekly Challenge 258
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-258>
+#
+
+sub MAIN( Int $k where { $k > 0 } , *@nums where { @nums.elems == @nums.grep( * ~~ Int ).elems } ) {
+    my @indexes = ( 0 ..^ @nums.elems ).grep( { $_.base( 2 ).comb.grep( * == 1 ).elems == $k } );
+    @nums[ @indexes ].sum.say;
+
+}