在Lua中使用call/cc是否可能？

维基百科关于Continuation的文章说：

"在任何支持闭包的语言中，都可以以 continuation passing style 的方式编写程序并手动实现 call/cc。"

要么这是真的，我需要知道如何做到这一点，要么这是不正确的，需要纠正这个说法。

如果这是真的，请告诉我如何在 Lua 中实现 call/cc，因为我无法看出如何做到这一点。

如果闭包不足以实现 call/cc，那么还需要什么？

以下内容是可选择阅读的。

P.S.：Lua 有一次性 continuation 的功能，使用该协程表的 coroutine.clone 函数可以克隆多个协程，从而有效地实现 call/cc（除非我误解了 call/cc）。不过 Lua 中没有这样的克隆功能。Lua IRC 频道上的某些人建议我使用 Pluto 库（它实现了序列化）来编组协程，将其复制，然后取消编组并重新使用。虽然这可能有效，但我更感兴趣的是 call/cc 的理论实现，并找出语言中实际需要的最少的功能集，以实现 call/cc 的手动实现。

编辑 1： 好的人们，在这里帮助我，这花了我很长时间，因为我不知道 Scheme，但我想出了一些应该会帮助我们的东西。请查看下面的代码。第一个是 Scheme 中的程序，第二个是相同程序的 Lua 版本。

希望这将对我们有所帮助。我相信我们离目标很近。

P.S.：这些示例取自维基百科关于 CallCC 的第一个示例。

Scheme 版本

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

; callcc CPS-transformed (感谢 #scheme 频道的人们)
(define cpscallcc
  (lambda (consumer k)
    (let ((cc (lambda (result) (k result))))
      (consumer cc k))))

; 这是我们将用来显示“返回”值的 continuation
(define main-continuation
  (lambda (result)
    (display "--> ")
    (display result)
    (newline)))

; 定义非 CPS 的 f 函数
(define (f return)
  (return 2)
  3)

; 我过去尝试定义 CPS f 函数的方式
;(define (cps-f return k)
;  (k (return 2)) 3)
;(define (cps-f return k)
;  (k (lambda ()
;       (return 2)
;       3)))

; 我想出了这个 - 我不确定这是否是正确的 CPS 转换，但我相信是的
(define (cps-f return k)
  (return 2)
  (k 3))

; 调用非 CPS 的 f 函数
(display (f (lambda (x) x))) ; 显示 3
(newline)

; 使用 call/cc 调用非 CPS 的 f 函数（不知道它是什么意思）
(display (call/cc f)) ; 显示 2
(newline)

; 现在调用 CPS 版本的 f 函数
(cps-f (lambda (x) x) main-continuation)  ; 显示 --> 3

; 现在使用 CPS 版本的 call/cc 调用 CPS 版本的 f 函数
(cpscallcc cps-f main-continuation)  ; 显示 --> 2，但然后还会显示 --> 3 -> 我不确定为什么会显示 3，因为它只应该像上面的非 CPS 版本一样显示 2

Lua 版本

``` -- callcc CPS 版本 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

-- 定义非 CPS 的 f 函数 f = function(ret) ret(2) return 3 end

-- 定义 CPS 版本的 f 函数（同样，不确定这是否正确） cps_f = function(ret, k) ret(2) k(3) end

-- 调用非 CPS 的 f 函数 print(f(function(x) return x end))

-- 我们无法使用非 CPS 的 f 函数调用 call/cc，因为 -- Lua 没有 call/cc，但下面的行只显示了正确的预期输出（也许是偶然的） --cpscallcc(f, print)

-- 现在调用 CPS 版本的 f 函数 cps_f( function(x) return x end, print ) -- 显示 3

; 现在使用 CPS 版本的 call/cc 调用 CPS 版本的 f 函数 cpscallcc( cps_f, print) -- 显示 2 然后显示 3，就像方案版本一样！ -- 所以，显然从方案到此处的翻译