AI核心代码，估值一个亿 Clojure 版本，4行代码实现

ai.clj

(loop [value (read-line)]
  (if (not= value "exit")
    (do (prn (clojure.string/replace value #"吗|？|\?" {"吗" "", "？" "！", "?" "!"}))
        (recur (read-line)))))

;; (ai)
;; Hello?
;; 能听懂汉语吗？
;; 真的是人工智能？

;; function define
;; (defn ai []
;;   (loop [value (read-line)]
;;     (if (not= value "exit")
;;       (do (prn (clojure.string/replace value #"吗|？|\?" {"吗" "", "？" "！", "?" "!"}))
;;           (recur (read-line))))))