joriszwart.nl

I code dreams™

Code golf

Some ages ago there was a competition on #nlcoders doing the Sierpiński triangle in as less bytes as possible.

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 bytesPreview Download
SIERPIN.COM MS-DOS™ executable Mar ’11 28 bytesPreview Download
sierpinski-dosbox.png PNG image Dec ’15 13.7 kBPreview Download
sierpinski-logo.png PNG image Nov ’19 581 bytesPreview Download
sierpinski-logo.svg SVG image Dec ’21 1.4 kBPreview Download
5 files 16.0 kB