Iccanobif primes: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (added Arturo) |
|||
Line 70: | Line 70: | ||
2 3 5 31 43 773 7951 64901 52057 393121 |
2 3 5 31 43 773 7951 64901 52057 393121 |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">summarize: function [n :string][ |
|||
;; description: « returns a summary of a numeric string |
|||
s: size n |
|||
if s > 20 -> n: ((take n 10)++"...")++drop n s-10 |
|||
n ++ ~" (|s| digits)" |
|||
] |
|||
[a b count]: [0 1 0] |
|||
print "First 27 Iccanobif primes:" |
|||
while -> count < 27 [ |
|||
if prime? to :integer r: <= reverse ~"|a|" [ |
|||
print [pad ~"|count+1|" 2 "->" summarize r] |
|||
inc 'count |
|||
] |
|||
[a b]: @[b a+b] |
|||
]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>First 27 Iccanobif primes: |
|||
1 -> 2 (1 digits) |
|||
2 -> 3 (1 digits) |
|||
3 -> 5 (1 digits) |
|||
4 -> 31 (2 digits) |
|||
5 -> 43 (2 digits) |
|||
6 -> 773 (3 digits) |
|||
7 -> 7951 (4 digits) |
|||
8 -> 64901 (5 digits) |
|||
9 -> 52057 (5 digits) |
|||
10 -> 393121 (6 digits) |
|||
11 -> 56577108676171 (14 digits) |
|||
12 -> 9406476074...3258103531 (21 digits) |
|||
13 -> 5237879497...9575442761 (37 digits) |
|||
14 -> 9026258083...2307801963 (40 digits) |
|||
15 -> 1990033567...3266446403 (80 digits) |
|||
16 -> 7784113736...3685331923 (104 digits) |
|||
17 -> 3772258590...2830756131 (137 digits) |
|||
18 -> 7573619389...4714305761 (330 digits) |
|||
19 -> 1789033684...5235035913 (406 digits) |
|||
20 -> 9232716310...6047302507 (409 digits) |
|||
21 -> 5042015781...7362214481 (503 digits) |
|||
22 -> 3051101247...1330018201 (888 digits) |
|||
23 -> 4681854704...4645856321 (1020 digits) |
|||
24 -> 8710134785...8865227391 (1122 digits) |
|||
25 -> 1745165602...1843652461 (1911 digits) |
|||
26 -> 4898934056...4215909399 (1947 digits) |
|||
27 -> 1274692768...7994940101 (2283 digits)</pre> |
|||
=={{header|jq}}== |
=={{header|jq}}== |