Очереди и двойные очереди в луа

local M=1000--0000
local count1 = collectgarbage("count") -- получаем текущий размер памяти
print("начальный объем занятой памяти",count1);
--------------------------
local list=List.new()
for i=1, M do  
List.pushlast(list,i)
print('Вставил', i, 'элемент ',  collectgarbage("count") )

if i>10 then print( 'Удалил первого', List.popfirst(list) , type(list), #list, collectgarbage("count") ) 
--local countI = collectgarbage("count")
end
end
print("число элементов в очереди list после "..M.." циклов функции push="..#list)
local count1 = collectgarbage("count")
print("объем занятой памяти",count1);
--------------------------------
-- for i=1, M do  List.popfirst(list) end
 
print("число элементов в очереди list после "..M.." циклов pop="..#list)
local count1 = collectgarbage("count")
print("объем занятой памяти после сборщика мусора",count1);
collectgarbage("collect")
local count1 = collectgarbage("count") -- получаем текущий размер памяти
print("объем занятой памяти после pop",count1);
------------------------------
collectgarbage("collect") -- выполняем сбор мусора
local count2 = collectgarbage("count") -- получаем размер памяти после сбора
print("объем занятой памяти после сборщика мусора",count1);

начальный объем занятой памяти   35.4248046875
List.pushlast: ; number; ; list.last=0; number; list[last]=1
Вставил   1   элемент    27.283203125
List.pushlast: ; number; ; list.last=1; number; list[last]=2
Вставил   2   элемент    27.404296875
List.pushlast: ; number; ; list.last=2; number; list[last]=3
Вставил   3   элемент    27.556640625
List.pushlast: ; number; ; list.last=3; number; list[last]=4
Вставил   4   элемент    28.677734375
List.pushlast: ; number; ; list.last=4; number; list[last]=5
Вставил   5   элемент    28.830078125
List.pushlast: ; number; ; list.last=5; number; list[last]=6
Вставил   6   элемент    28.951171875
List.pushlast: ; number; ; list.last=6; number; list[last]=7
Вставил   7   элемент    29.134765625
List.pushlast: ; number; ; list.last=7; number; list[last]=8
Вставил   8   элемент    29.255859375
List.pushlast: ; number; ; list.last=8; number; list[last]=9
Вставил   9   элемент    29.376953125
List.pushlast: ; number; ; list.last=9; number; list[last]=10
Вставил   10   элемент    29.5009765625
List.pushlast: ; number; ; list.last=10; number; list[last]=11
Вставил   11   элемент    29.751953125
Удалил первого   1   table   10   29.7802734375
List.pushlast: ; number; ; list.last=11; number; list[last]=12
Вставил   12   элемент    29.9052734375
Удалил первого   2   table   11   29.9345703125
List.pushlast: ; number; ; list.last=12; number; list[last]=13
Вставил   13   элемент    30.0595703125
Удалил первого   3   table   12   30.0888671875
......
Удалил первого   989   table   0   56.8974609375
List.pushlast: ; number; ; list.last=999; number; list[last]=1000
Вставил   1000   элемент    57.0283203125
Удалил первого   990   table   0   57.0576171875

число элементов в очереди list после 1000 циклов функции push=0
объем занятой памяти   57.1650390625
число элементов в очереди list после 1000 циклов pop=0
объем занятой памяти после сборщика мусора   57.263671875
объем занятой памяти после pop   28.4912109375
объем занятой памяти после сборщика мусора   28.4912109375

local list=List.new()
local length=10; local M=1000--00--00
print("объем начального массива", M, "Кол. элементов в созданном length=",length);
local count1 = collectgarbage("count") -- получаем текущий размер памяти
------------------------------ LIFO
for i=1, M do 
 
print(i, ')','Начальные индексы', 'list.first =', list.first, '; list.last =', list.last )

List.pushlast(list,i)
print(i, ')','Вставил', 'index list.last =', list.last,'; присвоил значение элементa =',list[list.last], '(',collectgarbage("count"),')' )

if i>length then 
List.popfirst(list)
print( i, 'Операция - Удаление первого:', ')', 'присвоил индекс первоve элементу =', list.first, 'вернул значение первого элементa =', list[list.first] ,'(',collectgarbage("count"),')' ) --, list.first
end

end
print("LIFO (вариант реализации стека с помощью двусторонней очереди.) ----------------------");
print("начальный объем занятой памяти",count1);

print("число элементов в LIFO list после "..(M).." циклов функции рор=" ..(list.last-list.first))
local countOUT = collectgarbage("count")
print("объем занятой памяти",countOUT);
--------------------------------
collectgarbage("collect")
print("объем занятой памяти после сборщика мусора",collectgarbage("count"));

объем начального массива   1000   Кол. элементов в созданом length=   10
1   )   Начальные индексы   list.first =   0   ; list.last =   0
1   )   Вставил   index list.last =   1   ; присвоил значение элементa =   1   (   27.3759765625   )
2   )   Начальные индексы   list.first =   0   ; list.last =   1
2   )   Вставил   index list.last =   2   ; присвоил значение элементa =   2   (   28.4384765625   )
3   )   Начальные индексы   list.first =   0   ; list.last =   2
3   )   Вставил   index list.last =   3   ; присвоил значение элементa =   3   (   28.5166015625   )
4   )   Начальные индексы   list.first =   0   ; list.last =   3
4   )   Вставил   index list.last =   4   ; присвоил значение элементa =   4   (   28.5634765625   )
5   )   Начальные индексы   list.first =   0   ; list.last =   4
5   )   Вставил   index list.last =   5   ; присвоил значение элементa =   5   (   28.6728515625   )
6   )   Начальные индексы   list.first =   0   ; list.last =   5
6   )   Вставил   index list.last =   6   ; присвоил значение элементa =   6   (   28.7197265625   )
7   )   Начальные индексы   list.first =   0   ; list.last =   6
7   )   Вставил   index list.last =   7   ; присвоил значение элементa =   7   (   28.7666015625   )
8   )   Начальные индексы   list.first =   0   ; list.last =   7
8   )   Вставил   index list.last =   8   ; присвоил значение элементa =   8   (   28.8134765625   )
9   )   Начальные индексы   list.first =   0   ; list.last =   8
9   )   Вставил   index list.last =   9   ; присвоил значение элементa =   9   (   28.9853515625   )
10   )   Начальные индексы   list.first =   0   ; list.last =   9
10   )   Вставил   index list.last =   10   ; присвоил значение элементa =   10   (   29.0146484375   )
11   )   Начальные индексы   list.first =   0   ; list.last =   10
11   )   Вставил   index list.last =   11   ; присвоил значение элементa =   11   (   29.0625   )
11   Операция - Удаление первого:   )   присвоил индекс первоve элементу =   1   вернул значение первого элементa =   1   (   29.1484375   )
.........
1000   )   Начальные индексы   list.first =   989   ; list.last =   999
1000   )   Вставил   index list.last =   1000   ; присвоил значение элементa =   1000   (   51.08203125   )
1000   Операция - Удаление первого:   )   присвоил индекс первоve элементу =   990   вернул значение первого элементa =   990   (   51.109375   )

LIFO (вариант реализации стека с помощью двусторонней очереди.) ----------------------
начальный объем занятой памяти   26.5283203125
число элементов в LIFO list после 1000 циклов функции рор=10
объем занятой памяти   51.28125
объем занятой памяти после сборщика мусора   30.7470703125