RosettaCodeData/Task/Fibonacci-sequence/StreamIt/fibonacci-sequence.streamit
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

10 lines
236 B
Text

void->int feedbackloop Fib {
join roundrobin(0,1);
body in->int filter {
work pop 1 push 1 peek 2 { push(peek(0) + peek(1)); pop(); }
};
loop Identity<int>;
split duplicate;
enqueue(0);
enqueue(1);
}