From 350f79e0e32e3cf4fe60ca54378e9fe4e3feeab2 Mon Sep 17 00:00:00 2001 From: Alexander Pankoff Date: Fri, 26 Nov 2021 18:40:06 +0100 Subject: Check for to large 'k' values --- challenge-140/alexander-pankoff/perl/ch-2.pl | 6 ++++++ 1 file changed, 6 insertions(+) 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 ]; -- cgit