Треугольник Серпинского

Описание	Треугольник Серпинского — фрактал, один из двумерных аналогов множества Кантора, математическое описание которого опубликовал польский математик Вацлав Серпинский в 1915 году. Как создать треугольник Серпинского в разных средах программирования?
Область знаний	Археология, Информатика
Область использования (ISTE)
Возрастная категория	10
Поясняющее видео
Близкие рецепту понятия	Рекурсия, Фрактал
Среды и средства для приготовления рецепта:	JavaScript, Snap!, Лого

Image

Snap!

JavaScript - без рекурсии

var k=Math.sqrt(3)/2; var S=16; var H=512; var W=Math.floor(H/k);
document.body.innerHTML=('<canvas id="C" width="'+W+'" height="'+H+'"></canvas>');
var canvas = document.getElementById('C');
var ctx = canvas.getContext('2d');
ctx.fillRect(0, 0, W, H);
for(var x = 0;x<=Math.floor(W/2);x++) {
  for(var y = 0;y<H;y++) {
    var A = y;          var a = A%S;
    var B = y/2+x*k;    var b = B%S;
    var C = y/2-x*k;    var c = C%S;
    if(a>b&&C>0&&B>0) {
      if ((B/S)&(C/S)) ctx.fillStyle='#ff0';
      else ctx.fillStyle='#000';
    } else if(a<b&&C>0&&B>0) {
      ctx.fillStyle='#0f8';
    } else ctx.fillStyle='#fff';
    ctx.fillRect(Math.floor(W/2)-x, y, 1, 1);
    if (x!=0) ctx.fillRect(Math.floor(W/2)+x, y, 1, 1);
  }
}

NetLogo

 to gasket :number
 crt 1 [set color green
 set shape "square"
 set size 100 ]
 repeat :number [
 ask turtles [
 set size size / 2
 hatch 1 [ bk size / 2 lt 90 fd size / 2 rt 90]
 hatch 1 [ bk size / 2 rt 90 fd size / 2 lt 90]
 fd size / 2
 ]
 ]
 ask turtles [stamp die]
end

Racket

‎

(require 2htdp/image)
(let sierpinski ([n 8])
  (if (zero? n)
    (triangle 2 'solid 'red)
    (let ([t (sierpinski (- n 1))])
      (freeze (above t (beside t t))))))
‎