Cálculo fatorial
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
P.S.: Este método "one liner" =) também faz a mesma coisa: seq -s \* <valor> | bc
Descrição
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
P.S.: Este método "one liner" =) também faz a mesma coisa: seq -s \* <valor> | bc
/*
* 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;