diff options
21 files changed, 322 insertions, 21 deletions
diff --git a/challenge-255/luca-ferrari/blog-1.txt b/challenge-255/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..936241c6c4 --- /dev/null +++ b/challenge-255/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task1 diff --git a/challenge-255/luca-ferrari/blog-10.txt b/challenge-255/luca-ferrari/blog-10.txt new file mode 100644 index 0000000000..a21839e412 --- /dev/null +++ b/challenge-255/luca-ferrari/blog-10.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/[= date -%]/PerlWeeklyChallenge255.html#task2pljava diff --git a/challenge-255/luca-ferrari/blog-2.txt b/challenge-255/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..f829c75fbf --- /dev/null +++ b/challenge-255/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task2 diff --git a/challenge-255/luca-ferrari/blog-3.txt b/challenge-255/luca-ferrari/blog-3.txt new file mode 100644 index 0000000000..7951fbdfd3 --- /dev/null +++ b/challenge-255/luca-ferrari/blog-3.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task1plperl diff --git a/challenge-255/luca-ferrari/blog-4.txt b/challenge-255/luca-ferrari/blog-4.txt new file mode 100644 index 0000000000..4242e183fd --- /dev/null +++ b/challenge-255/luca-ferrari/blog-4.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task2plperl diff --git a/challenge-255/luca-ferrari/blog-5.txt b/challenge-255/luca-ferrari/blog-5.txt new file mode 100644 index 0000000000..e0e73821c1 --- /dev/null +++ b/challenge-255/luca-ferrari/blog-5.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task1plpgsql diff --git a/challenge-255/luca-ferrari/blog-6.txt b/challenge-255/luca-ferrari/blog-6.txt new file mode 100644 index 0000000000..27c518b72f --- /dev/null +++ b/challenge-255/luca-ferrari/blog-6.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task2plpgsql diff --git a/challenge-255/luca-ferrari/blog-7.txt b/challenge-255/luca-ferrari/blog-7.txt new file mode 100644 index 0000000000..ee88ec0e8d --- /dev/null +++ b/challenge-255/luca-ferrari/blog-7.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task1python diff --git a/challenge-255/luca-ferrari/blog-8.txt b/challenge-255/luca-ferrari/blog-8.txt new file mode 100644 index 0000000000..6929325c63 --- /dev/null +++ b/challenge-255/luca-ferrari/blog-8.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task2python diff --git a/challenge-255/luca-ferrari/blog-9.txt b/challenge-255/luca-ferrari/blog-9.txt new file mode 100644 index 0000000000..2a75b6dad2 --- /dev/null +++ b/challenge-255/luca-ferrari/blog-9.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2024/02/05/PerlWeeklyChallenge255.html#task1pljava diff --git a/challenge-255/luca-ferrari/pljava/pom.xml b/challenge-255/luca-ferrari/pljava/pom.xml index 8777b204e3..e5ba684e37 100644 --- a/challenge-255/luca-ferrari/pljava/pom.xml +++ b/challenge-255/luca-ferrari/pljava/pom.xml @@ -5,11 +5,11 @@ <modelVersion>4.0.0</modelVersion> <groupId>PWC</groupId> - <artifactId>PWC254</artifactId> + <artifactId>PWC255</artifactId> <version>1</version> - <name>Perl Weekly Challenge 254</name> - <description>Implementation of the tasks in PL/Java for PWC 254</description> + <name>Perl Weekly Challenge 255</name> + <description>Implementation of the tasks in PL/Java for PWC 255</description> <properties> <project.build.sourceEncoding>US-ASCII</project.build.sourceEncoding> diff --git a/challenge-255/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-255/luca-ferrari/pljava/src/main/java/Task1.java new file mode 100644 index 0000000000..ab63904e23 --- /dev/null +++ b/challenge-255/luca-ferrari/pljava/src/main/java/Task1.java @@ -0,0 +1,74 @@ +package PWC255; + +/** + * PL/Java implementation for PWC 255 + * Task 1 + * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> + * + * + * 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/PWC253-1.jar luca@venkman:/tmp + + + * To install into PostgreSQL execute: + + select sqlj.install_jar( 'file:///tmp/PWC255-1.jar', 'PWC255', true ); + select sqlj.set_classpath( 'public', 'PWC255' ); + + select task1_pljava(); + + and then to redeploy: + + select sqlj.replace_jar( 'file:///tmp/PWC255-1.jar', 'PWC255', 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.*; + +public class Task1 { + + private final static Logger logger = Logger.getAnonymousLogger(); + + @Function( onNullInput = RETURNS_NULL, effects = IMMUTABLE ) + public static final String task1_pljava( String origin, String shuffled ) throws SQLException { + logger.log( Level.INFO, "Entering task1_pljava" ); + + if ( origin.length() + 1 != shuffled.length() ) { + throw new SQLException( "Shuffled string should be one character longer than the original one" ); + } + + Map<String, Integer> classification = new HashMap<String, Integer>(); + for ( String needle : shuffled.split( "" ) ) { + int value = classification.keySet().contains( needle ) + ? classification.get( needle ) + : 0; + + classification.put( needle, ++value ); + } + + + for ( String comparison : origin.split( "" ) ) { + int value = classification.get( comparison ); + value--; + + if ( value > 0 ) + classification.put( comparison, value ); + else + classification.remove( comparison ); + } + + + return classification.keySet().iterator().next(); + + } +} diff --git a/challenge-255/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-255/luca-ferrari/pljava/src/main/java/Task2.java new file mode 100644 index 0000000000..0a8655ca2a --- /dev/null +++ b/challenge-255/luca-ferrari/pljava/src/main/java/Task2.java @@ -0,0 +1,62 @@ +package PWC255; + +/** + * PL/Java implementation for PWC 255 + * Task 1 + * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> + * + * + * 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/PWC253-1.jar luca@venkman:/tmp + + + * To install into PostgreSQL execute: + + select sqlj.install_jar( 'file:///tmp/PWC255-1.jar', 'PWC255', true ); + select sqlj.set_classpath( 'public', 'PWC255' ); + + select task1_pljava(); + + and then to redeploy: + + select sqlj.replace_jar( 'file:///tmp/PWC255-1.jar', 'PWC255', 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.*; + +public class Task2 { + private final static Logger logger = Logger.getAnonymousLogger(); + + @Function( onNullInput = RETURNS_NULL, effects = IMMUTABLE ) + public static final String task2_pljava( String paragraph, String banned ) throws SQLException { + logger.log( Level.INFO, "Entering task2_pljava" ); + + Map<String, Integer> classification = new HashMap<String, Integer>(); + for ( String word : paragraph.split( "\\W+" ) ) { + if ( word.equals( banned ) ) + continue; + + int value = classification.containsKey( word ) ? classification.get( word ) : 0; + classification.put( word, ++value ); + } + + String topValue = classification.entrySet() + .stream() + .sorted( Collections.reverseOrder( Map.Entry.comparingByValue() ) ) + .findFirst().get().getKey(); + + return topValue; + } +} diff --git a/challenge-255/luca-ferrari/plperl/ch-1.plperl b/challenge-255/luca-ferrari/plperl/ch-1.plperl new file mode 100644 index 0000000000..8423dacf63 --- /dev/null +++ b/challenge-255/luca-ferrari/plperl/ch-1.plperl @@ -0,0 +1,29 @@ +-- +-- Perl Weekly Challenge 255 +-- Task 1 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> +-- + +CREATE SCHEMA IF NOT EXISTS pwc255; + +CREATE OR REPLACE FUNCTION +pwc255.task1_plperl( text, text ) +RETURNS text +AS $CODE$ + + my ( $origin, $shuffled ) = @_; + die "Shuffled string [$shuffled] should be one char lengther than original [$origin]" + if ( length( $shuffled ) != length( $origin ) + 1 ); + + + my $classification = {}; + $classification->{ $_ }++ for ( split //, $shuffled ); + $classification->{ $_ }-- for ( split //, $origin ); + + for ( keys $classification->%* ) { + return $_ if ( $classification->{ $_ } > 0 ); + } + + return undef; +$CODE$ +LANGUAGE plperl; diff --git a/challenge-255/luca-ferrari/plperl/ch-2.plperl b/challenge-255/luca-ferrari/plperl/ch-2.plperl new file mode 100644 index 0000000000..1f73f3688f --- /dev/null +++ b/challenge-255/luca-ferrari/plperl/ch-2.plperl @@ -0,0 +1,28 @@ +-- +-- Perl Weekly Challenge 255 +-- Task 2 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> +-- + +CREATE SCHEMA IF NOT EXISTS pwc255; + +CREATE OR REPLACE FUNCTION +pwc255.task2_plperl( text, text ) +RETURNS text +AS $CODE$ + + my ( $paragraph, $banned ) = @_; + + $paragraph =~ s/\W*$banned\W*/ /g; + + my $classification = {}; + $classification->{ $_ }++ for ( split /\W/, $paragraph ); + my $max = ( reverse sort values $classification->%* )[ 0 ]; + for ( keys $classification->%* ) { + return $_ if ( $classification->{ $_ } == $max ); + } + + return undef; + +$CODE$ +LANGUAGE plperl; diff --git a/challenge-255/luca-ferrari/plpgsql/ch-1.sql b/challenge-255/luca-ferrari/plpgsql/ch-1.sql new file mode 100644 index 0000000000..fba7114f5f --- /dev/null +++ b/challenge-255/luca-ferrari/plpgsql/ch-1.sql @@ -0,0 +1,18 @@ +-- +-- Perl Weekly Challenge 255 +-- Task 1 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> +-- + +CREATE SCHEMA IF NOT EXISTS pwc255; + +CREATE OR REPLACE FUNCTION +pwc255.task1_plpgsql( origin text, shuffled text ) +RETURNS char +AS $CODE$ + SELECT s + FROM regexp_split_to_table( shuffled, '' ) s + WHERE s NOT IN ( SELECT v + FROM regexp_split_to_table( origin, '' ) v ); +$CODE$ +LANGUAGE sql; diff --git a/challenge-255/luca-ferrari/plpgsql/ch-2.sql b/challenge-255/luca-ferrari/plpgsql/ch-2.sql new file mode 100644 index 0000000000..33f80c3ddd --- /dev/null +++ b/challenge-255/luca-ferrari/plpgsql/ch-2.sql @@ -0,0 +1,35 @@ +-- +-- Perl Weekly Challenge 255 +-- Task 2 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> +-- + +CREATE SCHEMA IF NOT EXISTS pwc255; + +CREATE OR REPLACE FUNCTION +pwc255.task2_plpgsql( p text, b text ) +RETURNS SETOF text +AS $CODE$ +DECLARE + +BEGIN + CREATE TEMPORARY TABLE IF NOT EXISTS classification( w text ); + TRUNCATE TABLE classification; + + INSERT INTO classification + SELECT v + FROM regexp_split_to_table( p, '\W+' ) v; + + RETURN QUERY + SELECT w FROM ( + SELECT w, count(*) AS c + FROM classification + WHERE w <> b + GROUP BY w + ORDER BY c DESC + LIMIT 1 + ); + +END +$CODE$ +LANGUAGE plpgsql; diff --git a/challenge-255/luca-ferrari/python/ch-1.python b/challenge-255/luca-ferrari/python/ch-1.python index a0533551d8..d5e0960574 100644 --- a/challenge-255/luca-ferrari/python/ch-1.python +++ b/challenge-255/luca-ferrari/python/ch-1.python @@ -1,24 +1,36 @@ #!python # -# Perl Weekly Challenge 254 +# Perl Weekly Challenge 255 # Task 1 # # See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-254> # import sys -import math # task implementation # the return value will be printed def task_1( args ): - num = int( args[ 0 ] ) - for i in range( 2, int( math.sqrt( num ) ) ): - if ( i ** 3 ) == num: - return True + origin = args[ 0 ] + shuffled = args[ 1 ] + if len( shuffled ) != len( origin ) + 1: + return "Shuffled string must be one character longer than original string" - return False + classification = {} + + for needle in shuffled: + if not needle in classification: + classification[ needle ] = 0 + + classification[ needle ] += 1 + + for needle in origin: + classification[ needle ] -= 1 + if classification[ needle ] <= 0: + del classification[ needle ] + + return list( classification.keys() )[ 0 ] # invoke the main without the command itself diff --git a/challenge-255/luca-ferrari/python/ch-2.python b/challenge-255/luca-ferrari/python/ch-2.python index dc37e2ad93..6493199950 100644 --- a/challenge-255/luca-ferrari/python/ch-2.python +++ b/challenge-255/luca-ferrari/python/ch-2.python @@ -1,7 +1,7 @@ #!python # -# Perl Weekly Challenge 254 +# Perl Weekly Challenge 255 # Task 2 # # See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-254> @@ -12,17 +12,16 @@ import sys # task implementation # the return value will be printed def task_2( args ): - word = args[ 0 ].lower() - vowels = list( reversed( list( filter( lambda x: x in ('a','e','i','o','u'), word ) ) ) ) - output = '' - for letter in word: - if letter not in ( 'a', 'e', 'i', 'o', 'u' ) or len( vowels ) == 0 - output += letter - else: - output += vowels.pop( 0 ) - - return output + paragraph = args[ 0 ] + banned = args[ 1 ] + classification = {} + for w in paragraph.split(): + if w != banned: + if not w in classification: + classification[ w ] = 0 + classification[ w ] += 1 + return sorted( classification.items() )[ -1 ][ 0 ] # invoke the main without the command itself if __name__ == '__main__': diff --git a/challenge-255/luca-ferrari/raku/ch-1.raku b/challenge-255/luca-ferrari/raku/ch-1.raku new file mode 100644 index 0000000000..9fe8930de6 --- /dev/null +++ b/challenge-255/luca-ferrari/raku/ch-1.raku @@ -0,0 +1,18 @@ +#!raku + +# +# Perl Weekly Challenge 255 +# Task 1 +# +# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> +# + +sub MAIN( Str :$a, Str :$b where { $b.chars == $a.chars + 1 } ) { + my $classification = BagHash.new: $b.comb; + for $a.comb { + $classification{ $_ }--; + $classification{ $_ }:delete if ( $classification{ $_ } <= 0 ); + } + + $classification.keys.head.say; +} diff --git a/challenge-255/luca-ferrari/raku/ch-2.raku b/challenge-255/luca-ferrari/raku/ch-2.raku new file mode 100644 index 0000000000..ab74cfd5d9 --- /dev/null +++ b/challenge-255/luca-ferrari/raku/ch-2.raku @@ -0,0 +1,16 @@ +#!raku + +# +# Perl Weekly Challenge 255 +# Task 2 +# +# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-255> +# + +sub MAIN( Str :$p is copy, Str :$w ) { + + $p ~~ s:g/ \W* $w \W+/ /; + my $classification = Bag.new: $p.split( / \W+ /, :skip-empty ); + $classification.keys.grep( { $classification{ $_ } == $classification.values.max } ).first.say; + +} |