Sequence of primes by trial division: Difference between revisions
Content added Content deleted
(Added solution for EDSAC.) |
(Added solution for Action!) |
||
Line 43: | Line 43: | ||
<pre> |
<pre> |
||
[2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97] |
[2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97] |
||
</pre> |
|||
=={{header|Action!}}== |
|||
<lang Action!>BYTE FUNC IsPrime(CARD a) |
|||
CARD i |
|||
IF a<=1 THEN |
|||
RETURN (0) |
|||
FI |
|||
FOR i=2 TO a/2 |
|||
DO |
|||
IF a MOD i=0 THEN |
|||
RETURN (0) |
|||
FI |
|||
OD |
|||
RETURN (1) |
|||
PROC PrintPrimes(CARD begin,end) |
|||
BYTE notFirst |
|||
CARD i |
|||
notFirst=0 |
|||
FOR i=begin TO end |
|||
DO |
|||
IF IsPrime(i) THEN |
|||
IF notFirst THEN |
|||
Print(", ") |
|||
FI |
|||
notFirst=1 |
|||
PrintC(i) |
|||
FI |
|||
OD |
|||
RETURN |
|||
PROC Main() |
|||
CARD begin=[2000],end=[3000] |
|||
PrintF("Primes in range [%U..%U]:%E",begin,end) |
|||
PrintPrimes(begin,end) |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Sequence_of_primes_by_trial_division.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
Primes in range [2000..3000]: |
|||
2003, 2011, 2017, 2027, 2029, 2039, 2053, 2063, 2069, 2081, 2083, 2087, 2089, 2099, 2111, 2113, 2129, 2131, 2137, |
|||
2141, 2143, 2153, 2161, 2179, 2203, 2207, 2213, 2221, 2237, 2239, 2243, 2251, 2267, 2269, 2273, 2281, 2287, 2293, |
|||
2297, 2309, 2311, 2333, 2339, 2341, 2347, 2351, 2357, 2371, 2377, 2381, 2383, 2389, 2393, 2399, 2411, 2417, 2423, |
|||
2437, 2441, 2447, 2459, 2467, 2473, 2477, 2503, 2521, 2531, 2539, 2543, 2549, 2551, 2557, 2579, 2591, 2593, 2609, |
|||
2617, 2621, 2633, 2647, 2657, 2659, 2663, 2671, 2677, 2683, 2687, 2689, 2693, 2699, 2707, 2711, 2713, 2719, 2729, |
|||
2731, 2741, 2749, 2753, 2767, 2777, 2789, 2791, 2797, 2801, 2803, 2819, 2833, 2837, 2843, 2851, 2857, 2861, 2879, |
|||
2887, 2897, 2903, 2909, 2917, 2927, 2939, 2953, 2957, 2963, 2969, 2971, 2999 |
|||
</pre> |
</pre> |
||