diff options
| -rw-r--r-- | challenge-056/wanderdoc/perl/ch-1.pl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/challenge-056/wanderdoc/perl/ch-1.pl b/challenge-056/wanderdoc/perl/ch-1.pl new file mode 100644 index 0000000000..b446b6e76d --- /dev/null +++ b/challenge-056/wanderdoc/perl/ch-1.pl @@ -0,0 +1,28 @@ +#!perl +use strict; +use warnings FATAL => qw(all); + +=prompt +You are given an array @N of positive integers (sorted) and another non negative integer k. +Write a script to find if there exists 2 indices i and j such that A[i] - A[j] = k and i != j. +It should print the pairs of indices, if any such pairs exist. +Example: + @N = (2, 7, 9) + $k = 2 +Output : 2,1 + +=cut + + +my @N = (0 .. 9); # (2, 7, 9); +my $k = shift || 2; + +for my $j ( 0 .. $#N ) +{ + for my $i ( $j .. $#N ) + { + next if $i == $j; + print join(", ", $i, $j), $/ if $k == $N[$i] - $N[$j]; + + } +}
\ No newline at end of file |