Clojure从数据库获取数据，转换并打印到控制台

Question

我有以下任务。
我需要创建一个使用一个参数的控制台应用程序，该参数是要生成的数据数量。 数据是人的地址和姓名。 我创建一个包含state, city, zip-code字段的表格adress 。 我还创建一个表first和last name列。 我使用HugSQL处理PostgreSQL。 因此，我想动态混合地址，名字和姓氏，并将结果打印到控制台中，生成的值的数量取决于传递给应用程序的参数。 这是我的代码：

(ns project.core
  (:require
    [project.db.get :as get]))

(defn parse-int [s]
  (Integer. (re-find  #"\d+" s )))

(def usa-data (get/usa))

(defn usa-adress-getter []
  (let [data (into {} (shuffle  usa-data))
        city (get data :city)
        state (get data :state)
        zip (get data :zip_code)]
    (str state " " city " " zip)))

(defn repeater [times]
  (dotimes [i times]
    (println (usa-adress-getter))))

(defn -main [value]
  (repeater (parse-int value)))

在这里，我只是检查usa-adress-getter函数的结果。 但是功能评估的时间太大，我在1分钟内有1百万个值的限制。 如何提高评估速度？ 函数(get/usa)从adress表中检索所有数据。

Answer 1

从这段代码很难说出性能瓶颈在哪里，但是这里有一些技巧：

• 对热点使用类型提示。 有时Clojure编译器无法找出类型，然后使用类型提示可以加快处理速度。 在这种情况下，可以在usa-address-getter fn上进行设置： (defn ^String usa-adress-getter [] ...)
• 您可以考虑修改查询，以使其从数据库返回连接的字符串（使用诸如concat类的SQL函数）。 这样，您将不需要从哈希中获取值并自己构建字符串。
• 打印内容可能很慢，因此您可以消除这种情况，例如@leetwinsky说。
• 您必须详细评估代码的性能，否则您将无法判断修改是否使您获得了一定的速度。 例如，您可以放置​​一个计时器，该计时器为每处理1000条记录打印毫秒数。 当然，一次只能进行一次更改。

希望这可以帮助。