#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))