engineering/lumbda
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

playground: simpler free-form default — (print "67") (/ 42 6)

Browse source
This commit is contained in:
russell@unturf.com 2026-06-14 13:06:10 -04:00
parent 7e32eefd6b
commit 4df6dcfa67
No known key found for this signature in database
2 changed files with 8 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

31
wasm/app/app.js
View file

@ -12,34 +12,11 @@ import { oneDark } from "@codemirror/theme-one-dark";
import { openVault } from "./crypto.js";
const TIERS = { python: "python (pyodide)", c: "c (emcc)", asm: "asm (wat)" };
const FREE_FORM_DEFAULT = `; free-form mode — write any lisp, race all three tiers.
; unlock the vault below to persist this code (encrypted localStorage).
;
; below: a tiny version of the cross-tier functional.lsp runner.
const FREE_FORM_DEFAULT = `; free-form mode — unlock the vault below to persist this code
; encrypted in localStorage with your password
(define pass 0)
(define fail 0)
(define (check name got expected)
(cond ((equal? got expected)
(set! pass (+ pass 1))
(display "PASS: ") (display name) (newline))
(else
(set! fail (+ fail 1))
(display "FAIL: ") (display name)
(display " got=") (display got)
(display " expected=") (display expected) (newline))))
(check "arithmetic" (+ 1 2) 3)
(check "division" (/ 42 6) 7)
(check "string" (string-append "foo" "bar") "foobar")
(check "list reverse" (reverse (list 1 2 3)) (list 3 2 1))
(check "vector len" (vector-length (vector 1 2 3)) 3)
(check "char" (char->integer #\\A) 65)
(check "let loop" (let loop ((i 0) (n 0))
(if (= i 10) n (loop (+ i 1) (+ n i)))) 45)
(display pass) (display " pass, ") (display fail) (display " fail")
(newline)
(print "67")
(/ 42 6)
`;
const demoSources = {};

31
www/playground/app.js
View file

@ -12,34 +12,11 @@ import { oneDark } from "@codemirror/theme-one-dark";
import { openVault } from "./crypto.js";
const TIERS = { python: "python (pyodide)", c: "c (emcc)", asm: "asm (wat)" };
const FREE_FORM_DEFAULT = `; free-form mode — write any lisp, race all three tiers.
; unlock the vault below to persist this code (encrypted localStorage).
;
; below: a tiny version of the cross-tier functional.lsp runner.
const FREE_FORM_DEFAULT = `; free-form mode — unlock the vault below to persist this code
; encrypted in localStorage with your password
(define pass 0)
(define fail 0)
(define (check name got expected)
(cond ((equal? got expected)
(set! pass (+ pass 1))
(display "PASS: ") (display name) (newline))
(else
(set! fail (+ fail 1))
(display "FAIL: ") (display name)
(display " got=") (display got)
(display " expected=") (display expected) (newline))))
(check "arithmetic" (+ 1 2) 3)
(check "division" (/ 42 6) 7)
(check "string" (string-append "foo" "bar") "foobar")
(check "list reverse" (reverse (list 1 2 3)) (list 3 2 1))
(check "vector len" (vector-length (vector 1 2 3)) 3)
(check "char" (char->integer #\\A) 65)
(check "let loop" (let loop ((i 0) (n 0))
(if (= i 10) n (loop (+ i 1) (+ n i)))) 45)
(display pass) (display " pass, ") (display fail) (display " fail")
(newline)
(print "67")
(/ 42 6)
`;
const demoSources = {};