Added Clockhands and Triple (i used c extensions but I don't care, formatters are wack). Also added test.)

Author: Undalevein

algol68/clockhands.a68

@@ -0,0 +1,7 @@
+FOR i FROM 0 TO 10
+  DO INT t := (43200 * i + 21600) % 11;
+  INT h := t % 3600;
+  INT m := t % 60 %* 60;
+  INT s := t %* 60;
+  printf (($2d$, (h = 0 | 12 | h), $a$, ":", $2d$, m, $a$, ":", $2dl$, s))
+OD

algol68/test.ps1

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

algol68/triple.a68

@@ -0,0 +1,9 @@
+FOR c TO 40
+  DO FOR b TO c
+    DO FOR a TO b
+      DO IF a ** 2 + b ** 2 = c ** 2 THEN
+        printf (($%d$, a, $2a$, ", ", $%d$, b, $2a$, ", ", $%dl$, c))
+      FI
+    OD
+  OD
+OD