fatt <- function(x)
    {
    ifelse(x == 1, 1, x * fatt(x-1))
    }

fatt <- function(n)
    {
    result <- 1;
    for (i in n:1)
        {
        result <- i * result
        }
    return(result)
    }

Citazione:

---

Messaggio inserito da Bian Que

Salve a tutti non riesco a svolgere un esercizio di programmazione, spero che qualcuno mi dia una mano. L' esercizio chiede:
scrivere un programma che prende in input un numero intero (n) e mi restituisca come risultato il fattoriale di n.
esempio n=5 1*2*3*4*5=120


ho iniziato cosi'..non so se va bene e come continuare..

fattoriale<-function (n)
l<- c(1:n)
for (i in l)

qualcuno puo' darmi una mano
..grazie.

---

Citazione:

---

#meglio ancora utilizzare la funzione factorial che è già presente in R

---

# chiamata diretta a gamma
> system.time(for(i in 1:100000){gamma(120+1)})
   user  system elapsed 
  0.128   0.000   0.128
# factorial
> system.time(for(i in 1:100000){factorial(120)})
   user  system elapsed 
  0.214   0.000   0.217 
# prod
> system.time(for(i in 1:100000){prod(1:120)})
   user  system elapsed 
  0.318   0.002   0.328 
# funzione con for
> system.time(for(i in 1:100000){fattFor(120)})
   user  system elapsed 
 12.836   0.004  12.960 
# funzione ricorsiva
> system.time(for(i in 1:100000){fattRec(120)})
   user  system elapsed 
377.686   0.343 381.382