How To Compute Fibonacci Extensions using F#?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

// Define a function to calculate the Fibonacci sequence up to a given number of terms
let rec fibonacci n =
    match n with
    | 0 -> 0
    | 1 -> 1
    | _ -> fibonacci (n - 1) + fibonacci (n - 2)

// Define a function to calculate Fibonacci extensions using the Fibonacci sequence
let fibonacciExtensions n =
    let fibs = [ for i in 0..n -> fibonacci i ]
    let exts = [ for i in 0..n -> (float i, float(fibs.[i]), float(fibs.[i + 1] - fibs.[i])) ]
    exts

// Calculate Fibonacci extensions for a given number of terms
let extensions = fibonacciExtensions 10

// Print the calculated Fibonacci extensions
extensions
|> List.iter (fun (n, fib, diff) -> printfn "Extension %d: %.0f (%.0f)" n fib diff)