27 lines
796 B
Racket
27 lines
796 B
Racket
#lang racket/base
|
|
|
|
(require "../main.rkt")
|
|
|
|
(define examples
|
|
`((simple-function . ,(js (define (add1 x) (return (+ x 1)))))
|
|
(ordinary-let . ,(js (define (ordinaryLet x)
|
|
(let ([x 1] [y x])
|
|
(return y)))))
|
|
(let-star . ,(js (define (sequentialLet x)
|
|
(let* ([x 1] [y x])
|
|
(return y)))))
|
|
(named-let . ,(js (define (sumTo n)
|
|
(let loop ([i 0] [acc 0])
|
|
(if (> i n)
|
|
(return acc)
|
|
(loop (+ i 1) (+ acc i)))))))))
|
|
|
|
(define (show-examples)
|
|
(for ([entry (in-list examples)])
|
|
(displayln (format "// ~a" (car entry)))
|
|
(displayln (cdr entry))
|
|
(newline)))
|
|
|
|
(module+ main
|
|
(show-examples))
|