Skip to content

Instantly share code, notes, and snippets.

@lamp

lamp/test.clj

Forked from chrisatfundingcircle/test.clj
Last active May 29, 2019 16:07
Show Gist options
  • Save lamp/d9719b4a7363f308ea5835f8091e1038 to your computer and use it in GitHub Desktop.
Save lamp/d9719b4a7363f308ea5835f8091e1038 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.clj
(defn add-statuses [instalments effective-date]
(map (fn [current previous]
(assoc current :status (cond
(<= (:due-date current) effective-date) :due
(<= (:due-date previous) effective-date) :open
:else :scheduled)))
(partition 2 1 [{:due-date 0}] instalments)))
vs
(defn add-statuses [instalments effective-date]
(map (fn [current previous]
(assoc current :status (cond
(<= (:due-date current) effective-date) :due
(<= (:due-date previous) effective-date) :open
:else :scheduled)))
instalments
(concat [{:due-date 0}] instalments )))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment