17 lines
568 B
Racket
17 lines
568 B
Racket
#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)))))
|