challenge-088/colin-crain/raku/ch-1.raku


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

#!/usr/bin/env perl6
#
#
#       .raku
#
#
#
#       2020 colin crain
## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##


unit sub MAIN (*@input) ;
@input.elems == 0 and @input = 5, 2, 1, 4, 3;

my $product = [*] @input;
my @output = @input.map: {$product/$_};

say @input;
say @output;