19 lines
351 B
Plaintext
19 lines
351 B
Plaintext
local fn BellNumbers( limit as long )
|
|
long j, n = 1
|
|
|
|
mda(0) = 1
|
|
printf @"%2llu. %19llu", n, mda_integer(0)
|
|
while ( n < limit )
|
|
mda(n) = mda(0)
|
|
for j = n to 1 step -1
|
|
mda(j - 1) = mda_integer(j - 1) + mda_integer(j)
|
|
next
|
|
n++
|
|
printf @"%2llu. %19llu", n, mda_integer(0)
|
|
wend
|
|
end fn
|
|
|
|
fn BellNumbers( 25 )
|
|
|
|
HandleEvents
|