Ludic numbers: Difference between revisions
→{{header|Ring}}
No edit summary |
|||
Line 3,082:
nr = 1
for n = 1 to len(ludic)
ludic[n] = n+1
next
see "the first 25 Ludic numbers are:" + nl
Line 3,093:
resludic = []
for n = 1 to len(ludic)
ludic[n] = n+1
next
ludicnumbers(ludic)
Line 3,104:
resludic = []
for n = 1 to len(ludic)
ludic[n] = n+1
next
ludicnumbers(ludic)
Line 3,110:
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:
| |||