20 lines
340 B
Racket
20 lines
340 B
Racket
#lang racket/base
|
|
|
|
(require "../main.rkt")
|
|
|
|
(provide generated-js)
|
|
|
|
(define generated-js
|
|
(js
|
|
(define answer 42)
|
|
(define (square x)
|
|
(return (* x x)))
|
|
(define (sum-to n)
|
|
(let loop ([i 0] [acc 0])
|
|
(if (> i n)
|
|
(return acc)
|
|
(loop (+ i 1) (+ acc i)))))))
|
|
|
|
(module+ main
|
|
(display generated-js))
|