Clojure：在structmap中獲取單值和映射

Question

我有一系列值，我從別的地方按照已知的順序獲得。我也有一個單獨的價值。這兩個我想放入一個結構。即

(defstruct location :name :id :type :visited) 

現在我有一個列表

(list "Name" "Id" "Type") 

這是一個正則表達式的結果。

然後我想把一個布爾值在：visited;產生如下結構：

{:name "Name" :id "Id" :type "Type" :visited true} 

我該怎麼做？我嘗試了apply和struct-map的各種組合。我得到儘可能：

(apply struct-map location (zipmap [:visited :name :id :type] (cons true (rest match)))) 

但這可能是完全去解決它的錯誤方式。

Answer 1

如何：

(def l (list "Name" "Id" "Type")) 
(defstruct location :name :id :type :visited) 
(assoc 
    (apply struct location l) 
    :visited true) 

Answer 2

您的版本看起來不錯。通過into一個小捷徑：

user> (let [match (list "Name" "Id" "Type")] 
     (into {:visited true} 
       (zipmap [:name :id :type] match))) 
{:visited true, :type "Type", :id "Id", :name "Name"} 

merge也會工作。

Answer 3

，如果你是在1.2，您應該使用的記錄不是結構。

(defrecord location [name id type visited]) 

(defn getLoc [[name type id] visited] (location. name id type visited)) 

(getLoc (list "name" "type" "id") true) 
#:user.location{:name "name", :id "id", :type "type", :visited true}