Challenge 140 Task 2 LK Perl

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-140/lubos-kolouch/perl/ch-2.pl b/challenge-140/lubos-kolouch/perl/ch-2.pl
new file mode 100644
index 0000000000..b4bddb72c0
--- /dev/null
+++ b/challenge-140/lubos-kolouch/perl/ch-2.pl
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+
+sub get_k_element {
+    my %what = @_;
+
+    my @result;
+    for my $i ( 1 .. $what{'i'} ) {
+        for my $j ( 1 .. $what{'j'} ) {
+            push @result, $i * $j;
+        }
+    }
+
+    @result = sort { $a cmp $b } @result;
+    return $result[ $what{'k'} - 1 ];
+
+}
+
+use Test::More;
+
+is( get_k_element( ( "i" => 2, "j" => 3, "k" => 4 ) ), 3 );
+is( get_k_element( ( "i" => 3, "j" => 3, "k" => 6 ) ), 4 );
+
+done_testing;