Handle a signal: Difference between revisions

→‎Clojure: Add demonstration
(Added bash solution)
(→‎Clojure: Add demonstration)
Line 223:
}
}</lang>
 
=={{header|Clojure}}==
 
<tt>(= (- Java verbosity) Clojure)</tt>
 
<lang Clojure>(require 'clojure.repl)
 
(def start (System/nanoTime))
 
(defn shutdown [_]
(println "Received INT after"
(/ (- (System/nanoTime) start) 1e9)
"seconds.")
(System/exit 0))
 
(clojure.repl/set-break-handler! shutdown)
 
(doseq [i (range)]
(prn i)
(Thread/sleep 500))</lang>
 
=={{header|Forth}}==