RosettaCodeData/Task/Fibonacci-sequence/StreamIt/fibonacci-sequence.streamit

11 lines
236 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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);
}