if-statement - clojure で if-let をネストするより良い方法

Question

次の形式のマップがあるとします。

(def m {:a "A" :b "B"})

:aと:bが両方とも nil でない場合、私は何かをしたい、私はすることができます:

(if-let [a (:a m)]
  (if-let [b (:b m)]
      ... etc ))

また

(if (and (:a m) (:b m))
  (let [{a :a b :b} m]
      ... etc ))

あるいは

(if (every? m [:a :b])
  (let [{a :a b :b} m]
      ... etc ))

これを達成するためのよりきちんとした（つまり、1行の）方法はありますか？

score 7 · Accepted Answer

必要な動作を作成するには、ここでマクロが必要になる場合があると思います。私は（まだ）書いたことはありませんが、次の表現は、これがかなり簡単であることを示唆しています。

(let [{:keys [a b]} m]
   (when (every? identity [a b])
      (println (str "Processing " a " and " b))))

:keysバインドを破壊する形式を使用するevery?と、キーのベクトルの 1 つの指定でデストラクチャリングとチェックが可能になり、バインドされたローカルは次のコードブロックで使用できます。

これは、次のようなマクロを作成するために使用できます。(when-every? [keys coll] code-with-bindings)

時間をかけてその方法を理解できる場合は、この回答をマクロコードで更新することがあります。

score 6 · Accepted Answer

Clojure の便利な機能であるmap destructuringを使用できます。andこれはまた、短絡している事実を悪用し、2 番目のマップで見つからない最初のマップのキーはnil、偽の値を取得します。

(let [{a :a b :b} {:a 1 :b "blah"}] 
  (and a b (op a b)))

さて、それは1行ではなく2nil行です....また、これはと他の偽の値を区別しません。

score 1 · Accepted Answer

not-any?これの良いショートカットです：

user> (not-any? nil? [(m :a) (m :b)])
true
user> (not-any? nil? [(m :a) (m :b) (m :d)])
false
user>

5 に答える 5