RosettaCodeData/Task/Fibonacci-sequence/Wrapl/fibonacci-sequence-1.wrapl

5 lines
105 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
DEF fib() (
VAR seq <- [0, 1]; EVERY SUSP seq:values;
REP SUSP seq:put(seq:pop + seq[1])[-1];
);