20 lines
347 B
Text
20 lines
347 B
Text
|
decimals(4)
|
||
|
|
for base = 2 to 5
|
||
|
|
see "base " + string(base) + " : "
|
||
|
|
for number = 0 to 9
|
||
|
|
see "" + corput(number, base) + " "
|
||
|
|
next
|
||
|
|
see nl
|
||
|
|
next
|
||
|
|
|
||
|
|
func corput n, b
|
||
|
|
vdc = 0
|
||
|
|
denom = 1
|
||
|
|
while n
|
||
|
|
denom *= b
|
||
|
|
rem = n % b
|
||
|
|
n = floor(n/b)
|
||
|
|
vdc += rem / denom
|
||
|
|
end
|
||
|
|
return vdc
|