Code golf

Of course I was beaten very bad. A 13 byte version using rule 90 exists.

Sierpinski 28 bytes running in DOSBox
Sierpinski 28 bytes running in DOSBox
; 28 byte Sierpinski-fractal  Joris Zwart (C) 1998

            .model tiny
            .code
            org 100h

start:
            mov al,13h
x:
            cwd
y:
            test cl,dl
            jne skip
            int 10h

            mov ah,0ch
skip:
            inc dl
            jns y
            inc cl
            jns x

            cbw
            int 16h

            mov ax,3
            int 10h
            ret

            end start
Poem for Wacław Sierpiński

This assembles down to these 28 bytes:

b0 13 99 84 ca 75 04
cd 10 b4 0c fe c2 79
f4 fe c1 79 ef 98 cd
16 b8 03 00 cd 10 c3

Pseudo-code

For the assembly-impaired here is the pseudo-code:

FOR X = 0 TO 127
    FOR Y = 0 TO 127
        IF X AND Y THEN PLOT X, Y
    NEXT Y
NEXT X
Pseudo-code Sierpinski using bitwise AND.

Downloads

Name Type Last modified Size
SIERPIN.ASM Assembly Dec ’17 259 BytesDownload View
SIERPIN.COM MS-DOS™ executable Mar ’11 28 BytesDownload View
sierpinski-dosbox.png PNG image Dec ’15 13.4 KBDownload View
sierpinski-logo.png PNG image Nov ’19 581 BytesDownload View
4 files 14.2 KB