Interpretery BASIC na różne platformy - test wydajnościowy

[flypeter]

To tylko testy na szybkość interpretera Basica. W necie jest filmik z jakiegoś programu w BBC, gdzie właśnie BBC miażdżyło ZX'a i jeszcze jakiś komputer - test w Basicu - ale prowadzący oczywiście zachwycali się szybkością komputera.
W przypadku Atari (jak i innych komputerów) mamy kilka wersji Basica do wyboru. Atari Basic jest koszmarnie wolny, znaczny wzrost szybkości wykonywania programu można uzyskać używając Basica XE lub Turbo Basica XL.
Np.
programik 1:

1 FOR I=1 to 50000: NEXT I

Czasy:
  TURBO BASIC XL:   58.0
  TURBO COMPILER:   54.1
  BASIC XE FAST :   61.6
  BASIC XE SLOW :   61.8
  BASIC XE BARE :  237.0
  ATARI BASIC   :  237.0

programik 2:

10000 I=0
10010 I=I+1: IF I<20000 THEN 10010

Czasy:
  TURBO BASIC XL:   58.1
  TURBO COMPILER:   12.5
  BASIC XE FAST :   41.2
  BASIC XE SLOW :   51.2
  BASIC XE BARE :   97.6
  ATARI BASIC   :  163.2

Czyli różnice spore.

[matofesi]

@flypeter oczywiście, że to jest porównanie BASICów i to średniej jakości. W praktyce należałoby porównać kilka różnych algorytmów - jakieś obliczenia matematyczne, jakieś sortowanie itp. Dopiero taki uśredniony benchmark przeliczony oczywiście przez częstotliwość zegara dawałby jakieś pojęcie o "jakości" danego komputera i jego BASICa

A z czystej ciekawości odpaliłem ten sam kod po kompilacji ToBoSem - tym razem program wykonywał się niecałe 27 sekund

[flypeter]

MSX1: 3:53

[flypeter]

TI99/4A: 5:58

[matofesi]

Sam Coupé w standardowym trybie graficznym: 1:14. I żeby było zabawnie to samo z wyłączonym ekranem: 1:09

[ZbyniuR]

Dzięki za podanie wyników, choć jeszcze od XE nie widzę, albo do C128.

Co do megaherców, to po pierwsze w CPC procek chodzi na 3.5 a nie 4, bo co 8my takt trafia do CRTC.
A po drugie 1MHz w MOS i Z80 to nie tyle samo mocy, bo konstrukcja procków jest inna i podobne rozkazy w Zilogu potrzebują zwykle więcej taktów na wykonanie, w praktyce od tylu samo do nawet 4ech razy więcej taktów. Uśredniając, (choć jest to porównanie bardzo niezadowalające z powodu dużej rozbieżności różnic w różnych rozkazach), dla uproszczenia powiedzmy że Z80 musi być taktowany 2 razy szybciej by uzyskać zbliżoną moc do 6502. Do takich wniosków doszedł też autor artykułu który kiedyś czytałem bodajże w Komputerze. Czyli w przybliżeniu procek w CPC ma o ok 70% więcej mocy od tego w C64 a nie aż 4 razy jak to liczą laicy. I może ktoś (fan C64) powiedzieć że czemu się domagam by ulgowo traktować Ziloga zamiast przyznać że jego konstrukcja jest kulawa. Otóż przyznaję że jest taktożerny. Ale zapytam czemu się domagać ulgowego traktowania C64 z powodu jego słabego taktowania? Skoro konstruktorzy poskąpili mu Megaherców, to poskąpili. I może lepiej się skupmy na rzeczywistych możliwościach a nie teoretycznych jakie by miała ta czy inna maszyna gdyby dostała coś czego nie ma a co ma konkurencja.

Zresztą porównując C64 z MOŚkiem 1MHz i wynikiem 2m15s do BBC Micro z takim samym prockiem (więc łatwo przeliczyć MHz-ety), taktowanym 2MHz i wynikiem 47sek, to który tu wypada słabiutko?

Próbowałem znaleźć jakiś kompilator zmienno-przecinkowy do CPC i wiem że popularny był Taifun ale w necie widzę tylko francuską wersję i niemiecką instrukcję obsługi.   W tej chwili nie mam czasu by szukać bardziej ludzkiej.

[wojtek9989]

Odpaliłem swoje C128 i oto wyniki :

Tryb 40 kolumn - 2:48

Tryb 80 kolumn - 1:23

Tryb C64 - 2:15

Co dziwne , dlaczego  basic 7 jest wolniejszy od basic 2 ? (sprawdzałem dwa razy )

Wie ktoś może jak taki programik wpisać pod cp/m ? ,to też bym sprawdził jeszcze w tym trybie .

[flypeter]

Atari Basic 3:50
Acorn Electron 1:04

[trojacek]

Wie ktoś może jak taki programik wpisać pod cp/m ? ,to też bym sprawdził jeszcze w tym trybie .

Jest kilka basiców do wyboru:
http://www.z80.eu/basic.html

[ZbyniuR]

Czyli jak dotąd, w tym teście wyszukiwania liczb pierwszych w Basicu mamy:

BBC Master - 0'25 - wersja tu użyta jest ciut zoptymalizowana, bo ma dodane % przy zmiennych integer, ale przypuszczam że to mu daje najwyżej ze 2 sek.

BBC Micro - 0'47
BBC Electron - 1'04
Sam Coupe - 1'14
CPC 6128 (80) - 1'19 - w 6128 są ciut szybsze procedury
CPC 464 (40) - 1'22  - 2 sek wolniej niż w 80 kolumnach
C128 (80) - 1'23 - być może dopiero włączenie trybu 80 kolumn przestawia procka na 2MHz
C64        - 2'15
C128 (40) - 2'48
Atari XL/XE - 3'50
MSX1     - 3'53
ZX48     - 4'08 - zaskoczyło mnie że jest wolniejszy od XE, i szybszy od 128.
ZX128   - 4'50
TI99/4A - 5'58 - jedyny tu 16-bitowiec.

Na razie mamy jedyny przykład z kompilatora na Speccy - ToBoSem - 0'27. Czekamy na więcej oraz na Basic z C+4, Vic20, ZX81, Meritum, Apple2, ST, Amigę... i co tam jeszcze macie.

I tak z ciekawości, dodajecie jakieś rozkazy co mierzą czas, czy mierzycie stoperem w ręku?

Wyniki jakie podałem są bez modyfikacji ale eksperymentowałem z optymalizacją, czyli:
  usunięcie zbędnych spacji, zmiana nazw zmiennych na 1no-literowe, zadeklarowanie Integer tam gdzie się da zamiast funkcji INT(), oraz wciśnięcie więcej rozkazów do linii, bo przeskoczenie dwukropka trwa krócej niż do następnej linii. Dawało ułamki sekund, nawet dodanie kasowania ekranu na początku sprawia że o ileś numerków później drukowanie ich wymaga przesuwania ekranu. W sumie dało to 8 sek oszczędności.
Można też zmodyfikować nieco kod np. dodać średnik po zmiennej w PRINT-cie, by nie przesuwał ekranu bo wszystkie liczby mieszczą się wtedy w kilkunastu linijkach i mamy kolejne 2 sekundy mniej. Ale najwięcej dała zmiana parametrów w pierwszej pętli FOR, zaczynamy od 1 a nie 2 i dodajemy STEP 2 i mamy wynik poniżej 53 sekund. No ale to już jest nielegalny doping.    A BBC Micro nawet bez tego jest szybszy.

PS. Pamiętam że Bajtek kiedyś promował taki język do Atarki o nazwie Action, czy ktoś coś.. ?
PS2. Wydaje mi się że fani CP/M-a woleli Pascala. Zresztą Z80 w C128 cyka tylko na 2MHz, więc szału się nie spodziewam.

[steev]

A inne BASICi na ZXa?
Wg wiki było sześć wersji Beta i cztery Mega...

[flypeter]

C+4 - 2:16

[Rzeznik]

Amiga 500 - Microsoft Basic 1.0 - 0:30 (sprawdziłem w winuae, konf-stock a500)

[matofesi]

No to jeszcze odpaliłem Port BBC BASIC'a na Spectrum (http://mdfs.net/Software/Spectrum/BBCBasic/) - 1:22

[flypeter]

ZX81 - 13:12

Po małej zmianie, by wyświetlał wynik jeden po drugim, bo bez tej zmieny przerywał program jak miał przewinąc ekran. Ale w przypadku ZX81 nie chyba się co dziwić, bo proceosr generuje też obraz...