Map

gistfile1.lua

function map(f, seq)
    local output = {}
    for i=1,#seq do
        output[i] = f(seq[i])
    end
    return output
end

local wassup = map(string.char, {119, 97, 115, 115, 117, 112})
local expected = {"w", "a", "s", "s", "u", "p"}

assert(#wassup == #expected)
for i=1,#wassup do
    assert(wassup[i] == expected[i])
end

assert(#map(string.char, {}) == 0)