RosettaCodeData/Task/Van-der-Corput-sequence/Perl-6/van-der-corput-sequence-4.pl6

sub vdc($value, $base = 2) {
    my @values = $value, { $_ div $base } ... 0;
    my @denoms = $base,  { $_  *  $base } ... *;
    [+] do for (flat @values Z @denoms) -> $v, $d {
        $v mod $base / $d;
    }
}