You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
102 lines
1.9 KiB
Racket
102 lines
1.9 KiB
Racket
#lang s-exp scriptlike
|
|
;;
|
|
;;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)) |