Ludic numbers: Difference between revisions
no edit summary
(Added JavaScript) |
No edit summary |
||
Line 3,069:
From 1──►249, 8 triples found: ◄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|Ring}}==
<lang ring>
# Project : Ludic numbers
# Date : 2017/11/07
# Author : Gal Zsolt [~ CalmoSoft ~]
# Email : <calmosoft@gmail.com>
ludic = list(300)
resludic = []
nr = 1
for n = 1 to len(ludic)
ludic[n] = n+1
next
see "the first 25 Ludic numbers are:" + nl
ludicnumbers(ludic)
showarray(resludic)
see nl
see "Ludic numbers below 1000: "
ludic = list(3000)
resludic = []
for n = 1 to len(ludic)
ludic[n] = n+1
next
ludicnumbers(ludic)
showarray2(resludic)
see nr
see nl + nl
see "the 2000..2005th ludic numbers are:" + nl
ludic = list(60000)
resludic = []
for n = 1 to len(ludic)
ludic[n] = n+1
next
ludicnumbers(ludic)
showarray3(resludic)
func ludicnumbers(ludic)
for n = 1 to len(ludic)
delludic = []
for m = 1 to len(ludic) step ludic[1]
add(delludic, m)
next
add(resludic, ludic[1])
for p = len(delludic) to 1 step -1
del(ludic, delludic[p])
next
next
func showarray(vect)
see "[1, "
svect = ""
for n = 1 to 24
svect = svect + vect[n] + ", "
next
svect = left(svect, len(svect) - 2)
see svect
see "]" + nl
func showarray2(vect)
for n = 1 to len(vect)
if vect[n] <= 1000
nr = nr + 1
ok
next
return nr
func showarray3(vect)
see "["
svect = ""
for n = 1999 to 2004
svect = svect + vect[n] + ", "
next
svect = left(svect, len(svect) - 2)
see svect
see "]" + nl
</lang>
Output:
<pre>
the first 25 Ludic numbers are:
[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]
Ludic numbers below 1000: 142
the 2000..2005th ludic numbers are:
[21475, 21481, 21487, 21493, 21503, 21511]
</pre>
| |||