gistfile1.clj

(defn average-b                                                                                                                                   
  "Calculates average value of any numbers"                                                                                                       
  []                                                                                                                                              
  (println "How many numbers ?")                                                                                                                  
  (let [n (Integer/parseInt (read-line))]                                                                                                         
    (loop [m 1 sum 0]                                                                                                                             
      (if (> m n)                                                                                                                                 
        (/ sum n)                                                                                                                                 
        (do                                                                                                                                       
          (println (str "Enter number " m ": "))                                                                                                  
          (recur (inc m) (+ sum (Double/parseDouble (read-line)))))))))