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

#define NN "27"

s n;
cfunction f;

l fib = f(`NN');

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

print;
.store

s letzte,zweitletzte,dummy;
cfunction f;

l fib = f(1,1) * dummy^(`NN'-2);

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

print;
.end