Skip to content

Instantly share code, notes, and snippets.

@niamu

niamu/beats.cljs

Last active March 24, 2017 18:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save niamu/4575e22293f434b9f8ad5f1b7a5881b4 to your computer and use it in GitHub Desktop.
Save niamu/4575e22293f434b9f8ad5f1b7a5881b4 to your computer and use it in GitHub Desktop.
Download ZIP
Swatch Internet Time (Beats Time)
Raw
beats.cljs
;; https://en.wikipedia.org/wiki/Swatch_Internet_Time
(defn beats
[]
(let [d (js/Date.)]
(->> (/ (+ (.getUTCSeconds d)
(* (.getUTCMinutes d) 60)
(* (inc (.getUTCHours d)) 3600))
86.4)
(.floor js/Math))))
(println (str "@" (beats)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment