Arithmetic numbers: Difference between revisions
→{{header|M2000 Interpreter}}
Line 1,144:
Write code in a module: From M2000 console: Edit a (press ender, then paste the code, press Esc, write a and press enter).
n=1361 run for 1s
n=12953 run for 10s
n=125587 run for 120.6s
n=1228663 run for 1369.4s
M2000 is an interpreter with no intermediate code generation.
<syntaxhighlight lang="m2000 interpreter">
Line 1,164 ⟶ 1,169:
dim l(2 to n)=1, m(2 to n)=1 : c++: Print 1,
for i=2 to n {for j=i to n step i {L(j)+=i:m(j)++}:if L(i) MOD m(i) = 0& then {IF m(i)>2 THEN D++
C++:IF C<=100& THEN print i,
}}
exit1:
| |||