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

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 Description Last modified Size
SIERPIN.ASM Assembly source Dec ’17 259 BytesDownload
SIERPIN.COM MS-DOS™ executable Mar ’11 28 BytesDownload
sierpinski-dosbox.png PNG image Dec ’15 13.4 KBDownload
3 files 13.7 KB