diff options
| -rwxr-xr-x | challenge-140/luca-ferrari/raku/ch-2.p6 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-140/luca-ferrari/raku/ch-2.p6 b/challenge-140/luca-ferrari/raku/ch-2.p6 new file mode 100755 index 0000000000..3e4ce47e1a --- /dev/null +++ b/challenge-140/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,9 @@ +#!raku + +sub MAIN( Int $i where { $i > 0 }, + Int $j where { $j > 0 }, + Int $k where { $k > 0 && $k < $i * $j } ) { + + my @table = ( 1 .. $i ) X[*] ( 1 .. $j ); + @table.sort[ $k ].say; +} |
