7 lines
123 B
Raku
7 lines
123 B
Raku
sub VdC($base = 2) {
|
|
map {
|
|
[+] $_ && .polymod($base xx *) Z/ [\*] $base xx *
|
|
}, ^Inf
|
|
}
|
|
|
|
.say for VdC[^10];
|