54 lines
1.2 KiB
Plaintext
54 lines
1.2 KiB
Plaintext
see "working..." + nl
|
|
row = 3
|
|
num = 2
|
|
numbers = 1:51
|
|
first = 2
|
|
second = 3
|
|
see "Yellowstone numbers are:" + nl
|
|
see "1 " + first + " " + second + " "
|
|
|
|
for n = 4 to len(numbers)
|
|
flag1 = 1
|
|
flag2 = 1
|
|
if first < numbers[n]
|
|
min = first
|
|
else
|
|
min = numbers[n]
|
|
ok
|
|
for m = 2 to min
|
|
if first%m = 0 and numbers[n]%m = 0
|
|
flag1 = 0
|
|
exit
|
|
ok
|
|
next
|
|
if second < numbers[n]
|
|
min = second
|
|
else
|
|
min = numbers[n]
|
|
ok
|
|
for m = 2 to min
|
|
if second%m = 0 and numbers[n]%m = 0
|
|
flag2 = 0
|
|
exit
|
|
ok
|
|
next
|
|
if flag1 = 0 and flag2 = 1
|
|
see "" + numbers[n] + " "
|
|
first = second
|
|
second = numbers[n]
|
|
del(numbers,n)
|
|
row = row+1
|
|
if row%10 = 0
|
|
see nl
|
|
ok
|
|
num = num + 1
|
|
if num = 29
|
|
exit
|
|
ok
|
|
n = 3
|
|
ok
|
|
next
|
|
|
|
see "Found " + row + " Yellowstone numbers" + nl
|
|
see "done..." + nl
|