Fibonacci Backoff

fib_backoff.clj

(defn fib [a b]
  (lazy-seq (cons a (fib b (+ a b)))))
  
(defn fib-backoff [exec-fn test-fn]                                                                                                                                      
  (loop [retries (take 10 (fib 1 2))]                                                                                                                                    
    (let [result (exec-fn)]                                                                                                                                              
      (if (test-fn result)                                                                                                                                               
        result                                                                                                                                                           
        (when-let [sleep-ms (first retries)]                                                                                                                             
          (log/debug "Retrying with remaining retries: " retries)                                                                                                        
          (log/debug "Result was: " result)                                                                                                                              
          (Thread/sleep (* 1000 sleep-ms))                                                                                                                               
          (recur (rest retries)))))))