From 4bdf01fc828095304e3d85ddd3c2af8d2e7ade08 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Thu, 10 Jul 2025 12:38:23 +0200 Subject: PWC 329 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 Task 2 PL/Java done Task 1 Python done Task 2 Python done --- challenge-329/luca-ferrari/blog-1.txt | 1 + challenge-329/luca-ferrari/blog-10.txt | 1 + challenge-329/luca-ferrari/blog-2.txt | 1 + challenge-329/luca-ferrari/blog-3.txt | 1 + challenge-329/luca-ferrari/blog-4.txt | 1 + challenge-329/luca-ferrari/blog-5.txt | 1 + challenge-329/luca-ferrari/blog-6.txt | 1 + challenge-329/luca-ferrari/blog-7.txt | 1 + challenge-329/luca-ferrari/blog-8.txt | 1 + challenge-329/luca-ferrari/blog-9.txt | 1 + challenge-329/luca-ferrari/pljava/pom.xml | 72 ++++++++++++++++++++ .../luca-ferrari/pljava/src/main/java/Task1.java | 72 ++++++++++++++++++++ .../luca-ferrari/pljava/src/main/java/Task2.java | 77 ++++++++++++++++++++++ challenge-329/luca-ferrari/plperl/ch-1.plperl | 26 ++++++++ challenge-329/luca-ferrari/plperl/ch-2.plperl | 36 ++++++++++ challenge-329/luca-ferrari/plpgsql/ch-1.sql | 17 +++++ challenge-329/luca-ferrari/plpgsql/ch-2.sql | 50 ++++++++++++++ challenge-329/luca-ferrari/python/ch-1.py | 28 ++++++++ challenge-329/luca-ferrari/python/ch-2.py | 38 +++++++++++ challenge-329/luca-ferrari/raku/ch-1.raku | 17 +++++ challenge-329/luca-ferrari/raku/ch-2.raku | 28 ++++++++ 21 files changed, 471 insertions(+) create mode 100644 challenge-329/luca-ferrari/blog-1.txt create mode 100644 challenge-329/luca-ferrari/blog-10.txt create mode 100644 challenge-329/luca-ferrari/blog-2.txt create mode 100644 challenge-329/luca-ferrari/blog-3.txt create mode 100644 challenge-329/luca-ferrari/blog-4.txt create mode 100644 challenge-329/luca-ferrari/blog-5.txt create mode 100644 challenge-329/luca-ferrari/blog-6.txt create mode 100644 challenge-329/luca-ferrari/blog-7.txt create mode 100644 challenge-329/luca-ferrari/blog-8.txt create mode 100644 challenge-329/luca-ferrari/blog-9.txt create mode 100644 challenge-329/luca-ferrari/pljava/pom.xml create mode 100644 challenge-329/luca-ferrari/pljava/src/main/java/Task1.java create mode 100644 challenge-329/luca-ferrari/pljava/src/main/java/Task2.java create mode 100644 challenge-329/luca-ferrari/plperl/ch-1.plperl create mode 100644 challenge-329/luca-ferrari/plperl/ch-2.plperl create mode 100644 challenge-329/luca-ferrari/plpgsql/ch-1.sql create mode 100644 challenge-329/luca-ferrari/plpgsql/ch-2.sql create mode 100644 challenge-329/luca-ferrari/python/ch-1.py create mode 100644 challenge-329/luca-ferrari/python/ch-2.py create mode 100644 challenge-329/luca-ferrari/raku/ch-1.raku create mode 100644 challenge-329/luca-ferrari/raku/ch-2.raku diff --git a/challenge-329/luca-ferrari/blog-1.txt b/challenge-329/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..c103669812 --- /dev/null +++ b/challenge-329/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task1 diff --git a/challenge-329/luca-ferrari/blog-10.txt b/challenge-329/luca-ferrari/blog-10.txt new file mode 100644 index 0000000000..050968a099 --- /dev/null +++ b/challenge-329/luca-ferrari/blog-10.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task2pljava diff --git a/challenge-329/luca-ferrari/blog-2.txt b/challenge-329/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..cb5d8fdced --- /dev/null +++ b/challenge-329/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task2 diff --git a/challenge-329/luca-ferrari/blog-3.txt b/challenge-329/luca-ferrari/blog-3.txt new file mode 100644 index 0000000000..d8473ae954 --- /dev/null +++ b/challenge-329/luca-ferrari/blog-3.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task1plperl diff --git a/challenge-329/luca-ferrari/blog-4.txt b/challenge-329/luca-ferrari/blog-4.txt new file mode 100644 index 0000000000..f6c0a4e818 --- /dev/null +++ b/challenge-329/luca-ferrari/blog-4.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task2plperl diff --git a/challenge-329/luca-ferrari/blog-5.txt b/challenge-329/luca-ferrari/blog-5.txt new file mode 100644 index 0000000000..6bf000f25d --- /dev/null +++ b/challenge-329/luca-ferrari/blog-5.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task1plpgsql diff --git a/challenge-329/luca-ferrari/blog-6.txt b/challenge-329/luca-ferrari/blog-6.txt new file mode 100644 index 0000000000..dece5a0d40 --- /dev/null +++ b/challenge-329/luca-ferrari/blog-6.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task2plpgsql diff --git a/challenge-329/luca-ferrari/blog-7.txt b/challenge-329/luca-ferrari/blog-7.txt new file mode 100644 index 0000000000..85aaf18b1f --- /dev/null +++ b/challenge-329/luca-ferrari/blog-7.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task1python diff --git a/challenge-329/luca-ferrari/blog-8.txt b/challenge-329/luca-ferrari/blog-8.txt new file mode 100644 index 0000000000..a4fa19214a --- /dev/null +++ b/challenge-329/luca-ferrari/blog-8.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task2python diff --git a/challenge-329/luca-ferrari/blog-9.txt b/challenge-329/luca-ferrari/blog-9.txt new file mode 100644 index 0000000000..13043a9c24 --- /dev/null +++ b/challenge-329/luca-ferrari/blog-9.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2025/07/10/PerlWeeklyChallenge329.html#task1pljava diff --git a/challenge-329/luca-ferrari/pljava/pom.xml b/challenge-329/luca-ferrari/pljava/pom.xml new file mode 100644 index 0000000000..1397948409 --- /dev/null +++ b/challenge-329/luca-ferrari/pljava/pom.xml @@ -0,0 +1,72 @@ + + + 4.0.0 + + PWC + + PWC329 + + + 1 + + + Perl Weekly Challenge 329 with package PWC329 + Implementation of the tasks in PL/Java for PWC 329 + + + US-ASCII + + + + + org.postgresql + pljava-api + 1.6.6 + + + + + + + org.apache.maven.plugins + maven-compiler-plugin + 3.8.1 + + 9 + + + + org.apache.maven.plugins + maven-jar-plugin + 2.6 + + + + + + true + + + + + + + pljava.ddr + + + true + + + + + + + + + + diff --git a/challenge-329/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-329/luca-ferrari/pljava/src/main/java/Task1.java new file mode 100644 index 0000000000..be4e77e6fc --- /dev/null +++ b/challenge-329/luca-ferrari/pljava/src/main/java/Task1.java @@ -0,0 +1,72 @@ + + + +package PWC329; + +/** + * PL/Java implementation for PWC 329 + * Task 1 + * See + * + * + * 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/PWC329-1.jar luca@rachel:/tmp + + + * To install into PostgreSQL execute: + + select sqlj.install_jar( 'file:///tmp/PWC329-1.jar', 'PWC329', true ); + select sqlj.set_classpath( 'public', 'PWC329' ); + + select pwc329.task2_pljava(); + + and then to redeploy: + + select sqlj.replace_jar( 'file:///tmp/PWC329-1.jar', 'PWC329', 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.util.regex.*; + +public class Task1 { + + private final static Logger logger = Logger.getAnonymousLogger(); + + @Function( schema = "pwc329", + onNullInput = RETURNS_NULL, + effects = IMMUTABLE ) + public static final int[] task1_pljava( String string ) throws SQLException { + logger.log( Level.INFO, "Entering pwc329.task1_pljava" ); + + Map numbers = new HashMap(); + + Pattern regexp = Pattern.compile( "\\d+" ); + Matcher engine = regexp.matcher( string ); + while ( engine.find() ) { + try { + numbers.put( Integer.parseInt( engine.group() ), 1 ); + } catch( Exception e ) { } + } + + int result[] = new int[ numbers.size() ]; + int j = 0; + for ( int i : numbers.keySet() ) + result[ j++ ] = i; + + return result; + } +} diff --git a/challenge-329/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-329/luca-ferrari/pljava/src/main/java/Task2.java new file mode 100644 index 0000000000..64956c8ab5 --- /dev/null +++ b/challenge-329/luca-ferrari/pljava/src/main/java/Task2.java @@ -0,0 +1,77 @@ + + + +package PWC329; + +/** + * PL/Java implementation for PWC 329 + * Task 2 + * See + * + * + * 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/PWC329-1.jar luca@rachel:/tmp + + + * To install into PostgreSQL execute: + + select sqlj.install_jar( 'file:///tmp/PWC329-1.jar', 'PWC329', true ); + select sqlj.set_classpath( 'public', 'PWC329' ); + + select pwc329.task2_pljava(); + + and then to redeploy: + + select sqlj.replace_jar( 'file:///tmp/PWC329-1.jar', 'PWC329', 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.util.regex.*; + +public class Task2 { + + private final static Logger logger = Logger.getAnonymousLogger(); + + @Function( schema = "pwc329", + onNullInput = RETURNS_NULL, + effects = IMMUTABLE ) + public static final String task2_pljava( String string ) throws SQLException { + logger.log( Level.INFO, "Entering pwc329.task2_pljava" ); + + + char chars[] = string.toCharArray(); + + int begin = 0; + int end = 0; + + for ( int i = 0; i < chars.length; i++ ) { + char c = chars[ i ]; + char n = Character.toUpperCase( c ); + if ( Character.isUpperCase( c ) ) + n = Character.toLowerCase( c ); + + for ( int j = i + 1; j < chars.length; j++ ) + if ( chars[ j ] == n ) + if ( ( end - begin ) < ( j - i ) ) { + begin = i; + end = j; + } + } + + return string.substring( begin, end + 1 ); + } +} diff --git a/challenge-329/luca-ferrari/plperl/ch-1.plperl b/challenge-329/luca-ferrari/plperl/ch-1.plperl new file mode 100644 index 0000000000..15feb485ed --- /dev/null +++ b/challenge-329/luca-ferrari/plperl/ch-1.plperl @@ -0,0 +1,26 @@ +-- +-- Perl Weekly Challenge 329 +-- Task 1 +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc329; + +CREATE OR REPLACE FUNCTION +pwc329.task1_plperl( text ) +RETURNS SETOF int +AS $CODE$ + + my ( $string ) = @_; + die "Invalid string" unless( $string =~ / ^ [a-zA-Z0-9]+ $ /x ); + + my $found = {}; + + for ( $string =~ / [0-9]+ /xg ) { + $found->{ $_ }++; + } + + return [ sort keys $found->%* ]; + +$CODE$ +LANGUAGE plperl; diff --git a/challenge-329/luca-ferrari/plperl/ch-2.plperl b/challenge-329/luca-ferrari/plperl/ch-2.plperl new file mode 100644 index 0000000000..dc112b57dd --- /dev/null +++ b/challenge-329/luca-ferrari/plperl/ch-2.plperl @@ -0,0 +1,36 @@ +-- +-- Perl Weekly Challenge 329 +-- Task 2 +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc329; + +CREATE OR REPLACE FUNCTION +pwc329.task2_plperl( text ) +RETURNS text +AS $CODE$ + + my ( $string ) = @_; + die "Invalid string" unless( $string =~ / ^ [a-zA-Z]+ $ /x ); + + my $found; + my @chars = split //, $string; + for my $i ( 0 .. $#chars ) { + my $current = $chars[ $i ]; + my $needle = uc $current; + $needle = lc $current if ( $current =~ /[A-Z]/ ); + my $index = 0; + + my $index = ( sort + map { $_->[ 1 ] } + grep { $_->[ 0 ] eq $needle } + map { [ $_, $index++ ] } @chars[ $i .. $#chars ] )[ -1 ]; + my $match = join( '', @chars[ $i .. $index ] ); + $found = $match if ( ! $found || length( $found ) < length( $match ) ); + } + + return $found; + +$CODE$ +LANGUAGE plperl; diff --git a/challenge-329/luca-ferrari/plpgsql/ch-1.sql b/challenge-329/luca-ferrari/plpgsql/ch-1.sql new file mode 100644 index 0000000000..8b35d46253 --- /dev/null +++ b/challenge-329/luca-ferrari/plpgsql/ch-1.sql @@ -0,0 +1,17 @@ +-- +-- Perl Weekly Challenge 329 +-- Task 1 +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc329; + +CREATE OR REPLACE FUNCTION +pwc329.task1_plpgsql( s text ) +RETURNS SETOF text +AS $CODE$ + SELECT distinct( v ) + FROM regexp_matches( s, '\d+', 'g' ) v + ORDER BY 1 +$CODE$ +LANGUAGE sql; diff --git a/challenge-329/luca-ferrari/plpgsql/ch-2.sql b/challenge-329/luca-ferrari/plpgsql/ch-2.sql new file mode 100644 index 0000000000..6a7f8ee510 --- /dev/null +++ b/challenge-329/luca-ferrari/plpgsql/ch-2.sql @@ -0,0 +1,50 @@ +-- +-- Perl Weekly Challenge 329 +-- Task 2 +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc329; + +CREATE OR REPLACE FUNCTION +pwc329.task2_plpgsql( s text ) +RETURNS text +AS $CODE$ +DECLARE + current text; + i int; + chars text[]; + result text; + tmp text; + needle text; +BEGIN + + SELECT regexp_split_to_array( s, '' ) + INTO chars; + + result := ''; + + FOR i in 1 .. length( s ) LOOP + current := chars[ i ]; + needle := upper( current ); + + IF current ~ '[A-Z]' THEN + needle := lower( current ); + END IF; + + tmp := ''; + FOR j IN i .. length( s ) LOOP + IF chars[ j ] = needle THEN + tmp := array_to_string( chars[ i : j ], '' ); + IF length( tmp ) > length( result ) THEN + result := tmp; + END IF; + END IF; + END LOOP; + + END LOOP; + + RETURN result; +END +$CODE$ +LANGUAGE plpgsql; diff --git a/challenge-329/luca-ferrari/python/ch-1.py b/challenge-329/luca-ferrari/python/ch-1.py new file mode 100644 index 0000000000..41d2e6a1d8 --- /dev/null +++ b/challenge-329/luca-ferrari/python/ch-1.py @@ -0,0 +1,28 @@ +#!python + +# +# Perl Weekly Challenge 329 +# Task 1 +# +# See +# + +import sys +import re + +# task implementation +# the return value will be printed +def task_1( args ): + string = args[ 0 ] + + numbers = [] + pattern = re.compile( r'\d+' ) + for i in pattern.findall( string ) : + if not i in numbers : + numbers.append( i ) + + return numbers + +# invoke the main without the command itself +if __name__ == '__main__': + print( task_1( sys.argv[ 1: ] ) ) diff --git a/challenge-329/luca-ferrari/python/ch-2.py b/challenge-329/luca-ferrari/python/ch-2.py new file mode 100644 index 0000000000..bdfc275a82 --- /dev/null +++ b/challenge-329/luca-ferrari/python/ch-2.py @@ -0,0 +1,38 @@ +#!python + +# +# Perl Weekly Challenge 329 +# Task 2 +# +# See +# + +import sys + +# task implementation +# the return value will be printed +def task_2( args ): + string = args[ 0 ] + + begin = 0 + end = 0 + + for i in range( 0, len( string ) - 1 ) : + current = string[ i ] + needle = current.upper() + if current.isupper() : + needle = current.lower() + + for j in range( i + 1, len( string ) ) : + print( " => ", string[ j ] ) + if string[ j ] == needle : + if ( end - begin ) < ( j - i ) : + begin = i + end = j + + return string[ begin : end + 1 ] + + +# invoke the main without the command itself +if __name__ == '__main__': + print( task_2( sys.argv[ 1: ] ) ) diff --git a/challenge-329/luca-ferrari/raku/ch-1.raku b/challenge-329/luca-ferrari/raku/ch-1.raku new file mode 100644 index 0000000000..cdaeb1f1e8 --- /dev/null +++ b/challenge-329/luca-ferrari/raku/ch-1.raku @@ -0,0 +1,17 @@ +#!raku + +# +# Perl Weekly Challenge 329 +# Task 1 +# +# See +# + +sub MAIN( Str $string where { $string ~~ / <[a..zA..Z0..9]>+ / } ) { + my %digits; + for ( $string ~~ m:g/ <[0..9]>+ / ).values { + %digits{ $_ }++; + } + + %digits.keys.sort.join( ',' ).say; +} diff --git a/challenge-329/luca-ferrari/raku/ch-2.raku b/challenge-329/luca-ferrari/raku/ch-2.raku new file mode 100644 index 0000000000..e5b5f9de4c --- /dev/null +++ b/challenge-329/luca-ferrari/raku/ch-2.raku @@ -0,0 +1,28 @@ +#!raku + +# +# Perl Weekly Challenge 329 +# Task 2 +# +# See +# + +sub MAIN( Str $string where { $string ~~ / <[a..zA..Z]>+ / } ) { + exit( 0 ) if $string.chars <= 1; + + my @chars = $string.comb; + my $found; + + for 0 ..^ @chars.elems { + my $current = @chars[ $_ ]; + my $needle = $current.uc; + $needle = $current.lc if ( $current ~~ / <[A..Z]> / ); + + my $last-index = @chars[ $_ .. * - 1 ].grep( * ~~ $needle, :k ).max; + my $match = @chars[ $_ .. $last-index ].join; + $found = $match if ( ! $found || $match.chars > $found.chars ); + } + + $found.say; + +} -- cgit