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

11 lines
236 B
Plaintext

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);
}