Suntor (Все сообщения пользователя)

local t = {}
t[15.5] = "aaa"
t[3.1] = "bbb"
t[7.8] = "ccc"
t[115.5] = "aaa"
t[23.1] = "bbb"
t[557.8] = "ccc"
t[14.5] = "aaa"
t[43.1] = "bbb"
t[87.8] = "ccc"

function getFirstAndLastByKeys(t, f)
    local a = {}
    for n in pairs(t) do table.insert(a, n) end
    table.sort(a, f)
    return a[1], t[a[1]], a[#a], t[a[#a]]
end

local first_k, first_v, last_k, last_v = getFirstAndLastByKeys(t)
print(first_k.." = "..first_v)
print(last_k.." = "..last_v)

3.1 = bbb
557.8 = ccc

for k, v in pairsByKeys(t, function (a, b) return a > b end) do
    ...
end

BigTab = {}
BigTab[12.2] = {s = 11, f =22}
BigTab[11.1] = {s = 11, f =22}
BigTab[14.1] = {s = 11, f =22}
BigTab[3.32] = {s = 11, f =22}

for k, v in pairs(BigTab) do
    print(tostring(k).." = "..tostring(v))
end
print()

function pairsByKeys(t, f)
    local a = {}
    for n in pairs(t) do table.insert(a, n) end
    table.sort(a, f)
    local i = 0      -- iterator variable
    local iter = function ()   -- iterator function
        i = i + 1
        if a[i] == nil then return nil
        else return a[i], t[a[i]]
        end
    end
    return iter
end

for k, v in pairsByKeys(BigTab) do
    print(tostring(k).." = "..tostring(v))
end

11.1 = table: 005099A8
3.32 = table: 00509890
12.2 = table: 00509A98
14.1 = table: 00509868

3.32 = table: 00509890
11.1 = table: 005099A8
12.2 = table: 00509A98
14.1 = table: 00509868

if math.abs(b-c) <= 0.123456789 then
    print(bla)
end

local fRun = true

local first = getNumberOf("all_trades")-1
local last = first

function OnAllTrade(alltrade)
    last = last+1
end

function main()
    while fRun do
        while first ~= last do
            first = first+1
            local alltrade = getItem("all_trades", first)
            if alltrade then
                message("Новая сделка № "..tostring(alltrade.trade_num))
            end
        end
        sleep(1000)
    end
end

function OnStop(s)
    fRun = false
end

function save_globals()
    old_G = {} for k, v in pairs(_G) do old_G[k]=v end
end

function clear_globals()
    for k, v in pairs(_G) do if not old_G[k] then _G[k]=nil end end
end

save_globals()
a, b, c = 5, 10, 15
print(a, b, c)
clear_globals()
print(a, b, c)

5       10      15
nil     nil     nil

function clear_locals()
    local l = 1 while debug.getlocal(2, l) do debug.setlocal(2, l, nil) l = l+1 end
end

local a = 5
local b = 10
local c = 15
print(a, b, c)
clear_locals()
print(a, b, c)

5       10      15
nil     nil     nil

local min_stop_order = nil
for i=0,getNumberOf("stop_orders")-1 do
    local stop_order = getItem("stop_orders", i)
    if stop_order and stop_order.condition == 4 then
        min_stop_order = min_stop_order or stop_order
        min_stop_order = (min_stop_order.condition_price <= stop_order.condition_price) and min_stop_order or stop_order
    end
end

local condition_price = nil
local min_stop_order = nil
for i=0,getNumberOf("stop_orders")-1 do
    local stop_order = getItem("stop_orders", i)
    if stop_order and stop_order.condition == 4 then
        condition_price = condition_price or stop_order.condition_price
        min_stop_order = min_stop_order or stop_order
        if condition_price > stop_order.condition_price then
            condition_price = stop_order.condition_price
            min_stop_order = stop_order
        end
    end
end