- Симфония тройного цикла
-
? axby@ - 14.04.2013 01:18
воспоминания о временах, когда тебя ожидают столько неизобретённых велосипедов навеяли ностальгию... В общем не удержался, скачал эмулятор и набрал по памяти несколько строчек на Бейсике :
¤
10 FOR I%=1% TO 16383%
20 FOR N%=I% TO 16383% STEP I%
30 FOR K%=N% TO 16383% STEP N%
40 POKE &HFFCE,K%
50 POKE &HFFCE,0%
60 NEXT K%,N%,I%
¤
Ну какой ещё писюк, кроме бэкашки, смог бы так виртуозно озвучить подобную тривиальщину ?
-
? Дмитрий - 14.04.2013 22:32
Супер! Еще в памяти не завалялось подобного?
-
? axby@ - 16.04.2013 22:27
Eщё могу предложить декоративную очистку экрана. В плане эффектности, пожалуй, уступает предыдущему примеру, хотя тоже достаточно лаконичен. И довольно удобен, ведь задача как-то хитро очистить экран, я думаю, всегда была актуальна среди первобытных игроделов.
¤
10 ? CHR$(140%)CHR$(140%)
20 INPUT N%
30 FOR I%=&O40000 TO &O77775 STEP 2%
40 POKE I%,&HFFFF
50 NEXT
60 FOR K%=0% TO (N%-1%)/2%
70 FOR I%=K%+K% TO &O37777 STEP N%
80 POKE I%+&O40000,0%
90 NEXT I%,K%
100 GOTO 10
¤
¤
Сама очистка занимает 4 строки (60-90), для пущего быстродействия их желательно перевести на асм, привожу на Бейсике для наглядности. Значения N - это обычно либо 2 в целой степени, либо прилегающие (31, 63, 129 и т.д.), либо "промежуточные" (48, 96, 192). Можно поэксперементировать и с другими значениями (53, 85, 100 - их уже приходится отыскивать методом тыка, так чтобы красиво смотрелись).
¤
¤