diff options
| -rw-r--r-- | challenge-140/alexander-pankoff/perl/ch-2.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/challenge-140/alexander-pankoff/perl/ch-2.pl b/challenge-140/alexander-pankoff/perl/ch-2.pl index b0cb877ed5..5b663dae91 100644 --- a/challenge-140/alexander-pankoff/perl/ch-2.pl +++ b/challenge-140/alexander-pankoff/perl/ch-2.pl @@ -12,6 +12,12 @@ sub run() { my $j = prompt_for_integer('j'); my $k = prompt_for_integer('k'); + my $max = $i * $j; + + if ( $k > $max ) { + die "Index 'k' ($k) is larger than the table. Max: $max\n"; + } + my $matrix = multiplication_matrix( $i, $j ); my @sorted_matrix = sort_multiplication_matrix($matrix); my $res = $sorted_matrix[ $k - 1 ]; |