application/octet-stream
•
842 B
•
25 lines
;;; Nujel - Copyright (C) 2020-2021 - Benjamin Vincent Schulenburg
;;; This project uses the MIT license, a copy should be included under /LICENSE
;;;
;;; Time related λs
(defn seconds (timestamp)
:export
"Return the seconds part of TIMESTAMP, defaults to current time"
(rem (or timestamp (time)) 60))
(defn minutes (timestamp)
:export
"Return the minutes part of TIMESTAMP, defaults to current time"
(rem (div/int (or timestamp (time)) 60) 60))
(defn hours (timestamp)
:export
"Return the hours part of TIMESTAMP, defaults to current time"
(rem (div/int (or timestamp (time)) 3600) 24))
(deftest 34 (time/seconds 1637755714))
(deftest 8 (time/minutes 1637755714))
(deftest 12 (time/hours 1637755714))
(deftest 59 (time/seconds 1637755739))
(deftest 0 (time/seconds 1637755740))
