!YS-v0
defn main(b):
each n range(10):
say:
format '%.6f':
vdc: n b
defn vdc(n b):
loop n n, d 1, vdc 0.0:
if n > 0:
then:
d *=: b
r =: n % b
n .=: quot(b)
vdc +=: r / d
recur: n, d, vdc
else: vdc