Fix domains

This commit is contained in:
Andros Fenollosa 2019-10-08 00:37:17 +02:00
parent 612e713c33
commit e5d613360b
2 changed files with 4 additions and 18 deletions

View File

@ -33,17 +33,3 @@
domains-checks (doall (vec (map #(conj % (wordpress? (get % 1))) domains)))] domains-checks (doall (vec (map #(conj % (wordpress? (get % 1))) domains)))]
;; Save domains to CSV ;; Save domains to CSV
(save-csv-domains file-csv domains-checks))) (save-csv-domains file-csv domains-checks)))
;; (defn -main
;; [& args]
;; ;; Read CSV with all domains
;; (with-open [reader (io/reader (clojure.java.io/resource "top-1m-test.csv"))]
;; (doall
;; (let [domains (csv/read-csv reader)
;; ;; Check is WordPress
;; domains-with-wordpress (vec (map #(conj % (wordpress? (get % 1))) domains))]
;; ;; Save CSV
;; (with-open [writer (io/writer (clojure.java.io/resource "top-1m-test.csv"))]
;; (csv/write-csv writer (doall domains-with-wordpress)))
;; ))))

View File

@ -1,4 +1,4 @@
1,google.com,false 1,google.com
2,youtube.com,false 2,youtube.com
4,tmall.com,false 4,tmall.com
5,idecrea.es,true 5,idecrea.es

1 1 google.com false
2 2 youtube.com false
3 4 tmall.com false
4 5 idecrea.es true