gistfile1.clj

;; largest prime factor
(defn lpf 
  "Takes a number n and a starting number d > 1 
   and calculates the largest prime factor of n 
   starting at number d.

   usage: (lpf 364362978 2) => 8675309"
  [n d] 
  (if (> d n) 
    (- d 1) 
    (recur 
     (#(if (zero? (rem % d)) 
         (recur (/ % d)) 
         %) 
      n) 
     (inc d))))