36 lines
908 B
Plaintext
36 lines
908 B
Plaintext
redim as uinteger mian(0 to 1)
|
|
redim as uinteger sums(0 to 2)
|
|
mian(0) = 1 : mian(1) = 2
|
|
sums(0) = 2 : sums(1) = 3 : sums(2) = 4
|
|
dim as uinteger n_mc = 2, n_sm = 3, curr = 3, tempsum
|
|
while n_mc < 101
|
|
for i as uinteger = 0 to n_mc - 1
|
|
tempsum = curr + mian(i)
|
|
for j as uinteger = 0 to n_sm - 1
|
|
if tempsum = sums(j) then goto loopend
|
|
next j
|
|
next i
|
|
redim preserve as uinteger mian(0 to n_mc)
|
|
mian(n_mc) = curr
|
|
redim preserve as uinteger sums(0 to n_sm + n_mc)
|
|
for j as uinteger = 0 to n_mc - 1
|
|
sums(n_sm + j) = mian(j) + mian(n_mc)
|
|
next j
|
|
n_mc += 1
|
|
n_sm += n_mc
|
|
sums(n_sm-1) = 2*curr
|
|
loopend:
|
|
curr += 1
|
|
wend
|
|
|
|
print "Mian-Chowla numbers 1 through 30: ",
|
|
for i as uinteger = 0 to 29
|
|
print mian(i),
|
|
next i
|
|
print
|
|
print "Mian-Chowla numbers 91 through 100: ",
|
|
for i as uinteger = 90 to 99
|
|
print mian(i),
|
|
next i
|
|
print
|