Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Keyboard-input-Keypress-check/Clojure/keyboard-input-keypress-check.clj
+++ b/Task/Keyboard-input-Keypress-check/Clojure/keyboard-input-keypress-check.clj
@ -0,0 +1,16 @@
+(ns keypress.core
+  (:import jline.Terminal)
+  (:gen-class))
+
+(def keypress (future (.readCharacter (Terminal/getTerminal) System/in)))
+
+(defn prompt []
+  (println "Awaiting char...\n")
+  (Thread/sleep 2000)
+  (if-not (realized? keypress)
+    (recur)
+    (println "key: " (char @keypress))))
+
+(defn -main [& args]
+  (prompt)
+  (shutdown-agents))