Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-277/luca-ferrari/pljava/src/main/java/Task1.java b/challenge-277/luca-ferrari/pljava/src/main/java/Task1.java
new file mode 100644
index 0000000000..157decedd7
--- /dev/null
+++ b/challenge-277/luca-ferrari/pljava/src/main/java/Task1.java
@@ -0,0 +1,27 @@
+public static int task1_pljava( String[] words1, String[] words2 ) throws SQLException {
+    logger.log( Level.INFO, "Entering pwc277.task1_pljava" );
+
+    final Map<String, Integer[]> counting = new HashMap<String, Integer[]>();
+
+    Stream.of( words1 ).forEach( current -> {
+    	Integer[] count = { 0, 0 };
+    	counting.putIfAbsent( current, count );
+    	count = counting.get( current );
+    	count[ 0 ]++;
+    	counting.put( current, count );
+    } );
+
+
+    Stream.of( words2 ).forEach( current -> {
+    	Integer[] count = { 0, 0 };
+    	counting.putIfAbsent( current, count );
+    	count = counting.get( current );
+    	count[ 1 ]++;
+    	counting.put( current, count );
+    } );
+
+    return (int) counting.entrySet().stream().filter( current -> {
+    	Integer[] count = current.getValue();
+    	return count[ 0 ] == count[ 1 ] && count[ 0 ] == 1;
+    } ).count();
+}