폐쇄 목록에서 문자열 목록을 복식 목록으로 변환하려면 어떻게해야합니까?

Question

mymap이 생성되는 것과 동시에 'mymap'의 값을 문자열 목록 대신 Doubles 목록으로 변환하려면 어떻게해야합니까?

(use '[clojure.string :only (join split)]) 
;(def raw-data (slurp "http://ichart.finance.yahoo.com/table.csv?s=INTC")) 
;Downloaded and removed the first line 
(def raw-data (slurp "table-INTC.csv")) 


(def raw-vector-list 
    (map 
    #(split % #",")   ; anonymous map function to split by comma 
    (split raw-data #"\n"))) ; split raw data by new line 

(pr (take 1 raw-vector-list)) 

(def mymap 
    (zipmap 

    ;construct composite key out of symbol and date which is head of the list 
    (map #(str "INTC-" %) (map first raw-vector-list)) 

    ;How do i convert these values to Double instead of Strings? 
    (map rest raw-vector-list))) 

(pr (take 1 mymap))  

Answer 1

(def mymap 
    (zipmap 
    (map #(str "NAT-" %) (map first raw-vector-list)) 
    (map #(map (fn [v] (Double/parseDouble v)) %) 
     (map rest raw-vector-list)))) 

(pprint (take 1 mymap)) 
-> (["NAT-1991-09-30" (41.75 42.25 41.25 42.25 3.62112E7 1.03)]) 

이 데이터의 꼬리/나머지 부분에 대한

(def mymap 
    (map (fn [[date & values]] 
     [(str "NAT-" date) 
      (map #(Double/parseDouble %) values)]) 
     ;; Drop first non-parsable element in raw-vector-list 
     ;; ["Date" "Open" "High" "Low" "Close" "Volume" "Adj Close"] 
     (drop 1 raw-vector-list))) 

Answer 2

그래서 또 다른 버전. 익명, 맵 함수를 문자열 목록에 매핑 한 다음 형식 변환을 각 하위 목록의 요소에 매핑합니다.

(def mymap 
    (zipmap 
    (map #(str "NAT-" %) (map first raw-vector-list)) 
    (map #(map (fn [v] (Double/parseDouble v)) %) 
    (map rest raw-vector-list)))) 

다음과 같은 함수로 형식 변환을 어떻게 풀 수 있습니까?

(defn str-to-dbl [n] (Double/parseDouble n)) 

이 코드는 중첩 된 #에 대해 불평합니다.

(def mymap 
    (zipmap 
    (map #(str "NAT-" %) (map first raw-vector-list)) 
    (map #(map #(str-to-double %) 
    (map rest raw-vector-list))))