25 lines
414 B
Raku
25 lines
414 B
Raku
my @a =
|
|
[1,2,3],
|
|
[4,5,6],
|
|
[7,8,9];
|
|
|
|
sub msay(@x) {
|
|
for @x -> @row {
|
|
print ' ', $_%1 ?? $_.nude.join('/') !! $_ for @row;
|
|
say '';
|
|
}
|
|
say '';
|
|
}
|
|
|
|
msay @a «+» @a;
|
|
msay @a «-» @a;
|
|
msay @a «*» @a;
|
|
msay @a «/» @a;
|
|
msay @a «+» [1,2,3];
|
|
msay @a «-» [1,2,3];
|
|
msay @a «*» [1,2,3];
|
|
msay @a «/» [1,2,3];
|
|
msay @a «+» 2;
|
|
msay @a «-» 2;
|
|
msay @a «*» 2;
|
|
msay @a «/» 2;
|