Euclid-Mullin sequence: Difference between revisions
→{{header|AWK}}
(Added Algol 68) |
Basicgames (talk | contribs) |
||
Line 80:
2 3 7 43 13 53 5 6221671
</pre>
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">define size = 16, em = 0
dim list[size]
let list[0] = 2
print 2
let i = 1
do
let k = 3
do
let em = 1
let j = 0
do
let em = ( em * list[j] ) % k
let j = j + 1
loop j < i
let em = ( em + 1 ) % k
if em = 0 then
let list[i] = k
print list[i]
break
endif
let k = k + 2
wait
loop
let i = i + 1
loop i < 15
end</syntaxhighlight>
=={{header|F_Sharp|F#}}==
| |||