[Perl 6] Returning multiple values.

Perl 6 |

0 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

sub divmod(Int $a, Int $b) {
    $a div $b, $a mod $b;
}
 
my ($a, $b) = divmod(5, 3);
$a == 1 or die "Wrong value";
$b == 2 or die "Wrong value";

Comments