BBC BASIC 49 символів ASCII
Токенізований розмір файлів 44 байти
I.n:F.i=0TOn:RECTANGLE0,0,1189>>i/2+.5,841>>i/2N.
Набагато коротше, ніж раніше! Я завжди забуваю про операторів бітшіфті в BBC BASIC для Windows, оскільки вони не були доступні на моєму старому комп’ютері ще в той день.
BBC BASIC 63 символів ASCII
Токенізований розмір файлів 58 байт
Інтерпретатор завантаження на веб- сайті http://www.bbcbasic.co.uk/bbcwin/download.html
A%=841C%=1189d=4I.n:F.i=0TOn:RECTANGLE0,0,C%,A%:d!^B%/=2d=-d:N.
Використовується нульова індексація, що я віддаю перевагу. Таким чином, 0 виводить папір для A0, 1 вихід A0 розділений на пару А1 і т.д.
Потрібно чергувати вдвічі координати X і Y, але робити це в масиві коштувало б занадто багато байтів. Натомість я використовую той факт, що BBC basic має блок статичних цілочисельних змінних A%..Z%
у 4 байти, кожен з яких зберігається у суміжній пам'яті. Я зберігаю значення X і Y у A%
та C%
та отримую доступ за допомогою вказівника на %B
змінене значення d, яке чергується між 4
і -4
.
Безумовно
A%=841
C%=1189
d=4
INPUTn
FORi=0TOn
RECTANGLE0,0,C%,A%
d!^B%/=2
d=-d
NEXT
Вихідні дані
f[2]
бутиA0
горизонтальна лінія, що розділяє її? тобто, чи не єf[2]
справді тестовим випадкомf[3]
?