6 lines
181 B
Text
6 lines
181 B
Text
procedure vdc(n, base)
|
|
s1 := create |((0 < 1(.n, n /:= base)) % base)
|
|
s2 := create 2(e := 1.0, |(e *:= base))
|
|
every (result := 0) +:= |s1() / s2()
|
|
return result
|
|
end
|