怎么交换！和mmap函数在这里工作？

Question

这是Reagent project的片段。看看complete-all和clear-done，我的理解是要换出修改后的地图。我不明白它是如何完成的。 mmap的定义要求3个参数 - 并且complete-all似乎用两个来调用它，即map和#(assoc-in % [1 :done] v)。 clear-done调用remove和#(get-in % [1 :done])。我尝试使用repl来进行实验，但无法获得requires。

(ns todomvc.core 
     (:require [reagent.core :as r])) 

    (defonce todos (r/atom (sorted-map))) 

    (defonce counter (r/atom 0)) 

    (defn add-todo [text] 
     (let [id (swap! counter inc)] 
     (swap! todos assoc id {:id id :title text :done false}))) 

    (defn toggle [id] (swap! todos update-in [id :done] not)) 
    (defn save [id title] (swap! todos assoc-in [id :title] title)) 
    (defn delete [id] (swap! todos dissoc id)) 

    (defn mmap [m f a] (->> m (f a) (into (empty m)))) 
    (defn complete-all [v] (swap! todos mmap map #(assoc-in % [1 :done] v))) 
    (defn clear-done [] (swap! todos mmap remove #(get-in % [1 :done]))) 

Answer 1

RTFM。现有映射作为函数的第一个参数传递。当一切都失败...