14 lines
371 B
Racket
14 lines
371 B
Racket
#lang racket/base
|
|
|
|
(require "../main.rkt")
|
|
|
|
;; There is no separate optimizer in js-maker 3. This demo shows the compact
|
|
;; named-let loop output produced directly by the `js` macro.
|
|
(module+ main
|
|
(display
|
|
(js (define (factorial n)
|
|
(let loop ([i n] [acc 1])
|
|
(if (<= i 1)
|
|
(return acc)
|
|
(loop (- i 1) (* acc i))))))))
|