Quick actions

cmd+k|ctrl+k

Navigation

Languages

Supply component?

Snippet info

Language

Raku

Visibility

public

Author

fernando-correa

Created

2020-04-29T07:25:20Z

Updated

2020-04-29T07:59:59Z

sub div-e-resto(Supply $divisor, Supply $dividendo) {
    my $zip = Supply.zip($divisor, $dividendo);
    (
        $zip.map(-> [$a, $b] { $a div $b }),
        $zip.map(-> [$a, $b] { $a % $b })
    )
}

my ($s1, $s2) = div-e-resto(Supply.from-list(10 .. 19), Supply.from-list(1 .. 10));

$s1.tap: -> $val { say "s1: $val" };
$s1.tap: -> $val { say "s2: $val" }
INFO