呼叫/ cc在Lua – 可能？

维基百科文章 Continuation表示：
“在支持闭包的任何语言中，可以编写继续传递风格的程序，并手动实现call / cc。
要么这是真的，我需要知道如何做，否则是不正确的，那个说法需要纠正。
如果这是真的，请告诉我如何在Lua中实现call / cc，因为我看不到如何。
如果Lua具有如同 here所述的coroutIne.clone函数，我可以手动实现call / cc。
如果闭包不足以实现call / cc，那么还需要什么？

下面的文本是可选阅读。
路易斯安那州有一个连续的协同工作台。一个coroutIne.clone函数将允许我克隆它多次调用它，从而有效地使呼叫/ cc成为可能(除非我误会呼叫/ cC)。但是，在Lua中不存在克隆功能。 Lua IRC频道上的人建议我使用Pluto库(它实现序列化)来组织协同程序，复制它，然后将其解组并重新使用。虽然这可能会起作用，但我对于call / cc的理论实现和对语言需要具备的实际最小功能集进行手动实现更感兴趣。

编辑1：好的人，帮我在这里，这花了我很长时间，因为我不知道任何计划，但我想出了应该帮助我们的东西。请看下面的代码。第一个是scheR_885_11845@e中的一个程序，第二个是程序，但是在Lua中。希望这将有助于我们。我相信我们非常接近
这些例子摘自the Wikipedia article on CallCC的第一个例子。
计划版本

(define call/cc call-with-current-conTinuation)

; callcc CPS-transformed (thanks to the people from the #scheR_885_11845@e chAnnel at freenode.net)
(define cpscallcc
  (lambda (consumer k)
    (let ((cc (lambda (result) (k result))))
      (consumer cc k))))

; this is the conTinuation we will use to display the "returned" values
(define main-conTinuation
  (lambda (result)
    (display "--> ")
    (display result)
    (newlinE)))

; define f function non-CPS
(define (f return)
  (return 2)
  3)

; these are my past attempts at defining a CPS f function
;(define (cps-f return k)
;  (k (return 2)) 3)
;(define (cps-f return k)
;  (k (lambda ()
;       (return 2)
;       3)))

; this is what I came up with - I'm not sure if this is correctly CPS-transformed but I     believe so
(define (cps-f return k)
  (return 2)
  (k 3))

; call the non-CPS f function
(display (f (lambda (X) X))) ; displays 3
(newlinE)

; call the non-CPS f function with call/cc (I don't understand what this does)
(display (call/cc f)) ; displays 2
(newlinE)

; now call the CPS version of the f function
(cps-f (lambda (X) X) main-conTinuation)  ; displays --> 3

; now call the CPS version of the f function with the CPS version of call/cc
(cpscallcc cps-f main-conTinuation)  ; displays --> 2 but then it also displays --> 3 afterWARDs -> I'm not sure why it displays the 3 afterWARDs,as it should only display the 2 just like the non-CPS versions above

Lua版本

-- callcc CPS-version
cpscallcc = function(consumer,k)
    local cc = function(result)
        return k(result)  -- ?or k(result)
    end
    return consumer(cc,k)  -- ?or return consumer(cc,k)
end

-- define f function non-CPS
f = function(ret)
    ret(2)
    return 3
end

-- define f function CPS-version (again,not sure this is correct)
cps_f = function(ret,k)
    ret(2)
    k(3)
end

-- call the non-CPS f function
print(f(function(X) return x end))

-- we cant call the non-CPS f function with callcc because
-- Lua doesnt have callcc,but the line below displays the correct expected output (maybe by accident)
--cpscallcc(f,print)

-- now call the CPS version of the f function
cps_f( function(X) return x end,print )  -- displays 3

; now call the CPS version of the f function with the CPS version of call/cc
cpscallcc( cps_f,print) -- displays 2 and then 3 just like the scheR_885_11845@e version!!
-- so Apparently the translation from scheR_885_11845@e to Lua is correct...

我正在使用DrscheR_885_11845@e和Lua for Windows – 对于任何想要帮助的人来说，这两个都是很容易下载和安装刚刚起作用的工具。

function multiplyadd(k,x,y,z) return k(x * y + z) end

function callcc(k,f) return f(k,k) end