test/array.lua

   1 $debug
   2
   3 a = {}
   4
   5 local i=0
   6 while i<10 do
   7  a[i] = i*i
   8  i=i+1
   9 end
  10
  11 local r,v = next(a,nil)
  12 while r ~= nil do
  13  write ("array[",r,"] = ",v,"\n")
  14  r,v = next(a,r)
  15 end