32 lines
500 B
Plaintext
32 lines
500 B
Plaintext
FUSCMAX = 20000000
|
|
len fusc[] FUSCMAX + 1
|
|
arrbase fusc[] 0
|
|
#
|
|
fusc[0] = 0
|
|
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]
|
|
.
|
|
.
|
|
for n = 0 to 60
|
|
write fusc[n] & " "
|
|
.
|
|
print ""
|
|
print ""
|
|
for i = 0 to 5
|
|
val = -1
|
|
if i <> 0
|
|
val = floor pow 10 i
|
|
.
|
|
for j = start to FUSCMAX
|
|
if fusc[j] > val
|
|
print "fusc[" & j & "] = " & fusc[j]
|
|
start = j
|
|
break 1
|
|
.
|
|
.
|
|
.
|