Latest posts for the topic "coroutine"

coroutine

al — GMT

Опять хочеться наглядности
Покажите пример, который
по заданому натуральному ряду 1,2,3...n
считает и возвращает в одном мнимом потоке числа фибоначчи F(1)=1, F(2)=1, F(n+1)=F(n)+F(n-1)
а в другом факториал числа f(1)=1, f(2)=2, f(n)=n*f(n-1)
спасибо.

Re:coroutine

z00n — GMT

Я не уверен, что я точно понял, чего вам хочется. Вот: функция [b]stream_maker[/b] делает бесконечный ленивый поток поток натуральных чисел, а функция [b]lift [/b] лифтит две скалярные унарные функции и исходный поток до бесконечного потока пар значений функций.

[code]
local wrap = coroutine.wrap
local yield = coroutine.yield

local function stream_maker(from)
local function N(n) yield(n) return N(n+1) end
return wrap(function() return N(from) end)
end

local function print_first_n(n,stream)
for i=1,n do
local a,b = stream()
print(string.format("%-5d %-20g %d\n",i,a,b))
end
end

local function lift(foo1,foo2,stream)
local function loop()
local el = stream()
yield(foo1(el),foo2(el))
return loop()
end
return wrap(function() return loop() end)
end

--// TEST: ------------------------------------------------------
local function fact(x)
local function loop(acc,n)
if n == 1 then return acc else return loop(acc*n,n-1) end
end
return loop(1,x)
end

local function fib(x)
local function loop(n,n1,n2)
if n == 3 then return n1+n2 else return loop(n-1,n2,n1+n2) end
end
if x < 3 then return 1 else return loop(x,1,1) end
end

print_first_n(20,lift(fact,fib,stream_maker(1)))

[/code]

печатает:
[code]
bash$ lua coro.hlua
1 1 1

2 2 1

3 6 2

4 24 3

5 120 5

6 720 8

7 5040 13

8 40320 21

9 362880 34

10 3.6288e+006 55

11 3.99168e+007 89

12 4.79002e+008 144

13 6.22702e+009 233

14 8.71783e+010 377

15 1.30767e+012 610

16 2.09228e+013 987

17 3.55687e+014 1597

18 6.40237e+015 2584

19 1.21645e+017 4181

20 2.4329e+018 6765

[/code]

Re:coroutine

al — GMT

Да, спасибо, принцип понял.

Re:coroutine

XNut — GMT

А вот так, по-моему, понятнее:
[code]local n,pre=1,1
coroutine_factorial=coroutine.wrap(
function(a)
while true do
n,pre=n+1,pre*n
coroutine.yield(pre)
end
end
)

local n,pre1,pre2=1,0,1
coroutine_fibonacci=coroutine.wrap(
function(a)
while true do
n,pre1,pre2=n+1,pre1+pre2,pre1
coroutine.yield(pre1)
end
end
)

print('factorial','fibonacci')
for i=1,10 do
print(coroutine_factorial(),coroutine_fibonacci())
end

print(coroutine_factorial())
print(coroutine_factorial())
print('',coroutine_fibonacci())
print('',coroutine_fibonacci())[/code]