/*
* Números de Fibonacci.
* Algoritmo adaptado a 'calculadora' GNU bc.
*
* Uso: <bc script>
*
* Autor: /bin/laden - 22/04/2009.
*
* Mais informações: <man bc> ou <www.google.com> =P
*
* Modo recursivo:
*
* define fibonacci(valor)
* {
*   if (valor < 2) return(valor);
*   return(fibonacci(valor - 1) + fibonacci(valor - 2));
* }
*/

/* Modo "braçal" =) */
define void fibonacci(valor)
{
   auto x, y, z, i;
   
   x = 0;
   y = 1;
     
   x;
     
   while (i++ < valor) {
      y;
      z = x;
      x = y;
      y = z + y;
   }
}

/* Quantos números calcular? */
print "Calcular quantos números de Fibonacci?: ";
input = read();

fibonacci(input);

/* Finaliza processamento */
quit;