Ludic numbers: Difference between revisions

--- forces the first element (initial[1]) of the initial array into ludic_numbers

--- before deleting it and all multiples of initial[1]it

s_array: ARRAY[INTEGER]

i,k: INTEGER

k, count: INTEGER

create ludic.make(22000)

across ludic.ludic_numbers.subarray (1, 25) as ld loop io.put_string (ld.item.out + "%N") end

across ludic.ludic_numbers.subarray (2000, 2005) as ld loop io.put_string (ld.item.out + "%N") end

io.put_string ("%NNumber of Ludic numbers smaller than 1000. %N")

from

k:= 1

until

ludic.ludic_numbers[k]>= 1000

loop

k:= k +1

count:= count+1

end