The sieve of Sundaram: Difference between revisions
m
→{{header|Amazing Hopper}}
No edit summary |
|||
Line 147:
=={{header|Amazing Hopper}}==
{{trans|C}}
<syntaxhighlight lang="Amazing Hopper">
#include <jambo.h>
Line 153 ⟶ 154:
Set break
tiempo inicio = 0, tiempo final = 0
Tic( tiempo inicio )▼
nprimes=1000000, nmax=0
Line 168:
sumando = 0, factor = 0
end subloop=0
▲ Tic( tiempo inicio )
Loop
/* calculo las secuencias para las posiciones; ocupa la memoria creada para la primera secuencia,
es mucho, pero si lo hago con ciclos, el loop termina dentro de 6 minutos :D */
Let ( end subloop := {k} Minus 'i', {i} Mul by '2' Plus '1', Div it )
Sequence( pos inicial sumando, 1, end subloop, sumando )
Line 189 ⟶ 190:
++i
While ( Less equal ( Mul( Mul( Plus one (i),i ),2), k ) )
Toc( tiempo inicio, tiempo final )▼
/* Visualización de los primeros 100 primos.
como lo hace la versión de "C", pero me gusta disparar moscas con un rifle */
Cls
ta=0, Compact 'a', Move to 'a' // elimino los ceros = compacto array
Line 199 ⟶ 202:
/* imprimo el primo número "nprimes" */
Print( nprimes, " th Sundaram prime is ", [ nprimes ] Get 'a', "\n" )
▲ Toc( tiempo inicio, tiempo final )
Printnl( "Time = ", tiempo final, " segs" )
End
Line 216 ⟶ 218:
479 487 491 499 503 509 521 523 541 547
1000000 th Sundaram prime is 15485867
Time =
/* Sí, mi lenguaje es lento para algunas cosas... */
| |||