A mostly AI coded js-maker, supervised by me.

2026-05-26 09:42:35 +02:00
parent 8e8afc321b
commit 2cf831c180
23 changed files with 4143 additions and 1 deletions
@@ -0,0 +1,16 @@
+#lang racket/base
+(require "../main.rkt")
+(displayln "--- and ---")
+(displayln (js/expression (and (> x 10) (< x 15))))
+(displayln "--- t2 ---")
+(displayln (js (define (f x)
+                 (if (and (> x 10) (< x 15))
+                     (begin (console.log x)
+                            (return x))
+                     (return (* x x))))))
+(displayln "--- let* ---")
+(displayln (js (let* ((x 10)
+                      (y (+ x x)))
+                (return y))))
+(displayln "--- let* tdz ---")
+(displayln (js/expression (let ([x 4]) (let* ([x x] [y x]) (+ x y)))))