4 Examples top

• link | changes

  (def factorial
    (fn [n]
      (loop [cnt n acc 1]
         (if (zero? cnt)
              acc
            (recur (dec cnt) (* acc cnt))
  ; in loop cnt will take the value (dec cnt)
  ; and acc will take the value (* acc cnt)
  ))))

  (def factorial (fn [n] (loop [cnt n acc 1] (if (zero? cnt) acc (recur (dec cnt) (* acc cnt)) ; in loop cnt will take the value (dec cnt) ; and acc will take the value (* acc cnt) ))))
• link | changes

  ; A loop that sums the numbers 10 + 9 + 8 + ...
  
  ; Set initial values count (cnt) from 10 and down
  (loop [sum 0 cnt 10]
      ; If count reaches 0 then exit the loop and return sum
      (if (= cnt 0)
      sum
      ; Otherwise add count to sum, decrease count and 
      ; use recur to feed the new values back into the loop
      (recur (+ cnt sum) (dec cnt))))

  ; A loop that sums the numbers 10 + 9 + 8 + ... ; Set initial values count (cnt) from 10 and down (loop [sum 0 cnt 10] ; If count reaches 0 then exit the loop and return sum (if (= cnt 0) sum ; Otherwise add count to sum, decrease count and ; use recur to feed the new values back into the loop (recur (+ cnt sum) (dec cnt))))
• link | changes

  (loop [i 0]  
    (when (< i 5)    
      (println i)    
      (recur (inc i)); loop i will take this value
  ))

  (loop [i 0] (when (< i 5) (println i) (recur (inc i)); loop i will take this value ))
• link | changes

  (defn compute-across [func elements value]
    (if (empty? elements)
      value
      (recur func (rest elements) (func value (first elements)))))
  
  (defn total-of [numbers]
    (compute-across + numbers 0))
  
  (defn larger-of [x y]
    (if (> x y) x y))
  
  (defn greatest-of [numbers]
    (compute-across larger-of numbers (first numbers)))

  (defn compute-across [func elements value] (if (empty? elements) value (recur func (rest elements) (func value (first elements))))) (defn total-of [numbers] (compute-across + numbers 0)) (defn larger-of [x y] (if (> x y) x y)) (defn greatest-of [numbers] (compute-across larger-of numbers (first numbers)))