将变量赋给Clojure中的多个向量

Question

clojure.contrib.sql模块有一个create-table函数，它接受表名和规范列表，如下所示：

(sql/create-table :services
                  [:id :serial "PRIMARY KEY"]
                  [:service_name :varchar "NOT NULL"]
                  [:pass_hash :varchar "NOT NULL"]
                  [:token :varchar "NOT NULL"])

如果我一次又一次地重用相同的列，有没有办法定义这样的东西？

(def same-columns 
                  [:id :serial "PRIMARY KEY"]
                  [:service_name :varchar "NOT NULL"]
                  [:pass_hash :varchar "NOT NULL"]
                  [:token :varchar "NOT NULL"])

当我尝试在REPL中运行它时，我得到了一个错误，因为它向def传递了太多的参数。

Answer 1

您可能会使用apply来完成以下操作：

(def same-columns [[:id :serial "PRIMARY KEY"]
                   [:service_name :varchar "NOT NULL"]
                   [:pass_hash :varchar "NOT NULL"]
                   [:token :varchar "NOT NULL"]])

(apply sql/create-table 
       :services 
       same-columns)

如果您有其他列，也可以添加这些列：

(apply sql/create-table 
       :services
       [:some-column :varchar "NOT NULL"]
       same-columns)