*
* Rechnernutzung in der Physik
* WS 11/12
*
* Fibonacci Zahlen
*

s n;
cfunction f;

l fib = f(33);

repeat;
  id f(1)=1;
  id f(2)=1;
  id f(n?) = f(n-1) + f(n-2);
endrepeat;
.sort

print;
.clear

s letzte,zweitletzte,dummy;
cfunction f;

l fib = f(1,1) * dummy^31;

repeat;
  id f(letzte?,zweitletzte?)*dummy = f(letzte+zweitletzte,letzte);
endrepeat;
id f(letzte?,zweitletzte?) = letzte;
.sort

print;
.end