PasteRack.org
Paste # 72098
2026-03-14 21:39:59

Forked from paste # 3269.

Fork as a new paste.

Paste viewed 665 times.


Embed:

Sierpinski64

#lang racket  ; A picture
(require 2htdp/image)
(let sierpinski ([n 6)
  (if (zero? n)
    (triangle 4 'solid 'red)
    (let ([t (sierpinski (- n 1))])
      (freeze (above t (beside t t))))))

=>

#<syntax:/home/pasterack/pasterack/tmp/72098/72098code.scrbl:5:0 "#lang racket  ; A picture">:3:21: read-syntax: missing `]` to close preceding `[`, found instead `)`
  context...:
   /home/pasterack/racket88/collects/syntax/module-reader.rkt:214:17: body
   /home/pasterack/racket88/collects/syntax/module-reader.rkt:211:2: wrap-internal
   /home/pasterack/racket88/collects/racket/../syntax/module-reader.rkt:76:9: wrap-internal/wrapper
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:138:19: loop
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code
   body of "/home/pasterack/pasterack/tmp/72098/72098code.scrbl"
   .../private/map.rkt:40:19: loop
   .../racket/cmdline.rkt:191:51
   body of "/home/pasterack/racket88/share/pkgs/scribble-lib/scribble/run.rkt"