Semiprime: Difference between revisions

m
m (→‎{{header|Wren}}: Changed to Wren S/H)
 
Line 1,161:
 
=={{header|EasyLang}}==
<syntaxhighlight lang=easylang>
{{trans|FreeBASIC}}
fastfunc factor num .
<syntaxhighlight lang=easylang>
i = else2
func semiprime n .
awhile i <= 2sqrt num
while c < 3if andnum nmod >i 1= 0
if n mod areturn = 0i
n /= a
c += 1
else
a += 1
.
i n /+= a1
.
return 1
.
func semiprime n .
f1 = factor n
if f1 c += 1
return 0
.
if cf2 = 2n div f1
if factor f1 = 1 and factor f2 = 1
return 1
.
return 0
.
for i = 1 to 1001000
if semiprime i = 1
write i & " "
2,022

edits