Data commit

Task/Handle-a-signal/Racket/handle-a-signal-1.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(define now current-milliseconds)
+(define start (now))
+(with-handlers ([exn:break?
+                 (λ(x)
+                   (define elapsed (/ (- (now) start) 1000.))
+                   (displayln (~a "Total time: " elapsed)))])
+  (for ([i (in-naturals)])
+    (displayln i)
+    (sleep 0.5)))

Task/Handle-a-signal/Racket/handle-a-signal-2.rkt

@@ -0,0 +1,9 @@
+0
+1
+2
+3
+4
+5
+6
+7
+Total time: 3.965