Progress Bar 04/16/2008
 

Here's a simple function for a progress bar

(def disp-progress (start end)
      (for i start end
       (if (is (mod i (/ (- end start) 10) ) 0)
           (prn (to-nearest (* 10 (/ (- i start) (/ (- end start) 10))) 10)))))

 


Comments




Leave a Reply