두 목록

Question

나는이 목록에서 요소를 결합 할

에서 요소를 결합하는 방법, 내 프로그램이

(ns datamodel 

(:use 
[net.cgrand.enlive-html :as en-html ]) 
(:require 
[clojure.zip :as z] 
[clojure.data.zip.xml :only (attr text xml->) :as xz] 
[clojure.xml :as xml ] 
[clojure.data.zip.xml :as zf] 
[clojure.java.io :as io] 
)) 
(def data-url "http://api.eventful.com/rest/events/search?app_key=4H4Vff4PdrTGp3vV&keywords=music&location=Belgrade&date=Future") 
(defn map-tags-contents [url & tags] 
    (map #(hash-map % (keyword (last tags))) 
    (mapcat (comp :content z/node) 
     (apply xz/xml-> 
      (-> url xml/parse z/xml-zip) 
       (for [t tags] 
       (zf/tag= t) 
       ))))) 
(def titles (map-tags-contents data-url :events :event :title)) 
(def descriptions (map-tags-contents data-url :events :event :description)) 
(defn create-map [](for [el1 titles 
    el2 descriptions] (into {} (conj el1 el2)))) 

처럼 보인다하지만 목록에서지도를 결과로 만들 맵을 호출 할 때 복제됩니다. 나는 요소들이 결합 될 방법을 말하지 않았기 때문에 데카르트 조인 (Cartesian join)을 얻었 음을 알 수 있습니다. 그리고, 두 번째 요소 첫 번째지도에서와 두 번째 두 번째지도에서, 등등 ...

Answer 1

요소 현명한 조합

(map list [1 2 3] [:a :b :c]) ;=> ((1 :a) (2 :b) (3 :c)) 

직교 제품

결합 할 첫 번째지도에서와 첫 번째, 두 번째지도에서 첫 번째 요소를 원하는

(for [x [1 2 3], y [:a :b :c]] (list x y)) 
;=> ((1 :a) (1 :b) (1 :c) (2 :a) (2 :b) (2 :c) (3 :a) (3 :b) (3 :c)) 

Answer 2

그래서 FN은 @A이

(defn create-map [](map conj titles descriptions)) 

감사처럼 보일 것입니다. 웹