Finding Fibonacci in the Golden Ratio Recursion Calculation
#lang racket
;; Finding Fibonacci in the Golden Ratio Recursion Calculation
;;
;; Check the numbers in the fractions of the Values
(define (golden-ratio previous-value current-value tolerance)
(let ([error (abs (- current-value previous-value))])
(if (> error tolerance)
(begin
(printf "Error: ~v, \t Value:~v~n" error current-value)
(golden-ratio current-value (+ 1 (/ 1 current-value)) tolerance))
(printf "Error: ~v, \t Value:~v~n" error current-value))))
(golden-ratio 0 3/2 1e-5)
Run it at https://onecompiler.com/racket/43v2qa42g