Проблема с факториальной функцией

Question

Я пытаюсь написать программу, которая печатает факториал, фактически не используя рекурсию.

Вот код

let factorial x = 
    let mutable n = x 
     while n > 0 do 
      let result = n*(n-1) 
      n <- (n-1) 
     result 

Вопрос заключается в том, что, когда я пытаюсь запустить код он говорит мне, что ожидаемый результат является единицей, в то время как вход, очевидно, является целым числом, которое, очевидно, приводит к ошибка. Тем не менее, я проверил все мои переменные и компилятор интерпретирует их как целые числа, так что этот вопрос

Answer 1

Есть несколько проблем с вашим кодом здесь, вы должны иметь в виду отступа в F # очень важно для вас хотят, чтобы сделать ваш код должен быть:

let factorial x = 
    let mutable n = x 
    let mutable result = 1 
    while n > 0 do 
     result <- n * (n-1) 
     n <- (n - 1) 
    result 

Вы объявляли переменную result внутри while сферы и вернуть его за его пределами. Ваш код, однако, неправильно, я взял на себя смелость изменить его, вот что я сделал:

let factorial x = 
    let mutable n = x 
    let mutable result = 1 
    while n >= 1 do 
     result <- result * n 
     n <- (n - 1) 
    result