-- инициализация -----------------------------------
 
Array = {1,2," три ",4,5," шесть ",7,8,9}
 
-- свойство таблицы --------------------------------
 
function Array:EnumeratorEven(Idx)
  return Idx*2 > #self and nil or Idx*2
end	
 
-- печать таблицы по определенному свойству  -------
 
function PrintEven(Container)
  local I,R = 0,''
  repeat
    I = I + 1	
    local T = Array[Array:EnumeratorEven(I)]
    if T then R = R .. T else break end
  until (false)
  print("Res: " .. R)	
end	
 
-- точка начала исполнения -------------------------
 
PrintEven(Array)
 
 

LS0g0LjQvdC40YbQuNCw0LvQuNC30LDRhtC40Y8gLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KCkFycmF5ID0gezEsMiwiINGC0YDQuCAiLDQsNSwiINGI0LXRgdGC0YwgIiw3LDgsOX0KCi0tINGB0LLQvtC50YHRgtCy0L4g0YLQsNCx0LvQuNGG0YsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KCmZ1bmN0aW9uIEFycmF5OkVudW1lcmF0b3JFdmVuKElkeCkKICByZXR1cm4gSWR4KjIgPiAjc2VsZiBhbmQgbmlsIG9yIElkeCoyCmVuZAkKCi0tINC/0LXRh9Cw0YLRjCDRgtCw0LHQu9C40YbRiyDQv9C+INC+0L/RgNC10LTQtdC70LXQvdC90L7QvNGDINGB0LLQvtC50YHRgtCy0YMgIC0tLS0tLS0KCmZ1bmN0aW9uIFByaW50RXZlbihDb250YWluZXIpCiAgbG9jYWwgSSxSID0gMCwnJwogIHJlcGVhdAogICAgSSA9IEkgKyAxCQogICAgbG9jYWwgVCA9IEFycmF5W0FycmF5OkVudW1lcmF0b3JFdmVuKEkpXQogICAgaWYgVCB0aGVuIFIgPSBSIC4uIFQgZWxzZSBicmVhayBlbmQKICB1bnRpbCAoZmFsc2UpCiAgcHJpbnQoIlJlczogIiAuLiBSKQkKZW5kCQoKLS0g0YLQvtGH0LrQsCDQvdCw0YfQsNC70LAg0LjRgdC/0L7Qu9C90LXQvdC40Y8gLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQoKUHJpbnRFdmVuKEFycmF5KQoK