 
 
 
-(accumulator :高中 abcd)
+;(accumulator :信用等级 abcd)
 
 (defn age-estimated-utility
   [entry]

                    second
                    read-string
                    (- (t/year (t/today))))
        edu [:生日 :高中 :中专技校 :初中 :小学 :大学]
        edu-age {:生日 0 :高中 15 :中专技校 15 :初中 12 :小学 6 :大学 18}
        birth (get entry :生日)]
    (loop [a edu]
      (let [item (get entry (first a))]
        (when-not (empty? a)
          (if (and (not (nil? item)) (not (nil? (regex item))))
            (+ (get edu-age (first a)) (since item))
            (recur (rest a))))))))

(frequencies (remove nil? (map age-estimated-utility abcd)))



(re-find #"\(([^\(年\)]+)年\)" "(1985年)春天")

(re-find #"(\d+)年\d+月\d+日" "1985年10月5日")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;working zone;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(mg/connect! {:host "192.168.1.184" :port 7017})


;(def abcd (mc/find-maps "car_weibo_history_detaileduser"))

;(doall (get-keys abcd))

(defn accumulator
  [the-key coll]
