Euclid-Mullin sequence: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
Line 83: | Line 83: | ||
=={{header|Craft Basic}}== |
=={{header|Craft Basic}}== |
||
<syntaxhighlight lang="basic">define size = 16, em = 0 |
<syntaxhighlight lang="basic">define size = 16, em = 0 |
||
dim list[size] |
dim list[size] |
||
Line 89: | Line 88: | ||
print 2 |
print 2 |
||
for i = 1 to 15 |
|||
do |
|||
let k = 3 |
let k = 3 |
||
Line 98: | Line 95: | ||
let em = 1 |
let em = 1 |
||
let j = 0 |
|||
⚫ | |||
do |
|||
let em = ( em * list[j] ) % k |
let em = ( em * list[j] ) % k |
||
⚫ | |||
next j |
|||
let em = ( em + 1 ) % k |
let em = ( em + 1 ) % k |
||
Line 123: | Line 118: | ||
loop |
loop |
||
next i |
|||
let i = i + 1 |
|||
print "done." |
|||
loop i < 15 |
|||
end</syntaxhighlight> |
end</syntaxhighlight> |