Added ch-1.pl ch-1.raku

2 files changed, 41 insertions, 0 deletions

diff --git a/challenge-056/ruben-westerberg/perl/ch-1.pl b/challenge-056/ruben-westerberg/perl/ch-1.pl
new file mode 100755
index 0000000000..fdeb71c629
--- /dev/null
+++ b/challenge-056/ruben-westerberg/perl/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature ":all";
+no warnings "experimental";
+my $max=10;
+my @N= sort map { int rand $max } 1..$max;
+my $k=2;
+
+say "Input Array:";
+say join ", ", @N;
+
+my @results;
+
+for (my $i=0; $i<@N; $i++) {
+	for (my $j=0; $j<@N; $j++) {
+		push @results,[$i,$j] if $N[$i]-$N[$j] == $k and $i != $j;
+	}
+}
+say "Index pairs for difference of $k:";
+printf("%d, %d\n",$_->[0],$_->[1]) for @results;
+
diff --git a/challenge-056/ruben-westerberg/raku/ch-1.raku b/challenge-056/ruben-westerberg/raku/ch-1.raku
new file mode 100755
index 0000000000..90fa1bbc3e
--- /dev/null
+++ b/challenge-056/ruben-westerberg/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+my $max=10;
+my @N= $max.rand().Int xx $max; #sort map { int rand $max } 1..$max;
+my $k=2;
+
+say "Input Array:";
+put @N.join: ", ";
+
+my @results;
+
+loop (my $i=0; $i < @N; $i++) {
+	loop (my $j=0; $j < @N; $j++) {
+		@results.push: [$i,$j] if @N[$i]-@N[$j] == $k and $i != $j;
+	}
+}
+put "Index pairs for difference of $k:";
+printf("%d, %d\n",$_[0],$_[1]) for @results;
+