В статье Википедии о продолжении говорится:
«На любом языке, который поддерживает замыкания < / strong>, можно писать программы в стиле продолжения передачи и вручную реализовать call / cc. "
Либо это правда, и мне нужно знать, как это сделать, либо это неверно, и это утверждение необходимо исправить.
Если это правда, пожалуйста, покажите мне, как реализовать call / cc в Lua, потому что я не понимаю, как это сделать.
Думаю, я можно было бы реализовать call / cc вручную, если бы в Lua была функция coroutine.clone, как описано здесь.
Если замыканий недостаточно для реализации call / cc, что еще нужно?
Приведенный ниже текст является необязательным.
P.S .: Lua имеет одноразовые продолжения с таблицей сопрограмм. Функция coroutine.clone позволила бы мне клонировать ее, чтобы вызывать ее несколько раз, что фактически делает возможным call / cc (если я не понимаю call / cc). Однако этой функции клонирования в Lua нет. Кто-то на IRC-канале Lua предложил мне использовать библиотеку Pluto (она реализует сериализацию) для маршалинга сопрограммы, ее копирования, а затем демаршалинга и повторного использования. Хотя это, вероятно, сработает, меня больше интересует теоретическая реализация call / cc и определение фактического минимального набора функций, которые должен иметь язык, чтобы можно было реализовать его вручную.
РЕДАКТИРОВАТЬ 1: Хорошо, люди, помогите мне здесь, это заняло у меня много времени, потому что я не знаю никакой схемы, но я придумал кое-что, что должно нам помочь. Пожалуйста, посмотрите на коды ниже. Первая - это программа на Scheme, вторая - та же программа, но на Lua.
Надеюсь, это нам поможет. Я считаю, что мы очень близки.
PS: Эти примеры взяты из первого примера на статья в Википедии о CallCC. Версия схемы
(define call/cc call-with-current-continuation)
; callcc CPS-transformed (thanks to the people from the #scheme 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 Scheme version!!
-- so apparently the translation from Scheme to Lua is correct...
Я использую DrScheme и Lua для Windows - для всех, кто хочет помочь, это два простых для загрузки и установки инструмента, которые просто работают.
