diff options
| -rwxr-xr-x | challenge-056/ruben-westerberg/perl/ch-1.pl | 22 | ||||
| -rwxr-xr-x | challenge-056/ruben-westerberg/raku/ch-1.raku | 19 |
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; + |