defclass/clojure-jd.clj Secret

## clojure-jd.clj
;;Happy hacking - Emacs ♥ you!

(def company-info {:name "XXX"
                   :url "http://www.XXXX.cn"
                   :describe "团队成立两年, 想做的事情就是服务青年艺术家，把他们的优质作品带到老百姓家中。
中间磕磕碰碰走了一些弯路，现在定位很清晰就是做最值得信赖的艺术电商。"})

(count company-clojure-team) => 2


(def clojorians
  "Only accept from Hangzhou : ("
  (get-only-from "杭州"))

(def benefits
  ["13 ~ 20k/per month"
   "13薪"
   "项目奖金"
   "牛人可再和老板谈"])

(def jd
  ["喜欢我们在做的事情，请先看 (http://www.hoolay.cn)"
   "独当一面，需要你后端开发至有少两年经验，而且热爱你的工作."
   "接触过lisp,并有项目展示(clojure, common lisp , scheme等均可)，自己做的小项目也可参考。"
   "自我驱动，勇于探索，解决问题"
   "可以傲可以倔，但是善于分担，沟通，换位思考"])

(def plus-items
  ["喜欢函数式, haskell, clojure, erlang, elixir, ocaml, f#..."
   "分布式经验，riak, cassandra, dynamodb, hadoop, spark等"
   "熟悉http,tcp/ip, protobuf等协议"
   "有开源项目"
   "有React.js经验"
   "有技术博客，github,stackoverflow供参考"])

(defn check? [clojurian]
  (letfn [(match? [clojurian]
            (every? #(.contains clojurian %) jd))
          (great? [clojurian]
            (some #(.contains clojurian %) plus-items))]
    (if (match? clojurian)
      (do (if (great? clojurian)
            (prn "Great!")
            (prn "OK!"))
          true)
      false)))

(def contact-info nil})

(defn flow [clojurian]
  (with-conn contact-info
    (when (check? clojurian)
      (do (prn "Welcone to our team")
          (when-let [recommend-person (:recommand clojurian)]
            (swap! recommend-person assoc :rewards "one ipad mini"))
          (prn "Have fun!")
          (assoc cojurian :benefit benefits)))))
	;;Happy hacking - Emacs ♥ you!

	(def company-info {:name "XXX"
	:url "http://www.XXXX.cn"
	:describe "团队成立两年, 想做的事情就是服务青年艺术家，把他们的优质作品带到老百姓家中。
	中间磕磕碰碰走了一些弯路，现在定位很清晰就是做最值得信赖的艺术电商。"})

	(count company-clojure-team) => 2


	(def clojorians
	"Only accept from Hangzhou : ("
	(get-only-from "杭州"))

	(def benefits
	["13 ~ 20k/per month"
	"13薪"
	"项目奖金"
	"牛人可再和老板谈"])

	(def jd
	["喜欢我们在做的事情，请先看 (http://www.hoolay.cn)"
	"独当一面，需要你后端开发至有少两年经验，而且热爱你的工作."
	"接触过lisp,并有项目展示(clojure, common lisp , scheme等均可)，自己做的小项目也可参考。"
	"自我驱动，勇于探索，解决问题"
	"可以傲可以倔，但是善于分担，沟通，换位思考"])

	(def plus-items
	["喜欢函数式, haskell, clojure, erlang, elixir, ocaml, f#..."
	"分布式经验，riak, cassandra, dynamodb, hadoop, spark等"
	"熟悉http,tcp/ip, protobuf等协议"
	"有开源项目"
	"有React.js经验"
	"有技术博客，github,stackoverflow供参考"])

	(defn check? [clojurian]
	(letfn [(match? [clojurian]
	(every? #(.contains clojurian %) jd))
	(great? [clojurian]
	(some #(.contains clojurian %) plus-items))]
	(if (match? clojurian)
	(do (if (great? clojurian)
	(prn "Great!")
	(prn "OK!"))
	true)
	false)))

	(def contact-info nil})

	(defn flow [clojurian]
	(with-conn contact-info
	(when (check? clojurian)
	(do (prn "Welcone to our team")
	(when-let [recommend-person (:recommand clojurian)]
	(swap! recommend-person assoc :rewards "one ipad mini"))
	(prn "Have fun!")
	(assoc cojurian :benefit benefits)))))