1 files changed, 13 insertions, 0 deletions
diff --git a/rnd/clj/timer.clj b/rnd/clj/timer.clj
new file mode 100644
index 0000000..47fef78
--- /dev/null
+++ b/rnd/clj/timer.clj
@@ -0,0 +1,13 @@
+;; timer.clj
+
+(defn print-without-newline [string]
+ (print string)
+ (flush))
+
+(defn timer-for [minutes]
+ (let [seconds (* minutes 60)]
+ (doseq [n (reverse (range seconds))]
+ (Thread/sleep 1000)
+ (print-without-newline (str "\r" (quot n 60) " m " (mod n 60) " s ")))))
+
+(timer-for 1.1)
\ No newline at end of file
|