compare-and-set을 사용한 지연 평가

Question

처음 Monger에서 데이터베이스 참조를 가져 오는 get-database 함수를 구현하려고합니다. 원자에서 값을 기억하고 후속 호출에서 직접 반환합니다. 나의 현재 코드는 다음과 같습니다

(def database (atom nil)) 

(defn get-database 
    [] 
    (compare-and-set! database nil 
    (let [db (:db (mg/connect-via-uri (System/getenv "MONGOLAB_URI")))] db)) 
    @database) 

문제는 let 절은 거짓 경우에도 compare-and-set! 수익률을 평가하는 것 같다 (즉 database이 nil하지 않습니다). 느슨하게 평가할 수있는 방법이있어 Monger 연결을 검색하는 페널티가 발생하지 않거나 근본적으로 잘못된 방법일까요?

Answer 1

여기서 문제는 compare-and-set!이 함수이므로 평가할 때 앞에있는 모든 매개 변수를 평가하면 전에 함수가 호출됩니다.

내가 캐싱 및 약간의 비용이 드는 계산 값을 다시 사용하는 사용 사례에 대해 수행 일반적인 접근 방식은 함께 delay A :

는 표현의 몸을 취득 해하는 지연 개체를 얻을 수 은 강제로 처음으로 (force 또는 deref/@를 사용하여) 본문을 호출하고 은 결과를 캐시하고 모든 후속 강제 호출 호출시이를 반환합니다. 또한보십시오 - 깨달았습니까? 귀하의 경우에는

:

(def database (delay (:db (mg/connect-via-uri (System/getenv "MONGOLAB_URI"))))) 

지금 당신은 @database 데이터베이스에 대한 참조를 얻기 위해 원하는 시간을 말할 수 있고, 연결이 코드가 실제로 지연이 발생 처음 초기화 얻을 것이다 역 참조 될 수 있습니다. 원할 경우 get-database 함수 내에서 지연을 역 참조하기 위해 호출을 래핑 할 수 있지만 필요하지는 않습니다.