Here is a slightly less trivial program: #lang racket (require 2htdp/image) (let sierpinski () (if (zero? n) (triangle 2 'solid 'red) (let () (freeze (above t (beside t t)))))) This program, taken from the Racket website, draws a Sierpinski triangle, nested to depth 8.
Вот чуть менее тривиальная программа: #lang racket (require 2htdp/image) (let sierpinski () (if (zero? n) (triangle 2 'solid 'red) (let () (freeze (above t (beside t t)))))) Данная программа, взятая с сайта Racket, нарисует треугольник Серпинского с глубиной вложенности 8.