F #에서 사용자 입력 값까지 전체 피보나치 시퀀스를 어떻게 인쇄합니까?

Question

그래서 현재 사용자가 입력 한 값과 동일한 피보나치를 찾은 프로그램이 있습니다. 6은 5가 될 것입니다 (또는 0으로 시작하는지 여부에 따라 13이됩니다). 개인적으로 나는 0으로 시작하는 시퀀스를 선호합니다.

open System 

    let rec fib (n1 : bigint) (n2 : bigint) c = 
     if c = 1 then 
      n2 
     else 
      fib n2 (n1+n2) (c-1);; 

    let GetFib n = 
     (fib 1I 1I n);; 

    let input = Console.ReadLine() 
    Console.WriteLine(GetFib (Int32.Parse input)) 

문제는 모든 시퀀스에서 동등한 번호를 찾는 것입니다. 사용자가 입력 한 값까지 모든 값을 인쇄하도록하려고합니다. 6은 0,1,1,2,3,5를 출력합니다. 누구든지 전체 시퀀스를 인쇄하는 방법을 알아 내면 도움이 될 것입니다. 또한 누구든지 내 코드를보고 전체 시퀀스를 인쇄 할 때 0에서 시작하는 방법을 알려 주면 대단히 감사하게 될 것입니다.

도움을 주셔서 감사합니다.

Answer 1

s952163이 Seq 표현식을 사용하여 fibonnaci 시퀀스를 생성하는 방법을 보여주는 링크를 살펴보고 이것이 유용한 이유를 설명합니다.

다음은 지정된 시퀀스 번호까지 시퀀스를 출력 할 것이다 :

let fibsTo n = Seq.unfold (fun (m,n) -> Some (m, (n,n+m))) (0I,1I) 
       |>Seq.takeWhile (fun x -> x <= n) 

let input = Console.ReadLine() 

(fibsTo (Numerics.BigInteger.Parse input))|>Seq.iter(printfn "%A") 

참고 아니라 console.writeline보다는 printfn의 사용, 전자가 더 관용적이다.

또한 부정 입력을 처리하는 것이 오류를 발생시킬 수 있으므로 여기에서 고려할 수 있습니다.