http://forum.quik.ru Новое в теме Очередь+Массив форума на сайте Форум QUIK [forum.quik.ru] ru http://backend.userland.com/rss2 Sat, 18 Apr 2026 07:22:09 +0300 Очередь+Массив Объединение свойств очереди и массива. в форуме Программирование на языке Lua.
Добрый день,
Нарисовал библиотеку на чистом луа для работы с очередями без использования каких либо модулей.
Полагаю должна работать с QLUA без проблем.
------------------------------
Отличается от написанной выше Владимиром следующим:
1) Вариант Владимира может работать лишь при условии что длина истории очереди не выходит за точность чисел в формате double.
2) В моем варианте функция push работает в 3 раза быстрее
3) добавил функцию full - для обнаружения заполненной очереди.
--------------------------------------
Особо сильно не тестировал, поэтому сообщения об ошибках приветствуются.
--------------------------------
модуль можно взять тут http://www.kamynin.ru
02.02.2015 19:48:31, Николай Камынин.]]> http://forum.quik.ru/messages/forum10/message266/topic59/ http://forum.quik.ru/messages/forum10/message266/topic59/ Mon, 02 Feb 2015 19:48:31 +0300 Программирование на языке Lua Очередь+Массив Объединение свойств очереди и массива. в форуме Программирование на языке Lua.
Владимир,
Я вот немного ваши программы переписал в таком виде:
--------------------------------------------
local function _new(q_size)
return { first = 1, last =0, max_size = q_size }
end

local function _delq(q)
local m=q.first
local x = q[m]
q[m] = nil
q.first = m + 1
return x
end

local function _push( q, value )
q.last = q.last + 1
q[q.last] = value
if q.last >q.max_size then return _delq(q) end
end

local function _pop( q)
if q.last>=q.first then return _delq(q); end
end

local function _get(q,pos)
local x=q.first+pos
if q.last>=x then  return q[x] end
end
-- если очередь пустая  то get(q,0)=nil
02.02.2015 13:53:22, Николай Камынин.]]> http://forum.quik.ru/messages/forum10/message240/topic59/ http://forum.quik.ru/messages/forum10/message240/topic59/ Mon, 02 Feb 2015 13:53:22 +0300 Программирование на языке Lua Очередь+Массив Объединение свойств очереди и массива. в форуме Программирование на языке Lua.
Добрый день,Владимир,
1) Из своего опыта замечу,
что самый эффективный алгоритм и его реализацию подобного класса задач
можно сделать с использованием
операций над битами и языка уровня СИ.
02.02.2015 09:22:19, Николай Камынин.]]> http://forum.quik.ru/messages/forum10/message200/topic59/ http://forum.quik.ru/messages/forum10/message200/topic59/ Mon, 02 Feb 2015 09:22:19 +0300 Программирование на языке Lua Очередь+Массив Объединение свойств очереди и массива. в форуме Программирование на языке Lua.

====quote====
Николай Камынин пишет:
Добрый день,
А такой вариант устроит ?


=============
Этот вариант будет работать только внутри одного потока исполнения.
01.02.2015 22:58:25, s_mike@rambler.ru.]]> http://forum.quik.ru/messages/forum10/message170/topic59/ http://forum.quik.ru/messages/forum10/message170/topic59/ Sun, 01 Feb 2015 22:58:25 +0300 Программирование на языке Lua Очередь+Массив Объединение свойств очереди и массива. в форуме Программирование на языке Lua.
Добрый вечер,
Я в луа не силен, поэтому додумываю существующие варианты. Нашел очередь, ее и додумывал  :) . В очереди - при добавлении нового элемента - предыдущие элементы сдвигаются на шаг. Будет ли реализовываться это в вашем варианте - не знаю в силу недостаточности знаний луа.
За пример кода - спасибо!
01.02.2015 22:37:11, Владимир Б****ов.]]> http://forum.quik.ru/messages/forum10/message169/topic59/ http://forum.quik.ru/messages/forum10/message169/topic59/ Sun, 01 Feb 2015 22:37:11 +0300 Программирование на языке Lua Очередь+Массив Объединение свойств очереди и массива. в форуме Программирование на языке Lua.
Добрый день,
А такой вариант устроит ?

----    создать новый массив, максимальная длина N
new=function(N) local t={}; t.len=N; return t; end  

----     вытолкнуть первый элемент
pop=function(t) if #t>0 then return table.remove(t,1); end end  

----     поставить в очередь , если очередь >N -вытолкнуть первый
push=function(t,x) t[#t+1]=x; if #t>t.len then return table.remove(t,1) end; end


--------------- доступ к любому элементу как к элементу таблицы квадратными скобками
01.02.2015 20:46:10, Николай Камынин.]]> http://forum.quik.ru/messages/forum10/message165/topic59/ http://forum.quik.ru/messages/forum10/message165/topic59/ Sun, 01 Feb 2015 20:46:10 +0300 Программирование на языке Lua Очередь+Массив Объединение свойств очереди и массива. в форуме Программирование на языке Lua.
Добрый день
В прошлой версии форума я задавал вопрос про массивы и очереди,
так вот - разобрался!!! Выкладываю код, может кому понадобится
*********************************
Queue = {}

function Queue.new(q_size)
   return { first = 0, last = -1, max_size = q_size }
end

function Queue.push( queue, value )
   queue.last = queue.last + 1
   queue[queue.last] = value
   
   if queue.last >= queue.max_size then
local val = queue[queue.first]
queue[queue.first] = nil
queue.first = queue.first + 1
   end
end

function Queue.pop( queue )
   if queue.first > queue.last then
 return nil
   end

   local val = queue[queue.first]
   queue[queue.first] = nil
   queue.first = queue.first + 1
   return val
end

function Queue.empty( queue )
   return queue.first > queue.last
end

function Queue.get( queue, pos)
   if queue.first > queue.last then
 return nil
   end
   if pos > queue.last then
 return nil
   end

   local val = queue[queue.first + pos]
   return val
end
*********************************
Использование:
q = Queue.new(5) -> Создаем очередь фиксированной длины, в данном случае - 5 элементов. По мере добавления новых элементов, лишние(свыше 5) удаляются
qq = Queue.new() -> Создаем очередь бесконечной длины
v1 = Queue.get(q,0) -> Доступ к элементу
v2 = Queue.get(q,1) -> Доступ к элементу
v3 = Queue.get(q,2) -> Доступ к элементу
v4 = Queue.get(q,3) -> Доступ к элементу
v5 = Queue.get(q,4) -> Доступ к элементу
v6 = Queue.get(q,5) -> Доступ к элементу


Если ГУРУ заметят ошибки в коде - прошу высказать!!!
01.02.2015 10:41:13, Владимир Б****ов.]]> http://forum.quik.ru/messages/forum10/message149/topic59/ http://forum.quik.ru/messages/forum10/message149/topic59/ Sun, 01 Feb 2015 10:41:13 +0300 Программирование на языке Lua