nilsnh/rainy-periods

🐬 A small clojure project where played around with some weather data.

rainy-periods's Issues

Kommentarer

Linje #15:
Det er mer vanlig å bruke - og ikke camel-case i clojure; det blir da:

(defn convert-to-numeric [x] ...)

I dette tilfelle ville jeg kanskje ikke kalt den numeric heller da du helt tydeligvis converterer til Double.

Linje #23:
Det er vanlig å slutte predikater med ?. (Et predikat er en funksjon retunerer enten true eller false og ingen andre verdier.) Det er heller ikke nødvendig med if-en her. Du kan i stedet skrive:

(defn rainy? [entry]
  (> (rain-level entry) 0))

Linje #27:
Her er det et potensiale for at en ny custom-formatter blir produsert hver gang denne funksjonen kjører. Det er flere måter å unngå dette på, men den letteste er å definere en konstant utenfor som holder denne verdien. Altså:

(def ^:private custom-formatter (f/formatter ...))

Her har jeg satt på meta-taggen ^:private også slik at denne variablen ikke kan bli aksessert utenfor namespace'et.

Linje #40:
Grunnen til at du får problemer her et at butlast retunerer en liste, men du bruker egentlig bare vectorer. Her kan du bruke pop istedet

(defn add-to-last-period [x y]
  (conj (pop x) (conj (last x) y))

Det er flere måter å gjøre dette på, og jeg ville kanskje en litt annen strategi.

Linje #46:
Jeg tror du fokuserer litt for mye på iterasjonen som reduce gjør her og ikke nok på reduksjonssteget og det er derfor dette blir litt rotete. Jeg tror jeg ser hva det er du prøver å gjøre her. Et triks som går ann å gjøre når du har et problem slik som du har her er at du kan bruke det første elementet i listen som steg en i reduksjonene. Du må ikke begynne med en tom liste, etc. F.eks:

(let [l [1 2 3 4]]
  (reduce + (first l) (rest l)))

I ditt tilfelle så tror jeg det blir mye ryddigere:

(defn rainy-periods [rain-data]
  (reduce (fn [x y]
            (if (consecutive-day? (last (last x)) y)
              (add-to-last-period (last (last x)) y)
              (create-new-period x y)))
          [[(first rain-data)]]
          (rest rain-data)))

Da fjerner du til og med en kondisjonal.

Som jeg sa tidligere så ville jeg kanskje brukt en annen strategi:

(defn consecutive-days [rain-data]
  (reduce (fn [days next-day]
            (let [previous-day (peek days)]
              (if (consecutive-day? previous-day next-day)
                (conj days next-day)
                (reduced days)))) ;;; Kortslutter og slutter å redusere.
          [(first rain-data)]
          (rest rain-data)))

(defn rainy-periods [rain-data]
  (loop [rain-data rain-data
         acc []]
    (let [days (consecutive-days rain-data)]
      (if (empty? days)
        acc
        (recur (drop (count days) rain-data)
               (conj acc days))))))

Jeg vet ikke om dette virker skikkelig, meb jeg tror det skal gjøre det samme du prøver å gjøre. Jeg bruker loop da jeg synes det er litt ryddigere akkurat på denne oppgaven. Jeg skulle nok greid å gjøre det med reduce også, men da blir det litt styggere igjen. Jeg har en følelse av at det er mulig å bruke reductions istedet og få det riktige resultatet veldig ryddig da, men det krever litt mer tenking.