PWC 332

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 PL/Java done (but is task 2)
Task 2 PL/Java done (but is task 1)

Task 1 Python done
Task 2 Python done

21 files changed, 316 insertions, 3 deletions

diff --git a/challenge-332/luca-ferrari/blog-1.txt b/challenge-332/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..c009801155
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task1
diff --git a/challenge-332/luca-ferrari/blog-10.txt b/challenge-332/luca-ferrari/blog-10.txt
new file mode 100644
index 0000000000..412fb08216
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-10.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task2pljava
diff --git a/challenge-332/luca-ferrari/blog-2.txt b/challenge-332/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..51e4e73a1a
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task2
diff --git a/challenge-332/luca-ferrari/blog-3.txt b/challenge-332/luca-ferrari/blog-3.txt
new file mode 100644
index 0000000000..56cf79a8f0
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-3.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task1plperl
diff --git a/challenge-332/luca-ferrari/blog-4.txt b/challenge-332/luca-ferrari/blog-4.txt
new file mode 100644
index 0000000000..bb33e29a0d
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-4.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task2plperl
diff --git a/challenge-332/luca-ferrari/blog-5.txt b/challenge-332/luca-ferrari/blog-5.txt
new file mode 100644
index 0000000000..dc3f5d3272
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-5.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task1plpgsql
diff --git a/challenge-332/luca-ferrari/blog-6.txt b/challenge-332/luca-ferrari/blog-6.txt
new file mode 100644
index 0000000000..d5e47e63a9
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-6.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task2plpgsql
diff --git a/challenge-332/luca-ferrari/blog-7.txt b/challenge-332/luca-ferrari/blog-7.txt
new file mode 100644
index 0000000000..4f2a538ff0
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-7.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task1python
diff --git a/challenge-332/luca-ferrari/blog-8.txt b/challenge-332/luca-ferrari/blog-8.txt
new file mode 100644
index 0000000000..1e70c5132a
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-8.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task2python
diff --git a/challenge-332/luca-ferrari/blog-9.txt b/challenge-332/luca-ferrari/blog-9.txt
new file mode 100644
index 0000000000..a95b7651b0
--- /dev/null
+++ b/challenge-332/luca-ferrari/blog-9.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2025/07/31/PerlWeeklyChallenge332.html#task1pljava
diff --git a/challenge-332/luca-ferrari/pljava/pom.xml b/challenge-332/luca-ferrari/pljava/pom.xml
index 45f0e495c8..677727f42f 100644
--- a/challenge-332/luca-ferrari/pljava/pom.xml
+++ b/challenge-332/luca-ferrari/pljava/pom.xml
@@ -7,14 +7,14 @@
 
   <groupId>PWC</groupId>
   <artifactId>
-    PWC331
+    PWC332
   </artifactId>
   <version>
     1
   </version>
 
-  <name>Perl Weekly Challenge 331 with package PWC331</name>
-  <description>Implementation of the tasks in PL/Java for PWC 331</description>
+  <name>Perl Weekly Challenge 332 with package PWC332</name>
+  <description>Implementation of the tasks in PL/Java for PWC 332</description>
 
   <properties>
     <project.build.sourceEncoding>US-ASCII</project.build.sourceEncoding>
diff --git a/challenge-332/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-332/luca-ferrari/pljava/src/main/java/Task1.java
new file mode 100644
index 0000000000..9e314b2131
--- /dev/null
+++ b/challenge-332/luca-ferrari/pljava/src/main/java/Task1.java
@@ -0,0 +1,67 @@
+
+
+
+package PWC332;
+
+/**
+ * PL/Java implementation for PWC 332
+ * Task 1
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+ *
+ *
+ * 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/PWC332-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC332-1.jar', 'PWC332', true );
+ select sqlj.set_classpath( 'public', 'PWC332' );
+
+ select pwc332.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC332-1.jar', 'PWC332', 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 = "pwc332",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final boolean task1_pljava( String text ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc332.task1_pljava" );
+
+	Map<String, Integer> bag = new HashMap<String, Integer>();
+	boolean ok = true;
+
+	for ( String c : text.split( "" ) ) {
+	    bag.putIfAbsent( c, 0 );
+	    bag.put( c, bag.get( c ) + 1 );
+	    if ( bag.get( c ) > 1 )
+		ok = false;
+	}
+
+	return ok;
+
+    }
+}
diff --git a/challenge-332/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-332/luca-ferrari/pljava/src/main/java/Task2.java
new file mode 100644
index 0000000000..68cdd17f79
--- /dev/null
+++ b/challenge-332/luca-ferrari/pljava/src/main/java/Task2.java
@@ -0,0 +1,66 @@
+
+
+
+package PWC332;
+
+/**
+ * PL/Java implementation for PWC 332
+ * Task 2
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+ *
+ *
+ * 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/PWC332-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC332-1.jar', 'PWC332', true );
+ select sqlj.set_classpath( 'public', 'PWC332' );
+
+ select pwc332.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC332-1.jar', 'PWC332', 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 = "pwc332",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final String task2_pljava( String date ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc332.task2_pljava" );
+
+	String result = "";
+	int dashes = 2;
+	for ( String current : date.split( "-" ) ) {
+	    result += Integer.toBinaryString( Integer.parseInt( current ) );
+	    if ( dashes > 0 ) {
+		result += "-";
+		dashes--;
+	    }
+	}
+
+	return result;
+    }
+}
diff --git a/challenge-332/luca-ferrari/plperl/ch-1.plperl b/challenge-332/luca-ferrari/plperl/ch-1.plperl
new file mode 100644
index 0000000000..080cef53ae
--- /dev/null
+++ b/challenge-332/luca-ferrari/plperl/ch-1.plperl
@@ -0,0 +1,24 @@
+--
+-- Perl Weekly Challenge 332
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc332;
+
+CREATE OR REPLACE FUNCTION
+pwc332.task1_plperl( text )
+RETURNS text
+AS $CODE$
+
+   my ( $date ) = @_;
+   my @bins;
+   
+   for ( split /[-]/, $date ) {
+       push @bins, sprintf( '%b', $_ );
+   }
+
+   return join( '-', @bins );
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-332/luca-ferrari/plperl/ch-2.plperl b/challenge-332/luca-ferrari/plperl/ch-2.plperl
new file mode 100644
index 0000000000..b8f4e76038
--- /dev/null
+++ b/challenge-332/luca-ferrari/plperl/ch-2.plperl
@@ -0,0 +1,25 @@
+--
+-- Perl Weekly Challenge 332
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc332;
+
+CREATE OR REPLACE FUNCTION
+pwc332.task2_plperl( text )
+RETURNS boolean
+AS $CODE$
+
+   my ( $string ) = @_;
+   my $bag = {};
+
+   for ( split //, $string ) {
+       $bag->{ $_ }++;
+   }
+
+   return 0 if ( grep { $_ > 1 } values $bag->%* );
+   return 1;
+   
+$CODE$
+LANGUAGE plperl;
diff --git a/challenge-332/luca-ferrari/plpgsql/ch-1.sql b/challenge-332/luca-ferrari/plpgsql/ch-1.sql
new file mode 100644
index 0000000000..c97870cafc
--- /dev/null
+++ b/challenge-332/luca-ferrari/plpgsql/ch-1.sql
@@ -0,0 +1,17 @@
+--
+-- Perl Weekly Challenge 332
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc332;
+
+CREATE OR REPLACE FUNCTION
+pwc332.task1_plpgsql( d date )
+RETURNS text
+AS $CODE$
+   SELECT string_agg( v::int::bit( 8 )::text, '-' )
+   FROM   regexp_split_to_table( d::text, '-' ) v;
+
+$CODE$
+LANGUAGE sql;
diff --git a/challenge-332/luca-ferrari/plpgsql/ch-2.sql b/challenge-332/luca-ferrari/plpgsql/ch-2.sql
new file mode 100644
index 0000000000..b7f8c0177c
--- /dev/null
+++ b/challenge-332/luca-ferrari/plpgsql/ch-2.sql
@@ -0,0 +1,19 @@
+--
+-- Perl Weekly Challenge 332
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc332;
+
+CREATE OR REPLACE FUNCTION
+pwc332.task2_plpgsql( t text )
+RETURNS boolean
+AS $CODE$
+   select NOT exists(
+   	  select v
+	  from regexp_split_to_table( t, '' ) v
+	  group by v
+	  having count(*) > 1 );
+$CODE$
+LANGUAGE sql;
diff --git a/challenge-332/luca-ferrari/python/ch-1.py b/challenge-332/luca-ferrari/python/ch-1.py
new file mode 100644
index 0000000000..878b68aebb
--- /dev/null
+++ b/challenge-332/luca-ferrari/python/ch-1.py
@@ -0,0 +1,24 @@
+#!python
+
+#
+# Perl Weekly Challenge 332
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+#
+
+import sys
+import re
+
+# task implementation
+# the return value will be printed
+def task_1( args ):
+    bins = []
+    for c in re.split( r'[-]', args[ 0 ] ) :
+        bins.append( "{0:b}".format( int( c ) ) )
+
+    return '-'.join( bins )
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_1( sys.argv[ 1: ] ) )
diff --git a/challenge-332/luca-ferrari/python/ch-2.py b/challenge-332/luca-ferrari/python/ch-2.py
new file mode 100644
index 0000000000..b5ea37e84b
--- /dev/null
+++ b/challenge-332/luca-ferrari/python/ch-2.py
@@ -0,0 +1,30 @@
+#!python
+
+#
+# Perl Weekly Challenge 332
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+#
+
+import sys
+
+# task implementation
+# the return value will be printed
+def task_2( args ):
+    bag = {}
+    for c in args[ 0 ]:
+        if not c in bag:
+            bag[ c ] = 0
+        bag[ c ] = bag[ c ] + 1
+
+    for x in bag:
+        if bag[ x ] > 1:
+            return False
+
+    return True
+
+
+# invoke the main without the command itself
+if __name__ == '__main__':
+    print( task_2( sys.argv[ 1: ] ) )
diff --git a/challenge-332/luca-ferrari/raku/ch-1.raku b/challenge-332/luca-ferrari/raku/ch-1.raku
new file mode 100644
index 0000000000..7f5ef029c1
--- /dev/null
+++ b/challenge-332/luca-ferrari/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!raku
+
+#
+# Perl Weekly Challenge 332
+# Task 1
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+#
+
+sub MAIN( Str $date where { $date ~~ / ^ \d ** 4 '-' \d ** 2 '-' \d ** 2 $/ } ) {
+    my @bins;
+    for $date.split( '-' ) {
+	@bins.push: $_.Int.base( 2 );
+    }
+
+    @bins.join( '-' ).say;
+}
diff --git a/challenge-332/luca-ferrari/raku/ch-2.raku b/challenge-332/luca-ferrari/raku/ch-2.raku
new file mode 100644
index 0000000000..7a53f409df
--- /dev/null
+++ b/challenge-332/luca-ferrari/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!raku
+
+#
+# Perl Weekly Challenge 332
+# Task 2
+#
+# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-332>
+#
+
+sub MAIN( Str $string ) {
+    my $bag = Bag.new: $string.comb;
+    'false'.say and exit if ( $bag.values.grep( * > 1 ) );
+    'true'.say;
+}