在 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)