Clojure：フィルタはどのようにロジックと相互作用しますか？

Question

私はClojureを習得しようとしていますので、オイラーのプロジェクトの課題を解決するには良い方法があると思いました。最初の課題は、3または5で割り切れる1000以下の数を合計することです。

私の元のコードはでした：

(defn div3 [input-no] (zero? (mod input-no 3))) 
(defn div5 [input-no] (zero? (mod input-no 5))) 
(reduce + (filter (or div3 div5) (range 1 1000))) 

しかし、それは動作しませんでした、そしてそれはフィルタがちょうど5

で割り切れるものを3で割り切れる数のリストを返し、ないだろうと判明

コードを次のように変更しました：

(defn div3or5 [input-no] (or (div3 input-no) (div5 input-no))) 
(reduce + (filter div3or5 (range 1 1000))) 

正しい結果が得られましたが、元のコードが機能しなかった理由はわかりません。

誰もがこれにいくつかの光を当てることができますか？

Answer 1

：

=> (or div3 div5) 
#<user$div3 user$div3@73305c> 

つまり、orは（そしてあなたが記述行動を与え、使用しているfilter）機能div3に評価しています。

orの理由は、最初の偽の引数（すなわち、nilまたはfalseではない最初の引数）を返します。この場合、引数は2つの関数オブジェクトであり、関数オブジェクトはnilまたはfalseではありません。

別の言い方をすると、orは機能自体で起こっているのであり、機能の結果ではありません。 Paulが言ったように、無名関数を使って、orを関数自体ではなく結果に作用させることができます。

Answer 2

実行中の問題は、filterは、最初の引数として述語（入力を受け取り、真または偽を返す関数）が必要であるということです。しかし、div3とdiv5は関数ですが、それらを単にorと組み合わせることはできません。 1つの引数をとり、これをdiv3とdiv5の両方に送り、orと両方の結果を呼び出す新しい関数を作成する必要があります。

幸い、これはClojureの中で行うのは簡単で、

#()を試みることは、関数のインラインを定義するための省略形です（またラムダと呼ばれる）と、あなたは、第二に%1との最初の引数に取得することができます%2と続きます。引数が1つしかない場合は%1see this questionに%を使用できます。

また#()が はこのようになりますfnフォームのためだけ糖衣構文であることを理解することもできます。(fn [arg1 arg2 ... & restArgs] (forms))。 #()にはいくつかの制限があります（たとえば、ネストすることはできません）。あなたはちょうどあなたが何が起こっているかを見ることができますREPLで(or div3 div5)を評価する場合