1

私が地図を持っているとしましょう：

 {:top 2.8421709430404007E-14, :left 0, :down 240, :right 400N}

それを反復処理してすべてを整数に変換するにはどうすればよいですか?

 {:top 0, :left 0, :down 240, :right 400}

明らかな解決策は次のとおりです。

 {:top (:top m), :left (:left m), :down (:down m), :right (:right m)}

しかし、それは非常に繰り返されているように感じます。

ここでは還元関数がうまくいくと思いますが、どうすればよいかわかりません。

4

2 に答える 2

3

mapエントリに対してaを実行することは、別の方法である可能性があります。

(into {} (map (fn [[k v]] [k (int v)]) m))
;; {:top 0, :left 0, :down 240, :right 400}
于 2015-08-26T11:58:50.560 に答える
2

私は使用しなければなりませんでしたreduce-kv：

(reduce-kv #(assoc %1 %2 (int %3)) {} {:top 2.8421709430404007E-14, :left 0, :down 240, :right 400N})
;;=>{:down 240, :left 0, :right 400, :top 0}

編集： algo.generic.fmap同様に機能するようです。

編集 bis :関数がormap-valsの両方に存在する ことに言及してくれた @Andre に感謝します。weavejester/medleyprismatic/plumbing

からmedley:

(defn map-vals
  "Maps a function over the values of an associative collection."
  [f coll]
  (reduce-map (fn [xf] (fn [m k v] (xf m k (f v)))) coll))

からplumbing:

(defn map-vals
  "Build map k -> (f v) for [k v] in map, preserving the initial type"
  [f m]
  (cond
   (sorted? m)
   (reduce-kv (fn [out-m k v] (assoc out-m k (f v))) (sorted-map) m)
   (map? m)
   (persistent! (reduce-kv (fn [out-m k v] (assoc! out-m k (f v))) (transient {}) m))
   :else
   (for-map [[k v] m] k (f v))))
于 2015-08-26T10:16:39.283 に答える