diff --git a/beautiful-racket-demo/scriptish-demo/less-rackety.rkt b/beautiful-racket-demo/scriptish-demo/less-rackety.rkt deleted file mode 100644 index a2cfb3d..0000000 --- a/beautiful-racket-demo/scriptish-demo/less-rackety.rkt +++ /dev/null @@ -1,102 +0,0 @@ -#lang s-exp javascriptlike-demo -;; -;;var x = 42; -;(define x 42) - -(var x 42) - -;;var s = "string"; -;(define s "string") - -(var s "string") - -;; -;;x + x; -;(define (add/concat . xs) -; (cond -; [(andmap number? xs) (apply + xs)] -; [(ormap string? xs) (string-join (map ~a xs) "")])) -;(add/concat x x) - -(sumlike x x) - -;;s + x; -;(add/concat s x) - -(sumlike s x) - - -;; -;;var thing = { -;; 'foo' : 42, -;; -;; 'bar' : function(x) { -;; return x + 15; -;; } -;;}; - -; -;(define thing (hash -; "foo" 42 -; "bar" (λ (x) (let/ec return (return (add/concat x 15)) (void))))) -; - - -(object thing ("foo" 42) ("bar" (func (x) (return (sumlike x 15))))) - -;;thing.foo -;;thing.bar -;;thing.bar(3) - -; -;(hash-ref thing "foo") -;(hash-ref thing "bar") -;(#%app (hash-ref thing "bar") 3) - - -(dot thing "foo") -(dot thing "bar") -(func-app (dot thing "bar") 3) - -; -;; -;;if ( thing.foo == 42 ) { -;; console.log("The correct answer is " + thing.foo); -;;} -; -;(when (equal? (hash-ref thing "foo") 42) -; (displayln (add/concat "The correct answer is " (hash-ref thing "foo")))) - - -(object console ("log" (func (str) (pretty-print str)))) - -(if (comparison (dot thing "foo") "==" 42) - (func-app (dot console "log") (sumlike "The correct answer is " (dot thing "foo")))) - -; -;;var idx = 0; -;;while ( idx != 50 ) { -;; if ( thing.bar(idx) == 35 ) { -;; alert("Calamity at " + idx + "!"); -;; } -;; idx++; -;;} -; -;(define (alert str) -; (displayln "*********") -; (displayln str) -; (displayln "*********")) -; -;(define idx 0) -;(let loop () -; (when (not (equal? idx 50)) -; (when (equal? (#%app (hash-ref thing "bar") idx) 35) -; (alert (add/concat "Calamity at " idx "!"))) -; (set! idx (add1 idx)) -; (loop))) - -(var idx 0) -(while (comparison idx "!=" 50) - (if (comparison (func-app (dot thing "bar") idx) "==" 35) - (alert (sumlike "Calamity at " idx "!"))) - (increment idx)) \ No newline at end of file diff --git a/beautiful-racket-demo/scriptish-demo/rackety.rkt b/beautiful-racket-demo/scriptish-demo/rackety.rkt deleted file mode 100644 index 4a0ae72..0000000 --- a/beautiful-racket-demo/scriptish-demo/rackety.rkt +++ /dev/null @@ -1,64 +0,0 @@ -#lang br -; -;var x = 42; -(define x 42) -;var s = "string"; -(define s "string") -; -;x + x; -(define (add/concat . xs) - (cond - [(andmap number? xs) (apply + xs)] - [(ormap string? xs) (string-join (map ~a xs) "")])) -(add/concat x x) -;s + x; -(add/concat s x) -; -;var thing = { -; 'foo' : 42, -; -; 'bar' : function(x) { -; return x + 15; -; } -;}; - -(define thing (hash - "foo" 42 - "bar" (λ (x) (let/ec return (return (add/concat x 15)) (void))))) - -;thing.foo -;thing.bar -;thing.bar(3) - -(hash-ref thing "foo") -(hash-ref thing "bar") -(#%app (hash-ref thing "bar") 3) - -; -;if ( thing.foo == 42 ) { -; console.log("The correct answer is " + thing.foo); -;} - -(when (equal? (hash-ref thing "foo") 42) - (displayln (add/concat "The correct answer is " (hash-ref thing "foo")))) - -;var idx = 0; -;while ( idx != 50 ) { -; if ( thing.bar(idx) == 35 ) { -; alert("Calamity at " + idx + "!"); -; } -; idx++; -;} - -(define (alert str) - (displayln "*********") - (displayln str) - (displayln "*********")) - -(define idx 0) -(let loop () - (when (not (equal? idx 50)) - (when (equal? (#%app (hash-ref thing "bar") idx) 35) - (alert (add/concat "Calamity at " idx "!"))) - (set! idx (add1 idx)) - (loop))) \ No newline at end of file diff --git a/beautiful-racket-demo/scriptish-demo/sexped.rkt b/beautiful-racket-demo/scriptish-demo/sexped.rkt deleted file mode 100644 index d2f37b8..0000000 --- a/beautiful-racket-demo/scriptish-demo/sexped.rkt +++ /dev/null @@ -1,30 +0,0 @@ -#lang s-exp javascriptlike-demo/expander - -(assignment x 42) -(assignment s "string") - -(sumlike x x) -(sumlike s x) - -(assignment thing (object - ("foo" 42) - - ("bar" (func-def (x) - (return (sumlike x 15)))))) - - - -(dotted-id (thing foo)) -(dotted-id (thing bar)) -(func-app (dotted-id (thing bar)) 3) - -(assignment console (object ("log" (func-def (str) (displayln str))))) ; simulates global console (don't put in parse tree) -(if (comparison (dotted-id (thing foo)) == 42) - (func-app (dotted-id (console log)) (sumlike "The correct answer is " (dotted-id (thing foo))))) - - -(assignment idx 0) -(while (comparison idx != 50) - (if (comparison (func-app (dotted-id (thing bar)) idx) == 35) - (alert (sumlike "Calamity at " idx "!"))) - (increment idx)) \ No newline at end of file