Mais um "bc script" que calcula o fatorial dum número utilizando-se de interações.

P.S.: Este método "one liner" =) também faz a mesma coisa: seq -s \* <valor> | bc

• Download fatorial_bc
• Enviar nova versão

Esconder código-fonte

/*
 * Cálculo Fatorial.
 * Algoritmo adaptado a "calculadora" GNU bc.
 *
 * Uso: <bc script>
 * Para sair: <ctrl + d> ou <use um caractere não numérico>
 *
 * Autor: /bin/laden - 22/04/2009.
 *
 * Mais detalhes: <man bc> ou <www.google.com> =P
 *
 * Modo recursivo:
 *
 * define fatorial(valor)
 *  {
 *      if (valor <= 1) return(1);
 *      return(fatorial(valor - 1) * valor);
 *  }
 */

/* Modo interativo */
define fatorial(valor)
{
   auto x, y;
   x = 1;
   y = 1;
   
   while (y++ < valor) x = x * y;
   
   return(x);
}

while (1) {
   print "Fatorial de: ";
   input = read();

   /* "Input" inválido */
   if (!input) break;
   
   fatorial(input);
}
quit;

Feliz Natal para todos do VOL

Informações do Sistema

Meu IP

Não consigo executar função, usando Script

Personalizar teclado, alterar função de uma tecla

Nenhum comentário foi encontrado.