NullPointerException in Clojure reduceメソッド

Question

私は最初のClojureプログラムでNPEに苦労しています。

call-elemが含む構造体である： -

• :id次のように、some.packagename.SomeClass.someMethod
• :calls（子供）のような文字列は、他の構造体call-elem

のベクトルが定義される：

(defstruct call-struct :id :calls) 

(defn- class-name [call] 
    (let [id (call :id)] 
    (.substring id 0 (.lastIndexOf id ".")))) 

(defn- method-name [call] 
    (let [id (call :id)] 
    (.substring id (inc (.lastIndexOf id "."))))) 

私はまた、fooという方法を持っており、これは引数としてclass-mapとcall-elemをとります。 class-mapはclass-name〜method-mapの地図です。 method-mapは、method-nameのマップとvariationのリストです。各variationは、キーが:class-name,:method-name、:callsのマップです。 :callsは他のバリエーションのリストです。 foo関数は、2つの要素を持つベクトルを返す必要があります： -

• 最初の要素は2番目の要素は引数に対応したバリエーションマップで新しいcall-elemに対応するエントリとその子
• とクラスマップですここでcall-elem

はコードです：

(declare foo' add-new-variation) 

(defn foo [class-map call-elem] 
    (let [children (call-elem :calls) 
     class-name (class-name call-elem) 
     method-name (method-name call-elem)] 
    (if (empty? children) 
     (let [new-variation {:class-name class-name 
          :method-name method-name 
          :calls []} 
      new-class-map (add-new-variation class-map 
              class-name method-name 
              new-variation)] 
     [new-class-map new-variation]) 
     (let [[new-class-map child-variations-list] 
      (reduce #(foo' %1 %2) (class-map '()) children) 
      new-variation {:class-name class-name 
          :method-name method-name 
          :calls child-variations-list} 
      new-class-map' (add-new-variation new-class-map 
               class-name method-name 
               new-variation)] 
     [new-class-map' new-variation])))) 

(defn foo' [[class-map variations-list] call-elem] 
    (let [[new-class-map new-variation] (foo class-map call-elem)] 
    [new-class-map (cons new-variation variations-list)])) 

(defn add-new-variation [class-map class-name method-name variation] 
    (let [method-map (if (contains? class-map class-name) 
        (class-map class-name) {}) 
     variations-list (if (contains? method-map method-name) 
          (method-map method-name) []) 
     new-variations-list (conj variations-list variation) 
     new-method-map (assoc method-map method-name new-variations-list)] 
    (assoc class-map class-name new-method-map))) 

私はFOを実行しようとするとllowingコード：私は次のような結果を得る

(try 
    (let [call-elem 
     (struct call-struct "Class1.method1" 
       [(struct call-struct "Class2.method1" [])])] 
    (second (foo {} call-elem))) 
    (catch Exception ex 
     (.printStackTrace ex))) 

：

(try 
    (let [call-elem 
     (struct call-struct "Class1.method1" 
       [(struct call-struct "Class2.method1" 
         [(struct call-struct "Class3.method1" [])])])] 
    (second (foo {} call-elem))) 
    (catch Exception ex 
     (.printStackTrace ex))) 

：私は1つのレベルより深い呼び出しを高め、次のコードを実行しようとすると

{:class-name "Class1", 
:method-name "method1", 
:calls ({:class-name "Class2", :method-name "method1", :calls []})} 

しかし、私はNullPointerException取得します

ここにスタックトレースがあります：

java.lang.NullPointerException 
    at first.simple$foo.invoke(NO_SOURCE_FILE:46) 
    at first.simple$foo_SINGLEQUOTE_.invoke(NO_SOURCE_FILE:55) 
    at first.simple$foo$fn__1986.invoke(NO_SOURCE_FILE:46) 
    at clojure.lang.ArrayChunk.reduce(ArrayChunk.java:58) 
    at clojure.core.protocols$fn__5565.invoke(protocols.clj:30) 
    at clojure.core.protocols$fn__5543$G__5538__5552.invoke(protocols.clj:11) 
    at clojure.core$reduce.invoke(core.clj:5995) 
    at first.simple$foo.invoke(NO_SOURCE_FILE:46) 
    at first.simple$eval2010.invoke(NO_SOURCE_FILE:6) 
    at clojure.lang.Compiler.eval(Compiler.java:6465) 
    at clojure.lang.Compiler.eval(Compiler.java:6431) 
    at clojure.core$eval.invoke(core.clj:2795) 
    at clooj.repl$create_clojure_repl$repl_thread_fn__578$fn__589.invoke(repl.clj:147) 
    at clojure.main$repl$read_eval_print__5967.invoke(main.clj:244) 
    at clojure.main$repl$fn__5972.invoke(main.clj:265) 
    at clojure.main$repl.doInvoke(main.clj:265) 
    at clojure.lang.RestFn.invoke(RestFn.java:1523) 
    at clooj.repl$create_clojure_repl$repl_thread_fn__578.invoke(repl.clj:145) 
    at clojure.lang.AFn.run(AFn.java:24) 
    at java.lang.Thread.run(Thread.java:680) 

Answer 1

fooにreduceを詳しく見てみましょう。 reduceのアキュムレータの初期値として2要素コレクションを渡そうとしていると思われます。ただし、引用符で囲まれていない括弧を使用すると、(class-map '())が評価対象の式として扱われます。事態を悪化させるには、class-mapがclojure.lang.PersistentArrayMapであるため、IFnという具合に有効です。その結果、代わりにclass-mapには'()キーがありませんようおそらく、nilを返しますが(class-map '())を呼んでいる2つの要素リストを作成する

。その後、foo'にnilを[class-map variations-list]にバインドしようとしています。ブーム。ヌルポインタ例外。

reduceという2番目の引数をベクトルとして定義すると、問題は解決します。

--- before 2011-12-27 12:52:43.052218334 +0100 
+++ after 2011-12-27 12:52:56.785477270 +0100 
@@ -13,7 +13,7 @@ 
               new-variation)] 
     [new-class-map new-variation]) 
     (let [[new-class-map child-variations-list] 
-   (reduce #(foo' %1 %2) (class-map '()) children) 
+   (reduce #(foo' %1 %2) [class-map '()] children) 
      new-variation {:class-name class-name 
          :method-name method-name 
          :calls child-variations-list}