Среди тестов не хватало сравнения с компилятором более содержательного, чем пустой цикл, пусть будет Мандельброт.
Исходный текст
Код:10 CLS 20 ROWS=21 30 COLUMNS=30 40 MAXITER=8 50 SCALE=4 60 SQ=2 70 SQ2=SQ*SQ 80 VR=-2.3*SCALE 90 VI=-1.0*SCALE 100 ZOOM=0.1*SCALE 110 FOR Y=0 TO ROWS-1 120 CI=VI+Y*ZOOM 130 FOR X=0 TO COLUMNS-1 140 CR=VR+X*ZOOM 150 ZR=CR 160 ZI=CI 170 FOR N=0 TO MAXITER-1 180 R2=ZR*ZR/SQ2 190 I2=ZI*ZI/SQ2 200 IF (R2+I2)>4*SCALE THEN 240 210 ZI=2*ZR*ZI/SQ2+CI 220 ZR=R2-I2+CR 230 NEXT 240 PRINT CHR$(40-INT(N)); 250 XX=XX+1 260 NEXT X 270 PRINT 280 XX=0:YY=YY-1 290 NEXT 300 STOP[свернуть]
BASCOM - 79 секунд по секундомеру (mdos34)
2.5 - 191.6 секунды
2.97fix - 128.4 секунды
И это еще не финал соревнований.
Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 
Сообщение от ivagor
