2

2 つのリストの要素を結合したいのですが、私のプログラムは次のようになります。

(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 ))))

しかし、 create-map を呼び出すと、リスト内の結果のマップが複製されます。要素がどのように結合されるかを述べていなかったので、デカルト結合を取得したことがわかりました。そして、最初のマップの最初の要素と2番目のマップの最初の要素を結合し、最初のマップの2番目の要素と2番目のマップの2番目の要素などを結合したい.

4

2 に答える 2

5

要素ごとの組み合わせ

(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))
于 2013-05-27T15:39:05.300 に答える