77 lines
1.2 KiB
Lua
77 lines
1.2 KiB
Lua
function split(text, sep)
|
|
local parts = {}
|
|
local start = 0
|
|
local from, to = text:find(sep)
|
|
while from ~= nil do
|
|
table.insert(parts, text:sub(start, from - 1))
|
|
text = text:sub(to + 1)
|
|
from, to = text:find(sep)
|
|
end
|
|
table.insert(parts, text)
|
|
return parts
|
|
end
|
|
|
|
function sign(n)
|
|
if n == 0 then return 0
|
|
elseif n < 0 then return -1
|
|
else return 1
|
|
end
|
|
end
|
|
|
|
function foreach(t, f)
|
|
for k, v in pairs(t) do
|
|
t[k] = f(v)
|
|
end
|
|
end
|
|
|
|
function printtable(t, nonewline)
|
|
for k, v in pairs(t) do
|
|
io.write(k..":")
|
|
if type(v) == "table" then
|
|
io.write("(")
|
|
printtable(v, true)
|
|
io.write(") ")
|
|
else
|
|
io.write(v.." ")
|
|
end
|
|
end
|
|
if not nonewline then
|
|
io.write("\n")
|
|
end
|
|
end
|
|
|
|
function count(t, pred)
|
|
local count = 0
|
|
for k, v in pairs(t) do
|
|
if pred(v) then count = count + 1 end
|
|
end
|
|
return count
|
|
end
|
|
|
|
function foldl(t, f, a)
|
|
for k, v in pairs(t) do
|
|
a = f(a, v)
|
|
end
|
|
return a
|
|
end
|
|
|
|
function sum(t)
|
|
return foldl(t, function (x, y) return x + y end, 0)
|
|
end
|
|
|
|
function char(s, index)
|
|
return string.char(string.byte(s, index))
|
|
end
|
|
|
|
function chars(s)
|
|
local index = 0
|
|
return function()
|
|
if index < #s then
|
|
index = index + 1
|
|
return char(s, index)
|
|
else
|
|
return nil
|
|
end
|
|
end
|
|
end
|