이 NullPointerException의 원인은 무엇입니까?

Question

저는 프로젝트 오일러 질문을 사용하여 클로져를 배울 수있게 도와 드리겠습니다. 알아낼 수없는 예외 상황이 발생했습니다. nillify 및 change-all은 참조 용으로 하단에 정의되어 있습니다.

(loop [the-vector (vec (range 100)) 
     queue  (list 2 3 5 7)] 
    (if queue 
     (recur (nillify the-vector (first queue)) (next queue)) 
     the-vector)) 

이 경우 NullPointerException이 발생하며 그 이유를 알 수 없습니다. 내가 볼 수있는 코드의 유일한 부분은 과 같은 예외를 throw 할 수 있지만 nillify에 대한 호출이지만 예외가 throw되기 전에 큐가 한 요소 만 가져 오는 것처럼 보이지 않습니다. 빈 상태가되는 것이고, 그것은 if 문을위한 것입니다.

아이디어가 있으십니까?

가

(defn change-all [the-vector indices val] 
    (apply assoc the-vector (interleave indices (repeat (count indices) val)))) 

"는 벡터 및 발 주어진"벡터, 값 및 인덱스들의리스트/모든게 @ indice = 값 승 벡터를 돌려 주어 "벡터를 반환하는 모든 인덱스 엔트리와 nilled되는 발의 배수와 동일하지만, "본래 그대로두고

(defn nillify [coll val] 
    (change-all coll (range (* 2 val) (inc (last coll)) val) nil)) 

Answer 1

문제는 sexpr

(inc (last coll)) 

이다,536,

벡터의 내용이 변경되었으므로 길이를 더 이상 결정할 수 없습니다. 대신 :

(defn change-all [the-vector indices val] 
    (let [c (count indices) 
     s (interleave indices (repeat c val))] 
    (apply assoc the-vector s))) 

(defn nillify [coll val] 
    (let [c (count coll) 
     r (range (* 2 val) c val)] 
    (change-all coll r nil))) 

(loop [the-vector (vec (range 100)) 
     [f & r] '(2 3 5 7)] 
    (if r 
    (recur (nillify the-vector f) r) 
    the-vector))