Merge branch 'main' of github.com:rtoal/ple

rtoal · rtoal · commit 6108f433402c · 2025-02-01T20:20:08.000-08:00
diff --git a/README.md b/README.md
@@ -47,7 +47,7 @@ Unix-like virtual machine if you desire to run the test scripts yourself.
 | Erlang       |    ![](docs/resources/erlang-logo-24.png)    | 21          | Erlang/OTP 21                              |
 | Factor       |    ![](docs/resources/factor-logo-24.png)    |             |                                            |
 | F#           |    ![](docs/resources/fsharp-logo-24.png)    |             |                                            |
-| Fortran      |    ![](docs/resources/erlang-logo-24.png)    |             | GNU Fortran (GCC) 6.1.0                    |
+| Fortran      |    ![](docs/resources/fortran-logo-24.png)    |             | GNU Fortran (GCC) 6.1.0                    |
 | Futhark      |   ![](docs/resources/futhark-logo-24.png)    |             |                                            |
 | GDScript     |   ![](docs/resources/gdscript-logo-24.png)   |             |                                            |
 | Go           |      ![](docs/resources/go-logo-24.png)      | 1.16.4      |                                            |
@@ -77,7 +77,7 @@ Unix-like virtual machine if you desire to run the test scripts yourself.
 | Odin         |     ![](docs/resources/odin-logo-24.png)     |             |                                            |
 | ParaSail     |                                              |             |                                            |
 | Perl         |     ![](docs/resources/perl-logo-24.png)     | 5.26.0      |                                            |
-| PHP          |                                              |             |                                            |
+| PHP          |     ![](docs/resources/php-logo-24.png)      |             |                                            |
 | Prolog       |                                              |             |                                            |
 | PureScript   |  ![](docs/resources/purescript-logo-24.png)  | 0.11.5      |                                            |
 | Pyth         |                                              |             |                                            |
diff --git a/algol68/clockhands.a68 b/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
diff --git a/algol68/test.ps1 b/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" 
+} 
+
+
diff --git a/algol68/triple.a68 b/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
diff --git a/cjam/clockhands.cjam b/cjam/clockhands.cjam
@@ -0,0 +1 @@
+B,0Bt{"%02d:"3*\[.5+43200*B/m[3600md60md]e%8Nt}/
diff --git a/lean/ClockHands.lean b/lean/ClockHands.lean
@@ -0,0 +1,18 @@
+def printTimes : List (IO Unit) → IO Unit
+  | [] => pure ()
+  | doPrint :: printStatements => do
+    printTimes printStatements
+    doPrint
+
+def pad : Nat → String
+  | n + 10 => s!"{n + 10}"
+  | n => s!"0{n}"
+
+def clock (t : Nat) : String :=
+  s!"{pad (if t / 3600 == 0 then 12 else t / 3600)}:{pad (t / 60 % 60)}:{pad (t % 60)}"
+
+def countdown : Nat → List (IO Unit)
+  | 0 => []
+  | i + 1 => IO.println (clock ((43200 * i + 21600) / 11)) :: countdown i
+
+def main : IO Unit := printTimes (countdown 11)
diff --git a/lean/test.ps1 b/lean/test.ps1
@@ -0,0 +1,23 @@
+function Assert-MatchTests {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $TestResult
+    )
+
+    if ($TestResult) {
+        Write-Error "Output does not match expected results."
+    }
+}
+
+$Error.clear()
+lean "$PSScriptRoot\ClockHands.lean" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+    Assert-MatchTests &&
+lean "$PSScriptRoot\Hello.lean" &&
+ForEach-Object 'foo'
+
+if ($Error -or !$?) { 
+    "*** LEAN TESTS FAILED ***" 
+}
+else { 
+    "LEAN TESTS PASSED" 
+} 
diff --git a/linotte/README.md b/linotte/README.md
@@ -12,13 +12,13 @@ choco install linotte
 
 ## About Linotte:
 
-Linotte is an imperative, educational, French programming language. Designed to make
+Linotte is an imperative, educational, French programming language. Designed to make...
 
 TODO
 
 ## Linotte Resources:
 
-Continue your study of Haxe via:
+Continue your study of Linotte via:
 
 - [Linotte Website](http://langagelinotte.free.fr/wordpress/?p=328)
 - [Linotte Documentation](https://github.com/cpc6128/LangageLinotte/wiki)
diff --git a/linotte/aiguilles_de_l_horloge.liv b/linotte/aiguilles_de_l_horloge.liv
@@ -1,5 +1,5 @@
 pour chaque 11
-	t prend sol ((joker + 0.5) * 43200 / 11)
+	t prend sol ((43200 * joker + 21600) / 11)
 	h prend sol (t / 3600)
 	m prend sol (t / 60) mod 60
 	s prend t mod 60
diff --git a/livescript/README.md b/livescript/README.md
@@ -0,0 +1,33 @@
+<img src="https://raw.githubusercontent.com/rtoal/polyglot/master/docs/resources/livescript-logo-64.png">
+
+# LiveScript Explorations:
+
+To begin coding with LiveScript, start by installing the LiveScript compiler using this command below. Note that you need to have already installed npm before (See the JavaScript README for more details).
+
+```
+npm install -g livescript
+```
+
+To run a LivveScript file like hello_world.hx, go to the same directory as the file and then run the following command:
+
+```
+lsc .\hello_world.ls
+```
+
+You can run the tests below on Powershell below using the following command:
+
+```
+.\test.ps1
+```
+
+## About LiveScript:
+
+LiveScript is... TODO
+
+## LiveScript Resources:
+
+Continue your study of LiveScript via:
+
+[LiveScript GitHub](https://github.com/gkz/LiveScript)  
+[LiveScript Documentation](https://livescript.net/)
+[LiveScript prelude.ls Library](https://www.preludels.com/)
diff --git a/livescript/assignment_scoping.ls b/livescript/assignment_scoping.ls
@@ -0,0 +1,14 @@
+x = "X = 1"
+
+do ->
+  x = "X = 2"
+  console.log x
+
+console.log x
+console.log "------"
+
+do ->
+  x := "X = 3"
+  console.log x
+
+console.log x
diff --git a/livescript/clockhands.ls b/livescript/clockhands.ls
@@ -1,2 +1,5 @@
-for t in [Math.floor (i + 0.5) * 43200 / 11 for i from 0 to 10]
-  console.log "#{("#{(Math.floor t / 3600 - 1) %% 12 + 1}").padStart(2, \0)}:#{("#{Math.floor t % 3600 / 60}").padStart(2, \0)}:#{("#{t % 60}").padStart(2, \0)}"
+pad = (n) -> "#{n}".padStart(2, "0")
+for i from 0 to 10
+  t = Math.floor (i + 0.5) * 43200 / 11
+  [h, m, s] = [(Math.floor t / 3600), (Math.floor t / 60) % 60, t % 60]
+  console.log "#{pad(h || 12)}:#{pad m}:#{pad s}"
diff --git a/livescript/clockhands_clean.ls b/livescript/clockhands_clean.ls
diff --git a/livescript/clockhands_golf.ls b/livescript/clockhands_golf.ls
@@ -0,0 +1,2 @@
+for t in [Math.floor (i + 0.5) * 43200 / 11 for i from 0 to 10]
+  console.log "#{("#{(Math.floor t / 3600 - 1) %% 12 + 1}").padStart(2, \0)}:#{("#{Math.floor t % 3600 / 60}").padStart(2, \0)}:#{("#{t % 60}").padStart(2, \0)}"
diff --git a/livescript/clockhands_time.ls b/livescript/clockhands_time.ls
@@ -0,0 +1,4 @@
+for i from 0 to 10
+  new Date(Math.floor((43200000 * i + 21600000) / 11)).
+  toISOString().substring(11, 19).
+  replace(/^00/, '12') |> console.log
diff --git a/livescript/expression_ubiquity.ls b/livescript/expression_ubiquity.ls
@@ -0,0 +1,10 @@
+result = if true
+         then 5
+         else 0
+
+console.log result
+
+result = for i from 1 to 40
+            i
+
+console.log result
diff --git a/livescript/expressive_booleans.ls b/livescript/expressive_booleans.ls
@@ -0,0 +1,7 @@
+x = (true && on && yes)
+y = (false || off || no)
+
+console.log x
+console.log y
+
+console.log {+a, -b}
diff --git a/livescript/interpolation_split.ls b/livescript/interpolation_split.ls
@@ -0,0 +1,6 @@
+x = 3
+y = no
+z = 7
+a = %"#x#y#z"
+
+console.log a
diff --git a/livescript/list.ls b/livescript/list.ls
@@ -0,0 +1,26 @@
+[1, 2, 3]
+[1 2 3]
+
+list1 =
+    1
+    2
+    3
+
+list2 =
+    1
+    ...
+
+tree =
+    * 1
+      2
+        * 3
+            * 4
+              5
+          6
+          7
+            * 8
+              9
+      10
+      11
+    
+word_list = <[ Hello my name is Sam ]>
diff --git a/livescript/numbers.ls b/livescript/numbers.ls
@@ -0,0 +1,16 @@
+a = 10
+b = 54.5
+c = 0.4
+# d = .4       Can't start with a period.
+
+e = 6_532.234L
+f = 32_8thgw__ht34y0t708ywer430y95t58754tut5w__y9rohu8t4wy75t9rie
+# f is a number! LiveScript trims the first letter and everything after it!
+
+console.log f       # f = 328
+
+g = 16~ff            # Base 16
+h = 36~zzz           # Base 36
+
+console.log g        # g = 255
+console.log h        # h = 46655
diff --git a/livescript/ranges.ls b/livescript/ranges.ls
@@ -0,0 +1,6 @@
+[1 to 5]        # 1 to 5 inclusive
+[1 til 5]       # 1 to 5 exclusive
+[1 to 10 by 2]  # 1 to 10 but increment by 2 inclusive
+[5 to 1]        # 5 to 1 inclusive
+[to 5]          # 0 to 5 inclusive
+[\A to \Z]      # A to Z inclusive
diff --git a/lobster/clockhands.lobster b/lobster/clockhands.lobster
@@ -0,0 +1,8 @@
+def pad(n): return if n < 10: "0{n}" else: "{n}"
+for (11) i:
+    let t = (43200 * i + 21600) / 11
+    var h = t / 3600
+    let m = t / 60 % 60
+    let s = t % 60
+    if h == 0: h = 12
+    print "{pad(h)}:{pad(m)}:{pad(s)}"
diff --git a/lobster/test.ps1 b/lobster/test.ps1
@@ -0,0 +1,26 @@
+function Assert-MatchTests {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $TestResult
+    )
+    $TestResult
+    if ($TestResult) {
+        Write-Error "Output does not match expected results."
+    }
+}
+
+$Error.clear()
+lobster "$PSScriptRoot\clockhands.lobster" |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+    Assert-MatchTests &&
+lobster "$PSScriptRoot\hello.lobster" &&
+lobster "$PSScriptRoot\triple.lobster" | 
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") | 
+    Assert-MatchTests &&
+ForEach-Object 'foo';
+
+if ($Error -or !$?) { 
+    "*** LOBSTER TESTS FAILED ***" 
+}
+else { 
+    "LOBSTER TESTS PASSED" 
+} 
diff --git a/lobster/triple.lobster b/lobster/triple.lobster
@@ -0,0 +1,5 @@
+for (41) c:
+    for (c) b:
+        for (b) a:
+            if a * a + b * b == c * c:
+                print "{a}, {b}, {c}"
diff --git a/onyx/clockhands.onyx b/onyx/clockhands.onyx
@@ -2,7 +2,7 @@ use core {printf}
 
 main :: () {
     for i in 0 ..= 10 {
-        t: i32 = (i * 43200 + 21600) / 11;
+        t: i32 = (43200 * i + 21600) / 11;
         h, m, s: i32 = t / 3600, t % 3600 / 60, t % 60
         printf("{w2}:{w2}:{w2}\n", 12 if h == 0 else h, m, s);
     }
diff --git a/php/clockhands.php b/php/clockhands.php
@@ -1,5 +1,9 @@
 <?php
     for ($i = 0 ; $i < 11 ; $i++){
-        echo gmstrftime("%I:%M:%S\n", ($i + 0.5) * 43200.0/11);
+        $t = (43200 * $i + 21600) / 11
+        $h = $t / 3600
+        $m = $t / 60 % 60
+        $s = $t % 60
+        sprintf("%02d:%02d:%02d",  $h || 12, $m, $s);
     }
 ?>
diff --git a/php/clockhands_time.php b/php/clockhands_time.php
@@ -0,0 +1,5 @@
+<?php
+    for ($i = 0; $i < 11; $i++) {
+        echo gmstrftime("%I:%M:%S", ($i+0.5) * 43200.0/11) . "\n";
+    }
+?>
diff --git a/powershell/clockhands.ps1 b/powershell/clockhands.ps1
@@ -1,6 +1,7 @@
 foreach ($i in 0..10) {
-    $t = [int][Math]::Floor(($i + 0.5) * 43200 / 11)
+    $t = [int][Math]::Floor((43200 * $i + 21600) / 11)
     $h = [int][Math]::Floor($t / 3600)
-    $m = $t % 3600
-    "{0:D2}:{1:D2}:{2:D2}" -f (($h -eq 0)? 12 : $h), [int][Math]::Floor($m / 60), ($m % 60)
+    $m = [int][Math]::Floor($t / 60) % 60
+    $s = $t % 60
+    "{0:D2}:{1:D2}:{2:D2}" -f (($h -eq 0)? 12 : $h), $m, $s
 }
diff --git a/powershell/clockhands_getdate.ps1 b/powershell/clockhands_getdate.ps1
@@ -0,0 +1,3 @@
+foreach ($i in 0..10) {
+    Get-Date -UnixTimeSeconds ([int][Math]::Floor((43200 * $i + 21600) / 11)) -AsUTC -Format "hh:mm:ss"
+}
diff --git a/powershell/fizzbuzz.ps1 b/powershell/fizzbuzz.ps1
@@ -3,5 +3,5 @@ switch(1..20)
     {$_ % 15 -eq 0} {"FizzBuzz"}
     {$_ % 3 -eq 0} {"Fizz"}
     {$_ % 5 -eq 0} {"Buzz"}
-    default {"$_"}
+    default {$_}
 }
diff --git a/powershell/test.ps1 b/powershell/test.ps1
diff --git a/r/clockhands.r b/r/clockhands.r
diff --git a/racket/clockhands.rkt b/racket/clockhands.rkt
diff --git a/racket/hello.rkt b/racket/hello.rkt
diff --git a/racket/test.ps1 b/racket/test.ps1
diff --git a/racket/triple_imperative.rkt b/racket/triple_imperative.rkt

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+B,0Bt{"%02d:"3\[.5+43200B/m[3600md60md]e%8Nt}/`