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

5 lines
105 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
DEF fib() (
VAR seq <- [0, 1]; EVERY SUSP seq:values;
REP SUSP seq:put(seq:pop + seq[1])[-1];
);