17 lines
316 B
Text
17 lines
316 B
Text
get "libhdr"
|
|
|
|
let digitsum(n,b) =
|
|
n < b -> n,
|
|
n rem b + digitsum(n/b, b)
|
|
|
|
let fairshare(n,b) =
|
|
digitsum(n,b) rem b
|
|
|
|
let start() be
|
|
$( let bs = table 2, 3, 5, 11
|
|
for bi = 0 to 3
|
|
$( writef("%I2:", bs!bi)
|
|
for n = 0 to 24 do writef("%I2 ", fairshare(n, bs!bi))
|
|
wrch('*N')
|
|
$)
|
|
$)
|