20 lines
470 B
Plaintext
20 lines
470 B
Plaintext
vdc(n, base):= makelist(
|
|
digits2dec(
|
|
dec2digits(k, base),
|
|
1/base) / base,
|
|
k, n);
|
|
|
|
vdc(10, 2);
|
|
/*
|
|
1 1 3 1 5 3 7 1 9 5
|
|
(%o123) [-, -, -, -, -, -, -, --, --, --]
|
|
2 4 4 8 8 8 8 16 16 16
|
|
*/
|
|
|
|
vdc(10, 5);
|
|
/*
|
|
1 2 3 4 1 6 11 16 21 2
|
|
(%o124) [-, -, -, -, --, --, --, --, --, --]
|
|
5 5 5 5 25 25 25 25 25 25
|
|
*/
|