Added imperative clockhands solution

Author: Undalevein

racket/clockhands_imperative.rkt

@@ -0,0 +1,10 @@
+(for ([i 11])
+  (define t (floor (/ (+ (* 43200 i) 21600) 11)))
+  (define-values (h m s) 
+    (values (floor (/ t 3600)) 
+    (remainder (floor (/ t 60)) 60) 
+    (remainder t 60)))
+  (printf "~a:~a:~a~n" 
+    (~a (if (= h 0) 12 h) #:width 2 #:align 'right #:left-pad-string "0") 
+    (~a m #:width 2 #:align 'right #:left-pad-string "0") 
+    (~a s #:width 2 #:align 'right #:left-pad-string "0")))

racket/test.ps1

@@ -9,6 +9,9 @@ function Assert-MatchTests {
 }
 
 $Error.clear()
+racket -f "$PSScriptRoot\clockhands_imperative.rkt" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+    Assert-MatchTests &&
 racket -f "$PSScriptRoot\clockhands.rkt" |
     Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
     Assert-MatchTests &&