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

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-277/luca-ferrari/pljava/src/main/java/Task2.java b/challenge-277/luca-ferrari/pljava/src/main/java/Task2.java
new file mode 100644
index 0000000000..87c0dde2d0
--- /dev/null
+++ b/challenge-277/luca-ferrari/pljava/src/main/java/Task2.java
@@ -0,0 +1,15 @@
+public static final int task2_pljava( int[] numbers ) throws SQLException {
+    logger.log( Level.INFO, "Entering pwc277.task2_pljava" );
+
+    final int[] c = new int[]{ 0 };
+    IntStream.range( 0, numbers.length - 1 )
+        .forEach( i -> {
+    	    c[ 0 ] += IntStream.range( i + 1, numbers.length )
+    		.filter( j -> {
+    			return numbers[ i ] != numbers[ j ]
+    			    && Math.abs( numbers[ i ] - numbers[ j ] ) < Math.min( numbers[ i ], numbers[ j ] );
+    		    } ).count();
+    	} );
+
+    return c[ 0 ];
+}