Question

我想按号码删除房间。如您所见，房间是原子列表，包含原子。我有一个例外：IllegalArgumentException不知道如何创建ISeq：core.main $ delete_room_by_id $ fn__7541 clojure.lang.RT.seqFrom（RT.java:487）

我有这段代码：

(comment ------------- * DATA * ----------------- )
(def rooms "atomic list of atoms - rooms" (atom '()))

(comment ------------- * UTILS * ----------------- )

(defn enter-value [message]
     (do (println message) (read-line)))

(comment ------------- * ADD ROOM * ----------------- )

(defn save-room "The function that will save provided room." 
     [number num-of-beds price]
     (swap! rooms conj (atom {:number number 
                              :num-of-beds num-of-beds
                              :price price 
                              :is-ocupated false})))

(defn enter-room "This function will create room based on user input." []
     (let [number (enter-value "Number...")
           num-of-beds (enter-value "Number of beds...")
           price (enter-value "Price...")]
       (save-room number num-of-beds price)))

(comment ------------- * DELETE ROOM * ----------------- )

(defn delete-room-by-number "Delete room by number."
     [number]
     (swap! rooms remove #(not (= (:number @%) number))))

我认为那个交换！函数不会根据需要放置删除函数的参数。我认为最后的命令是:(删除房间＃（不是（=（：数字@％）数字）））。这不好，因为我必须像@rooms一样去除房间并将其作为删除功能的第二个参数传递。

感谢您阅读本文。

Answer 1

两个功能有误。保存室中的值不应该是原子中的映射，而只是映射，因为否则您将原子保存在原子中。此外，按房间删除号码包含错误，匿名功能未正确写入。

(defn save-room "The function that will save provided room." 
           [number num-of-beds price]
           (swap! rooms conj {:number number :num-of-beds num-of-beds :price price :is-ocupated false}))

(defn delete-room-by-number [num]
     (swap! rooms #(remove (fn [room] (= (:number room) num)) %)))

<强>更新

更常见的做法是在atom / ref等中存储不可变的，可能嵌套的数据结构。一个更好的选择可能是不去列表而是一个矢量或地图，如下所示：

(def room-map {1 {:nums-of-beds 2 :price 30}, 2 {:nums-of-beds 4 :price 60}})

这样您就可以使用房间号码作为钥匙。这样您就不会有重复的房间号，因为地图键必须是唯一的。

您可以使用assoc-in，update-in等更新地图：

(def new-room-map (assoc-in room-map [2 :nums-of-beds] 40))

新房间地图的价值：{1 {:nums-of-beds 2, :price 30}, 2 {:nums-of-beds 40, :price 60}}

如果您要使用房间的地图表示，请将函数assoc-in与swap结合使用！并且您的房间地图的更新版本将存储在原子中。如果您无法理解这一点，我建议您阅读有关这些功能的更多信息：

http://clojuredocs.org/clojure_core/clojure.core/swap！ http://clojuredocs.org/clojure_core/clojure.core/assoc-in

如何从Clojure中的列表中删除项目

1 个答案: