(Racket) define-syntax-rule examples

Racket macro examples

Racket 매크로 예제

참고: http://docs.racket-lang.org/guide/pattern-macros.html?q=define-syntax-rule#%28part._define-syntax-rule%29

#lang racket
(define-syntax-rule (def x ...) (define x ...))
(define-syntax-rule (fn x ...) (lambda x ...))
(define-syntax-rule (++ x) (set! x (add1 x)))
(define-syntax-rule (while test body ...)
  (let loop ()
    (when test body ... (loop))))

(displayln ((fn (x y) (+ x y)) 1 2))
 
(def x 0)
(++ x)
(displayln x)
 
(while (< x 10)
       (displayln x)
       (++ x))