30 lines
523 B
Text
30 lines
523 B
Text
FUSCMAX = 20000000
|
|
len fusc[] FUSCMAX + 1
|
|
#
|
|
fastproc fill .
|
|
fusc[1] = 1
|
|
for n = 2 to FUSCMAX
|
|
if n mod 2 = 0
|
|
fusc[n] = fusc[n / 2]
|
|
else
|
|
fusc[n] = fusc[(n - 1) / 2] + fusc[(n + 1) / 2]
|
|
.
|
|
.
|
|
.
|
|
fill
|
|
write "0 "
|
|
for n = 1 to 60 : write fusc[n] & " "
|
|
print ""
|
|
print ""
|
|
start = 1
|
|
print "fusc[0] = 0"
|
|
for i = 1 to 5
|
|
val = floor pow 10 i
|
|
for j = start to FUSCMAX
|
|
if fusc[j] > val
|
|
print "fusc[" & j & "] = " & fusc[j]
|
|
start = j
|
|
break 1
|
|
.
|
|
.
|
|
.
|