Added Racket Programming Language

Author: Undalevein

racket/clockhands.rkt

@@ -0,0 +1,13 @@
+(define (clockhands i)
+  (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"))
+  (when (< i 10) (clockhands (+ i 1))))
+
+(clockhands 0)

racket/hello.rkt

@@ -0,0 +1 @@
+(println "Hello, World!")

racket/test.ps1

@@ -0,0 +1,28 @@
+function Assert-MatchTests {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $TestResult
+    )
+
+    if ($TestResult) {
+        Write-Error "Output does not match expected results."
+    }
+}
+
+$Error.clear()
+racket -f "$PSScriptRoot\clockhands.rkt" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+    Assert-MatchTests && 
+racket -f "$PSScriptRoot\hello.rkt" &&
+racket -f "$PSScriptRoot\triple_imperative.rkt" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
+    Assert-MatchTests && 
+ForEach-Object 'foo';
+
+if ($Error -or !$?) { 
+    "*** RACKET TESTS FAILED ***" 
+}
+else { 
+    "RACKET TESTS PASSED" 
+} 
+
+

racket/triple_imperative.rkt

@@ -0,0 +1,5 @@
+(for* ([c (in-range 1 41)]
+  [b (in-range 1 c)]
+  [a (in-range 1 b)]
+  #:when (= (+ (sqr a) (sqr b)) (sqr c)))
+  (printf "~v, ~v, ~v~n" a b c))