langs a-z
This commit is contained in:
parent
db842d013d
commit
d066446780
11389 changed files with 98361 additions and 1020 deletions
9
Task/Arithmetic-Integer/Perl-6/arithmetic-integer.pl6
Normal file
9
Task/Arithmetic-Integer/Perl-6/arithmetic-integer.pl6
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
my Int $a = floor $*IN.get;
|
||||
my Int $b = floor $*IN.get;
|
||||
|
||||
say 'sum: ', $a + $b;
|
||||
say 'difference: ', $a - $b;
|
||||
say 'product: ', $a * $b;
|
||||
say 'integer quotient: ', $a div $b;
|
||||
say 'remainder: ', $a % $b;
|
||||
say 'exponentiation: ', $a**$b;
|
||||
Loading…
Add table
Add a link
Reference in a new issue