Primes whose first and last number is 3: Difference between revisions
Primes whose first and last number is 3 (view source)
Revision as of 19:58, 24 May 2024
, 29 days agoAdded Easylang
m (→{{header|Wren}}: Minor tidy) |
(Added Easylang) |
||
Line 379:
</pre>
=={{header|EasyLang}}==
<syntaxhighlight>
fastfunc isprim num .
i = 2
while i <= sqrt num
if num mod i = 0
return 0
.
i += 1
.
return 1
.
fastfunc nextprim prim .
repeat
prim += 1
until isprim prim = 1
.
return prim
.
func digok n .
f = n mod 10
while n > 0
l = n mod 10
n = n div 10
.
return if f = 3 and l = 3
.
p = 2
repeat
p = nextprim p
if digok p = 1
write p & " "
.
until p >= 4000
.
</syntaxhighlight>
{{out}}
<pre>
3 313 353 373 383 3023 3083 3163 3203 3253 3313 3323 3343 3373 3413 3433 3463 3533 3583 3593 3613 3623 3643 3673 3733 3793 3803 3823 3833 3853 3863 3923 3943
</pre>
=={{header|F_Sharp|F#}}==
| |||