7 lines
214 B
Raku
7 lines
214 B
Raku
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;
|
|
}
|
|
}
|