Clojure에서 문자열로 명명 된 변수를 정의하는 방법은 무엇입니까?

Question

변수의 이름 목록이 주어지면 해당 변수를 식으로 설정하려고합니다.

나는이 시도 :

(doall (for [x ["a" "b" "c"]] (def (symbol x) 666))) 

을 ...하지만이 오류를 얻을 수

의 java.lang.Exception : 첫 번째 인수가 기호해야 수비력

수 누구든지이 일을 제대로 수행 할 수있는 방법을 보여 주시겠습니까? 귀하의 코멘트에 대한 응답으로

Answer 1

Clojure에서의 "인턴"기능이 목적을위한 것입니다 :

(doseq [x ["a" "b" "c"]] 
    (intern *ns* (symbol x) 666)) 

Answer 2

(doall (for [x ["a" "b" "c"]] (eval `(def ~(symbol x) 666)))) 

는 :

여기에 포함 된 어떠한 매크로가 없습니다. eval은 목록을 취하여 해당 목록을 코드로 실행 한 결과를 코드로 반환하는 함수입니다. `와 ~는 부분 인용 목록을 만드는 지름길입니다.

은의`~

~ 다음 목록 인용하지 실행되어야한다 함수 호출 인 선행되지 않는 한 다음 목록의 내용이 인용되어야 의미한다.

그래서`(DEF ~ (심볼 X) 666) is the list containing the symbol DEF , followed by the result of executingfollowed by the number of the beast. I could as well have written 심볼 X (평가 (리스트 'DEF (심볼 X) (666)))'와 동일한 효과를 얻기 위해.

Answer 3

Stuart Sierra의 의견 (clojure.core/intern 언급)을 고려하여 업데이트되었습니다.

여기에 eval을 사용하면 괜찮 았지만 Vars가 이미 존재하는지 여부에 관계없이 필요하지 않다는 것을 아는 것은 흥미로울 수 있습니다. 사실, 그들이 존재하는 것으로 알려져 있다면, 나는 아래의 alter-var-root 솔루션이 더 깨끗하다고 ​​생각합니다; 그것들이 존재하지 않는다면, 나는 대안적인 제안을 훨씬 더 깨끗하게 주장하지 않을 것이지만, 가장 짧은 코드 (함수 정의를 위해 3 줄의 오버 헤드를 무시한다면)를 게시하는 것처럼 보인다. 그래서 나는 단지 포스트 할 것이다. 그것을 고려하십시오.

---

var에 존재하는 것으로 알려져 경우

(alter-var-root (resolve (symbol "foo")) (constantly new-value)) 

그래서 당신이 할 수있는 동일한 값이 모든 바르에 사용되는 있었다면

(dorun 
    (map #(-> %1 symbol resolve (alter-var-root %2)) 
     ["x" "y" "z"] 
     [value-for-x value-for-y value-for z])) 

(당신이 (repeat value)을 사용할 수 있습니다 마지막 인수를 매핑하거나 그냥 익명 함수에 넣으십시오.바르가 생성해야 할 수 있습니다)

---

, 당신은 실제로 나는 반드시이 eval 청소기보다라고 주장하지만, 어쨌든 않을 것이다, 다시 한번 (이 작업을 수행하는 함수를 작성할 수 있습니다 - 단지에 대한 그것의 관심) : var에가 밝혀지면 이미 주어진 네임 스페이스에 지정된 이름에 구금 된 것을

(defn create-var 
    ;; I used clojure.lang.Var/intern in the original answer, 
    ;; but as Stuart Sierra has pointed out in a comment, 
    ;; a Clojure built-in is available to accomplish the same 
    ;; thing 
    ([sym] (intern *ns* sym)) 
    ([sym val] (intern *ns* sym val))) 

주, 다음이 하나의 인수 경우 아무것도 변경하거나 단지에 바르 재설정 두 가지 주장에 새로운 가치가 주어진다. 목록의 모든 항목을 평가할 수있는 일반 함수 호출에 대한

user> (create-var 'bar (fn [_] :bar)) 
#'user/bar 
user> (bar :foo) 
:bar 

user> (create-var 'baz) 
#'user/baz 
user> baz 
; Evaluation aborted. ; java.lang.IllegalStateException: 
         ; Var user/baz is unbound. 
         ; It does exist, though! 

;; if you really wanted to do things like this, you'd 
;; actually use the clojure.contrib.with-ns/with-ns macro 
user> (binding [*ns* (the-ns 'quux)] 
     (create-var 'foobar 5)) 
#'quux/foobar 
user> quux/foobar 
5 

Answer 4

평가 규칙, 첫 번째 전화 :

(dorun (map #(create-var (symbol %) 666) ["x" "y" "z"])) 

일부 추가 예 : 이와 함께, 당신과 같이 원래의 문제를 해결할 수 항목을 함수로 사용하여 목록의 나머지 항목을 매개 변수로 사용합니다.

그러나 특수 폼이나 매크로에 대한 평가 규칙에 대한 가정은 할 수 없습니다. 특별한 형식이나 매크로 호출에 의해 생성 된 코드는 모든 인수를 평가하거나 평가하지 않거나 여러 번 평가하거나 인수를 평가할 수 있습니다. def은 특별한 형식이며 첫 번째 인수를 평가하지 않습니다. 그렇게했다면 작동하지 않을 수 있습니다. foo을 (def foo 123)으로 평가하면 대부분 "(예 : foo이 이미 정의 된 경우 사용자가 직접 정의하지 않을 경우)"그런 var 'foo'오류가 발생합니다.

나는 이것을 사용하고 있는지 확실하지 않지만 매우 관용적 인 것처럼 보이지 않습니다. def을 사용하면 프로그램의 최상위 레벨을 제외하고 일반적으로 뭔가 잘못하고 있다는 것을 의미합니다.

(참고 :. doall + for = doseq)