Depth of nested list

[Albert Chan]

depth(non-list) = 0
depth(lst) = 1 + max(map(depth, lst))

Code:

function depth(t)
    if type(t) ~= 'table' then return 0 end
    local n = 0
    for _, x in pairs(t) do n = max(n, depth(x)) end
    return 1 + n
end

lua> depth({ "{{{ Hello!", 1, {2, 3} , {4, {5}}})
3