Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 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))