6

最近,Lee Baldwin展示了如何编写一个通用的可变参数记忆函数。我认为最好返回一个只需要一个参数的更简单的函数。这是我的虚假尝试:

local function memoize(f)
   local cache = {}

   if select('#', ...) == 1 then
      return function (x)
                if cache[x] then
                   return cache[x]
                else
                   local y = f(x)
                   cache[x] = y
                   return y
                end
              end
   else
      return function (...)
                local al = varg_tostring(...)
                if cache[al] then
                   return cache[al]
                else
                   local y = f(...)
                   cache[al] = y
                   return y
                end
             end
   end
end

显然,select('#', ...)在这种情况下失败了,无论如何也不会真正做我想做的事。有没有办法告诉内部memoize f期望多少个参数?


如果您确定,“不”是一个很好的答案。使用两个独立的memoize函数没什么大不了的。

4

3 回答 3

4

我想你可以进入调试信息并从源代码中确定这一点,但基本上它是“不”,抱歉。

于 2008-09-26T22:56:55.707 回答
3

是的,对于 Lua 函数但不是 C 函数。这有点折磨人,有点粗略。

debug.getlocal适用于被调用的函数,因此您必须调用有问题的函数。...除非调用传递了足够的参数,否则它不会显示任何提示。下面的代码尝试了 20 个参数。

debug.sethook“调用”事件提供了在函数运行任何代码之前拦截函数的机会。

该算法适用于 Lua 5.2。旧版本会相似但不一样:

assert(_VERSION=="Lua 5.2", "Must be compatible with Lua 5.2")

一个小辅助迭代器(可以内联以提高效率):

local function getlocals(l)
  local i = 0
  local direction = 1
  return function ()
    i = i + direction
    local k,v = debug.getlocal(l,i)
    if (direction == 1 and (k == nil or k.sub(k,1,1) == '(')) then 
      i = -1 
      direction = -1 
      k,v = debug.getlocal(l,i) 
    end
    return k,v
  end
end

返回签名(但可以返回参数计数并使用Varargs,而不是):

local function dumpsig(f)
  assert(type(f) == 'function', 
    "bad argument #1 to 'dumpsig' (function expected)")
  local p = {}
  pcall (function() 
    local oldhook
    local hook = function(event, line)
      for k,v in getlocals(3) do 
        if k == "(*vararg)" then 
          table.insert(p,"...") 
          break
        end 
        table.insert(p,k) end
      debug.sethook(oldhook)
      error('aborting the call')
    end
    oldhook = debug.sethook(hook, "c")
    -- To test for vararg must pass a least one vararg parameter
    f(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
  end)
  return "function("..table.concat(p,",")..")"  
end
于 2014-06-14T02:11:12.833 回答
2

我很确定你不能在 Lua 中做到这一点。

于 2008-09-26T22:59:06.327 回答