(require 2htdp/image) ; 画图
(let sierpinski ([n 8])
  (cond
    [(zero? n) (triangle 2 'solid 'red)]
    [else (define t (sierpinski (- n 1)))
          (freeze (above t (beside t t)))]))

2htdp/image 库为创建图像提供了十分方便的函数。

Racket 教程 →

@; 生成 PDF 或 HTML 文档
@title{Bottles: @italic{Abridged}}
@(apply
  itemlist
  (for/list ([n (in-range 100 0 -1)])
    @item{@(format "~a" n) bottles.}))

scribble/base 语言使用对编写者友好的语法来生成文档。

Scribble 教程 →

;; Using higher-order occurrence typing
(define-type SrN (U String Number))
(: tog ((Listof SrN) -> String))
(define (tog l)
  (apply string-append (filter string? l)))
(tog (list 5 "hello " 1/2 "world" (sqrt -1)))

Typed Racket 的「渐进式」定型能让您先用无类型模式完成工作，然后再添加类型。

Typed Racket 教程 →

ancestor(A, B) :- parent(A, B).
ancestor(A, B) :-
  parent(A, C), ancestor(C, B).
parent(john, douglas).
parent(bob, john).
ancestor(A, B)?

您可以用 Racket 来构建其它语言 — 例如 datalog，它是一个逻辑式编程语言。

Datalog 教程 →

(define f (new frame% [label "猜数字"]))
(define n (random 5)) (send f show #t)
(define ((check i) btn evt)
  (message-box "." (if (= i n) "正确" "错误")))
(for ([i (in-range 5)])
  (make-object button% (~a i) f (check i)))

Racket 的 GUI 语言和库让跨平台应用的创建更加容易。

GUI 教程 →

;; 一个 "hello world" Web 服务器
(define (start request)
  (response/xexpr
   '(html
     (head (title "Racket"))
     (body "Hello 世界"))))

web-server/insta 语言能让您快速创建服务端 Web 应用的原型。

Web 应用教程 →