Strange plus numbers: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 377: | Line 377: | ||
389 411 412 414 416 430 432 434 438 470 |
389 411 412 414 416 430 432 434 438 470 |
||
474 476 492 494 498</pre> |
474 476 492 494 498</pre> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">strangeNums: select 101..499 'x -> |
|||
and? -> prime? sum first.n:2 digits x |
|||
-> prime? sum last.n:2 digits x |
|||
loop split.every: 5 strangeNums 'x -> |
|||
print map x 's -> pad to :string s 3</syntaxhighlight> |
|||
{{out}} |
|||
<pre>111 112 114 116 120 |
|||
121 123 125 129 141 |
|||
143 147 149 161 165 |
|||
167 202 203 205 207 |
|||
211 212 214 216 230 |
|||
232 234 238 250 252 |
|||
256 258 292 294 298 |
|||
302 303 305 307 320 |
|||
321 323 325 329 341 |
|||
343 347 349 383 385 |
|||
389 411 412 414 416 |
|||
430 432 434 438 470 |
|||
474 476 492 494 498</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<syntaxhighlight lang="awk"> |
<syntaxhighlight lang="awk"> |