fork download
copy 
  1. function x=f(x,n)
  2. while x(2)>=x(1)
  3. x=[abs(x(1)-x(2)) x];end
  4. x=x([2 1]);for k=1:n-1
  5. x=[x(1)+x(2) x];end
  6. x=x(n:-1:1);
  7.  
  8. end %line needed in online interpreter only
  9.  
  10. f([8 13],10)
Success #stdin #stdout 0.18s 65048KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ans =

    0    1    1    2    3    5    8   13   21   34
https://ideone.com/or90cq
language:
Octave (octave 4.4.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!