Frobenius numbers: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) m (Fix Python solution) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 20: | Line 20: | ||
</big> |
</big> |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
{{trans|Python}} |
|||
<lang 11l>F isPrime(v) |
|||
I v <= 1 |
|||
R 0B |
|||
I v < 4 |
|||
R 1B |
|||
I v % 2 == 0 |
|||
R 0B |
|||
I v < 9 |
|||
R 1B |
|||
I v % 3 == 0 |
|||
R 0B |
|||
E |
|||
V r = round(pow(v, 0.5)) |
|||
V f = 5 |
|||
L f <= r |
|||
I v % f == 0 | v % (f + 2) == 0 |
|||
R 0B |
|||
f += 6 |
|||
R 1B |
|||
V pn = 2 |
|||
V n = 0 |
|||
L(i) (3..).step(2) |
|||
I isPrime(i) |
|||
n++ |
|||
V f = (pn * i) - pn - i |
|||
I f > 10000 |
|||
L.break |
|||
print(nā => āf) |
|||
pn = i</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 => 1 |
|||
2 => 7 |
|||
3 => 23 |
|||
4 => 59 |
|||
5 => 119 |
|||
6 => 191 |
|||
7 => 287 |
|||
8 => 395 |
|||
9 => 615 |
|||
10 => 839 |
|||
11 => 1079 |
|||
12 => 1439 |
|||
13 => 1679 |
|||
14 => 1931 |
|||
15 => 2391 |
|||
16 => 3015 |
|||
17 => 3479 |
|||
18 => 3959 |
|||
19 => 4619 |
|||
20 => 5039 |
|||
21 => 5615 |
|||
22 => 6395 |
|||
23 => 7215 |
|||
24 => 8447 |
|||
25 => 9599 |
|||
</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||
Line 55: | Line 118: | ||
1 7 23 59 119 191 287 395 615 839 1079 1439 1679 1931 2391 3015 3479 3959 4619 5039 5615 6395 7215 8447 9599 |
1 7 23 59 119 191 287 395 615 839 1079 1439 1679 1931 2391 3015 3479 3959 4619 5039 5615 6395 7215 8447 9599 |
||
</pre> |
</pre> |
||
=={{header|APL}}== |
=={{header|APL}}== |
||
{{works with|Dyalog APL}} |
{{works with|Dyalog APL}} |