PWC 347

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

3 files changed, 240 insertions, 0 deletions

diff --git a/challenge-347/luca-ferrari/pljava/pom.xml b/challenge-347/luca-ferrari/pljava/pom.xml
new file mode 100644
index 0000000000..9d238d7670
--- /dev/null
+++ b/challenge-347/luca-ferrari/pljava/pom.xml
@@ -0,0 +1,72 @@
+
+<project
+ xmlns="http://maven.apache.org/POM/4.0.0"
+ xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+ xsi:schemaLocation= "http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd" >
+  <modelVersion>4.0.0</modelVersion>
+
+  <groupId>PWC</groupId>
+  <artifactId>
+    PWC347
+  </artifactId>
+  <version>
+    1
+  </version>
+
+  <name>Perl Weekly Challenge 347 with package PWC347</name>
+  <description>Implementation of the tasks in PL/Java for PWC 347</description>
+
+  <properties>
+    <project.build.sourceEncoding>US-ASCII</project.build.sourceEncoding>
+  </properties>
+
+  <dependencies>
+    <dependency>
+      <groupId>org.postgresql</groupId>
+      <artifactId>pljava-api</artifactId>
+      <version>1.6.6</version>
+    </dependency>
+  </dependencies>
+
+  <build>
+    <plugins>
+      <plugin>
+        <groupId>org.apache.maven.plugins</groupId>
+        <artifactId>maven-compiler-plugin</artifactId>
+        <version>3.8.1</version>
+        <configuration>
+          <release>9</release>
+        </configuration>
+      </plugin>
+      <plugin>
+        <groupId>org.apache.maven.plugins</groupId>
+        <artifactId>maven-jar-plugin</artifactId>
+        <version>2.6</version>
+        <configuration>
+          <archive>
+            <manifest>
+              <!-- This identifies and version-stamps the jar.
+                 Not essential, but easy and useful. -->
+              <addDefaultImplementationEntries>
+                true
+              </addDefaultImplementationEntries>
+            </manifest>
+
+            <manifestSections>
+              <!-- This identifies a file in the jar named
+                 pljava.ddr as an SQLJDeploymentDescriptor. -->
+              <manifestSection>
+                <name>pljava.ddr</name>
+                <manifestEntries>
+                  <SQLJDeploymentDescriptor>
+                    true
+                  </SQLJDeploymentDescriptor>
+                </manifestEntries>
+              </manifestSection>
+            </manifestSections>
+          </archive>
+        </configuration>
+      </plugin>
+    </plugins>
+  </build>
+</project>
diff --git a/challenge-347/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-347/luca-ferrari/pljava/src/main/java/Task1.java
new file mode 100644
index 0000000000..55a579ff0f
--- /dev/null
+++ b/challenge-347/luca-ferrari/pljava/src/main/java/Task1.java
@@ -0,0 +1,76 @@
+
+
+
+package PWC347;
+
+/**
+ * PL/Java implementation for PWC 347
+ * Task 1
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-347>
+ *
+ *
+ * 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/PWC347-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC347-1.jar', 'PWC347', true );
+ select sqlj.set_classpath( 'public', 'PWC347' );
+
+ select pwc347.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC347-1.jar', 'PWC347', 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 = "pwc347",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final String task1_pljava( String date ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc347.task1_pljava" );
+
+	Map<String, Integer> months = new HashMap<String, Integer>();
+
+	months.put( "Jan", 1 );
+	months.put( "Feb", 2 );
+	months.put( "Mar", 3 );
+	months.put( "Apr", 4 );
+	months.put( "May", 5 );
+	months.put( "Jun", 6 );
+	months.put( "Jul", 7 );
+	months.put( "Aug", 8 );
+	months.put( "Sep", 9 );
+	months.put( "Oct", 10 );
+	months.put( "Nov", 11 );
+	months.put( "Dec", 12 );
+
+	
+	String[] parts = date.split( "\\s+" );
+	return String.format( "%04d-%02d-%02d",
+			      Integer.parseInt( parts[ 2 ] ),
+			      months.get( parts[ 1 ] ),
+			      Integer.parseInt( parts[ 0 ].replace( "st", "" ).replace( "nd", "" ).replace( "rd", "" ).replace( "rh", "" ) ) );
+    }
+}
diff --git a/challenge-347/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-347/luca-ferrari/pljava/src/main/java/Task2.java
new file mode 100644
index 0000000000..b51d95c8d2
--- /dev/null
+++ b/challenge-347/luca-ferrari/pljava/src/main/java/Task2.java
@@ -0,0 +1,92 @@
+
+
+
+package PWC347;
+
+/**
+ * PL/Java implementation for PWC 347
+ * Task 2
+ * See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-347>
+ *
+ *
+ * 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/PWC347-1.jar  luca@rachel:/tmp
+
+
+ * To install into PostgreSQL execute:
+
+ select sqlj.install_jar( 'file:///tmp/PWC347-1.jar', 'PWC347', true );
+ select sqlj.set_classpath( 'public', 'PWC347' );
+
+ select pwc347.task2_pljava();
+
+ and then to redeploy:
+
+ select sqlj.replace_jar( 'file:///tmp/PWC347-1.jar', 'PWC347', 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 = "pwc347",
+	       onNullInput = RETURNS_NULL,
+	       effects = IMMUTABLE )
+    public static final String task2_pljava( String phone ) throws SQLException {
+	logger.log( Level.INFO, "Entering pwc347.task2_pljava" );
+
+	phone = phone.replaceAll( "-", "" ).replaceAll( " ", "" );
+	List<String> groups = new LinkedList<String>();
+
+	String current = "";
+	for( int i = 0; i < phone.length(); i++ ) {
+	    current += phone.charAt( i );
+	    if ( current.length() % 3 == 0 ) {
+		groups.add( current );
+		current = "";
+	    }
+	}
+
+	if ( current.length() > 0 ) {
+	    groups.add( current );
+	}
+
+
+	if ( groups.get( groups.size() - 1 ).length() != 2
+	     || groups.get( groups.size() - 1 ).length() != 3 ) {
+
+	    String begin = groups.get( groups.size() - 2 );
+	    String end   = groups.get( groups.size() - 1 );
+	    groups.remove( groups.size() - 1 );
+	    groups.remove( groups.size() - 1 );
+
+	    String last = begin + end;
+
+	    groups.add( "" + last.charAt( 0 ) + last.charAt( 1 ) );
+	    groups.add( "" + last.charAt( 2 ) + last.charAt( 3 ) );
+	}
+
+	String result = "";
+	for ( String s : groups ) {
+	    result += s + "-";
+	}
+
+	return result;
+    }
+}