Факториал цикла

Question

Я создал следующий несильно, чтобы вычислить факториал заданного числа:

factorial <- function(x){ 
y <- 1 
for(i in 1:x){ 
y <-y*((1:x)[i]) 
print(y) 
} 

} 


factorial(6) 

in console: 

[1] 1 
[1] 2 
[1] 6 
[1] 24 
[1] 120 
[1] 720 

6 = 720 так, очевидно, последнее число является правильным и расчет делает работу для всех чисел.

Проблема в том, что я хочу, чтобы последнее число было напечатано на консоль, есть ли способ сделать это? Я пытался превратить y в вектор внутри функции, но он, похоже, не работает.

Answer 1

Переместить инструкцию печати вне цикла?

for(i in 1:x){ 
    y <-y*((1:x)[i]) 
} 
print(y) 

Answer 2

Просто поместите print() вне цикла

factorial <- function(x){ 
y <- 1 
for(i in 1:x){ 
y <-y*((1:x)[i]) 
} 
print(y) 
} 

Вы можете улучшить эту функцию ... почему (1:x)[i] и не только i? Почему print() и не return()? И самое главное: почему бы не использовать factorial() из базового пакета?

Answer 3

print отпечатки на экране. Функция возвращает результат последнего вычисленного выражения (или явное значение return). Вы хотите вернуть значение, а также распечатать его?

Это сказанное

R уже имеет функцию factorial которая вызывает gamma(x+1), используя тот факт, что для целочисленных значений gamma(x+1) == x!

так

factorial(6) 

gamma(7) 

Функция Вы писали будет иметь проблемы с переполнением целочисленного при умножении больших чисел, а также быть очень неэффективным, поскольку вы повторно переназначаете до y в цикле (Рекурсивным, если он не должен быть)

Answer 4

# take input from the user 
n <- as.integer(readline(prompt="Enter a number: ")) 
factorial = 1 #set factorial variable to 1 

# check is the number is negative, positive or zero 
if(n < 0) { 
    print("factorial does not exist for negative numbers") 
} else if(n == 0) { 
    print("The factorial of 0 is 1") 
} else { 
    for(i in 1:n) #for loop to expand n up to 1 
    { 
    factorial = factorial * i 
    } 
    print(paste("The factorial of", n ,"is",factorial)) 
} 

Answer 5

Вы можете определить функцию факториала с использованием функции возврата в конце кода:

factorial<-function(x){ 
     y<-1 
     for(i in 1:x) { 
     y<-y*((1:x)[i]) 
         } 
     return(y) 
      }