Check for to large 'k' values

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 ];