drewbo
8/22/2014 - 3:22 PM

ZeroPad.clj

 (defn zp "Zero Pad numbers - takes a number and the length to pad to as arguments"
   [n c] 
   (loop [s (str n)]  
     (if (< (.length s) c) 
         (recur (str "0" s)) 
         s)))