diff options
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; +} |