nilsnh
/
rainy-periods
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed clojure code to be more idiomatic. Uses pop instead of butlast and peek instead of last.

This commit is contained in:
Nils Norman Haukås 2014-11-17 13:22:25 +01:00
parent fa7cdeebec
commit ba23cfb76f
1 changed files with 23 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/weather_data/rainiestperiod.clj
View File

@ -9,41 +9,43 @@
(doall
(csv/read-csv in-file))))
(defn convertToNumeric [x]
(defn convert-to-double [x]
(try (Double. x)
(catch Exception e 0)))
(defn parseTime [entry]
(defn parse-time [entry]
(let [custom-formatter (f/formatter "dd.MM.YYYY")]
(f/parse custom-formatter (nth entry 1))))
(defn consecutiveDay [entry1 entry2]
(defn consecutive-day? [entry1 entry2]
(or (empty? entry1)
(= (t/plus (parseTime entry1) (t/days 1)) (parseTime entry2))
(= (t/minus (parseTime entry1) (t/days 1)) (parseTime entry2))))
(= (t/plus (parse-time entry1) (t/days 1)) (parse-time entry2))
(= (t/minus (parse-time entry1) (t/days 1)) (parse-time entry2))))
(defn filterRain [place]
(letfn [(getRainLevel [entry] (convertToNumeric (nth entry 5)))]
(filter #(> (convertToNumeric (getRainLevel %)) 0) place)))
(defn filter-rain [place]
(letfn [(get-rain-level [entry] (convert-to-double (nth entry 5)))]
(filter #(> (convert-to-double (get-rain-level %)) 0) place)))
(def rainObservationsByPlace
(def rain-observations-by-place
(letfn [(location [entry] (nth entry 0))]
(partition-by location (filterRain (rest csv)))))
(partition-by location (filter-rain (rest csv)))))
(defn findRainyPeriods
(defn find-rainy-periods
"Builds nested list of rainy periods: [[[<-entry->]<-rainyperiods->]]"
([remaining] (findRainyPeriods [[(first remaining)]] (rest remaining)))
([remaining] (find-rainy-periods [[(first remaining)]] (rest remaining)))
([result remaining]
(if(empty? remaining) result
(if(consecutiveDay (last (last result)) (first remaining))
(recur (conj (vec (butlast result)) (conj (last result) (first remaining))) (rest remaining))
(recur (conj result [(first remaining)]) (rest remaining))))))
(letfn [(add-to-lastperiod [result entry] (conj (pop result) (conj (peek result) entry)))
(create-new-period [result entry] (conj result [entry]))]
(if(empty? remaining) result
(if(consecutive-day? (peek (peek result)) (first remaining))
(recur (add-to-lastperiod result (first remaining)) (rest remaining))
(recur (create-new-period result (first remaining)) (rest remaining)))))))
(def rainyPeriods (map findRainyPeriods rainObservationsByPlace))
(def rainy-periods (map find-rainy-periods rain-observations-by-place))
(defn findRainiestPeriod [periods]
(let [rainiestPeriods (map #(last (sort-by count %)) periods)]
(last (sort-by count rainiestPeriods))))
(defn find-rainiest-period [periods]
(let [rainiest-periods (map #(last (sort-by count %)) periods)]
(last (sort-by count rainiest-periods))))
(findRainiestPeriod rainyPeriods)
(find-rainiest-period rainy-periods)