aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Fibonacci-sequence/Octave/fibonacci-sequence-1.octave Normal file
View file

@ -0,0 +1,8 @@
% recursive
function fibo = recfibo(n)
if ( n < 2 )
fibo = n;
else
fibo = recfibo(n-1) + recfibo(n-2);
endif
endfunction

16
Task/Fibonacci-sequence/Octave/fibonacci-sequence-2.octave Normal file
View file

@ -0,0 +1,16 @@
% iterative
function fibo = iterfibo(n)
if ( n < 2 )
fibo = n;
else
f = zeros(2,1);
f(1) = 0;
f(2) = 1;
for i = 2 : n
t = f(2);
f(2) = f(1) + f(2);
f(1) = t;
endfor
fibo = f(2);
endif
endfunction

4
Task/Fibonacci-sequence/Octave/fibonacci-sequence-3.octave Normal file
View file

@ -0,0 +1,4 @@
% testing
for i = 0 : 20
printf("%d %d\n", iterfibo(i), recfibo(i));
endfor