Mian-Chowla sequence: Difference between revisions
add freebasic
(Added Wren) |
(add freebasic) |
||
Line 578:
22526 23291 23564 23881 24596 24768 25631 26037 26255 27219
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>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</lang>
{{out}}
<pre>
Mian-Chowla numbers 1 through 30: 1 2 4 8 13 21 31 45
66 81 97 123 148 182 204 252 290 361 401
475 565 593 662 775 822 916 970 1016 1159 1312
Mian-Chowla numbers 91 through 100: 22526 23291 23564 23881 24596 24768 25631 26037 26255 27219</pre>
=={{header|Go}}==
| |||