Ludic numbers: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 637: | Line 637: | ||
Triplets < 250: |
Triplets < 250: |
||
{1, 3, 7}, {5, 7, 11}, {11, 13, 17}, {23, 25, 29}, {41, 43, 47}, {173, 175, 179}, {221, 223, 227}, {233, 235, 239}"</lang> |
{1, 3, 7}, {5, 7, 11}, {11, 13, 17}, {23, 25, 29}, {41, 43, 47}, {173, 175, 179}, {221, 223, 227}, {233, 235, 239}"</lang> |
||
=={{header|Arturo}}== |
|||
<lang rebol> |
|||
ludicGen: function [nmax][ |
|||
result: [1] |
|||
lst: new 2..nmax+1 |
|||
i: 0 |
|||
worked: false |
|||
while [and? [not? empty? lst] [i < size lst]][ |
|||
item: lst\[i] |
|||
result: result ++ item |
|||
del: 0 |
|||
worked: false |
|||
while [del < size lst][ |
|||
worked: true |
|||
remove 'lst .index del |
|||
del: dec del + item |
|||
] |
|||
if not? worked -> i: i + 1 |
|||
] |
|||
return result |
|||
] |
|||
ludics: ludicGen 25000 |
|||
print "The first 25 ludic numbers:" |
|||
print first.n: 25 ludics |
|||
leThan1000: select ludics => [& =< 1000] |
|||
print ["\nThere are" size leThan1000 "ludic numbers less than/or equal to 1000\n"] |
|||
print ["The ludic numbers from 2000th to 2005th are:" slice ludics 1999 2004 "\n"] |
|||
print "The triplets of ludic numbers less than 250 are:" |
|||
print map select ludics 'x [ |
|||
all? @[ x < 250 |
|||
contains? ludics x+2 |
|||
contains? ludics x+6 |
|||
] |
|||
] 't -> @[t, t+2, t+6]</lang> |
|||
{{out}} |
|||
<pre>The first 25 ludic numbers: |
|||
1 2 3 5 7 11 13 17 23 25 29 37 41 43 47 53 61 67 71 77 83 89 91 97 107 |
|||
There are 142 ludic numbers less than/or equal to 1000 |
|||
The ludic numbers from 2000th to 2005th are: [21475 21481 21487 21493 21503 21511] |
|||
The triplets of ludic numbers less than 250 are: |
|||
[1 3 7] [5 7 11] [11 13 17] [23 25 29] [41 43 47] [173 175 179] [221 223 227] [233 235 239]</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |