challenge-140/arne-sommer/raku/multab2


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#! /usr/bin/env raku

subset PosInt of Int where $_ > 0;

unit sub MAIN (PosInt $i, PosInt $j, PosInt $k where 1 <= $k <= $i * $j, :v(:$verbose));

my @result;

for 1 .. $i -> $ii
{
  for 1 .. $j -> $jj
  {
    @result.push: $ii * $jj;
  }
}

my @sorted = @result.sort;

say ": Sorted: @sorted[]" if $verbose;

say @sorted[$k -1];