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

[steev]

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

Wyniki z fuse:
wbudowany - 4:11
beta 3.1      - 4:20
mega 4        - 4:22

[Phonex]

Nie pomaga nawet jak się użyje funkcji modulo Beta Basica (3.0), czyli FN v(i,j)

Kod: [Zaznacz]

30 IF MOD (i,j)=0 THEN GO TO 80
Jest jeszcze gorzej - 4:43

[wojtek9989]

I jeszcze jeden test:

C128 CP/M Basic Microsoft - 3:28

[ZbyniuR]

Trafiłem na kolejne porównanie tym razem tylko CPC, C64 i C128, liczące w kodzie maszynowym liczbę PI.
http://www.cpcwiki.eu/forum/demos/a-mathematical-demo/msg116787/#msg116787
Jest tam dsk dla CPC i link na forum Lemon64.com gdzie mają wersję na Comody.
Można wybrać do ilu cyfr po przecinku i na 800 wynik wygląda tak:

    Amstrad CPC6128 - 120.1 sec
    Commodore 128/PAL (fast mode) - 123.6 sec
    Commodore 64/PAL (screen off) - 232.9 sec

[ZbyniuR]

Dawno nikt tu nie zaglądał a jeszcze z popularnych maszyn brakuje nam wyniku z Atari ST Basic.
Czy ktoś ma dostęp do tej maszyny (lub emulatora) i nieco czasu pomieszanej z ciekawością?

[dely]

Ja mam Tylko które programy są obowiązujące w testach, ponieważ się nieco zgubiłem.

[ZbyniuR]

Programiki które proponowałem w poście 106 na str 8 jakoś nikogo nie zainteresowały...
 ale programik w Basicu do wyszukiwania liczb pierwszych z YouTuba z posta 137 już tak:
https://www.youtube.com/watch?v=pxye-RbKFpY

10 FOR i=2 TO 1000
15 k = INT(SQR(i)) + 1
20 FOR j = 2 TO k
30 k1 = i / j
40 k2 = INT(k1)
50 IF k1 = k2 THEN GOTO 80
60 NEXT j
70 PRINT i
80 NEXT i

W miarę możliwości zachować taką samą postać, nie usuwać zbędnych spacji itp.
Można dodać na początku i końcu coś co zmierzy czas wykonywania programu w sekundach.
Ewentualnie dodać jakieś bipnięcie które ułatwi ci pomiar stoperem.

A oto znane nam rezultaty:

BBC Master - 0'25 - znalezione na innym filmiku, ale ciut oszukał bo dodał do niektórych zmiennych %, choć nie sądzę by taka optymalizacja dała mu więcej niż 2 sek.

Amiga Basic   - 0'30
BBC Micro       - 0'47 - wszystkie trzy BBC mają MOŚki, tu 2MHz, poniższy 1MHz, a powyższy 4MHz
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  - przypuszczam że tryb 80 kolumn przestawia procka na 2MHz
C64           - 2'15
C+4           - 2'16
C128 (40)       - 2'48
C128 CP/M      - 3'28  - Microsoft Basic
Atari XL/XE    - 3'50
MSX1           - 3'53
ZX 48           - 4'08(4'11)  - podano 2 różne pomiary, oba ze stopera
ZX 128         - 4'50
TI99/4A       - 5'58  - to stary 16-bitowiec z 3MHz
ZX81         - 13'12


Jakie Bejziki można by jeszcze przetestować?   Może Meritum, albo Amosa na Amidze, lub GW-Basic na PC z 8086 lub 8088, czy co tam jeszcze ludzie w domach mają?  A może ktoś ma karta z Basiciem na NESa? 

[dely]

Mam na biurku QL, więc wrzucam wyniki z niego. Stock maszyna ze 128k, nie ma różnicy pomiędzy mode 4 i mode 8 - wychodzi zawsze 80 sekund. Poniżej listing z modyfikacjami, które nie wpływają na wynik końcowy.

Kod: [Zaznacz]

99 CLS
100 d_start=DATE
110 FOR i=2 TO 1000
120 k=INT(SQRT(i))+1
130 FOR j=2 TO k
140 k1 = i/j
150 k2 = INT(k1)
160 IF k1=k2 THEN GO TO 190
170 NEXT j
180 PRINT i
190 NEXT i
200 d_end = DATE
210 d_diff = d_end-d_start
220 PRINT d_diff

[pear]

Amstrada NC 100 jeszcze nie było ?
Wyjąłem z szufladki, włożyłem bateryjki i wyszło dokładnie 64,8 sekund (wykorzystałem wbudowaną zmienną TIME do pomiaru czasu)

[ZbyniuR]

No no bardzo ciekawe wyniki...  Dzięki za to i prosimy o więcej. A to już najdłuższa lista jaką widziałem która porównuje coś na tak wielu różnych maszynach.

QL z Motorolką 7.5MHz o 8bitowej linii danych ma wynik taki jak CPC. Oj chyba programistów to Sinclair miał takich sobie, bo w ZX też się nie popisali. Choć pewnie to też wina pośpiechu ich szefa.

A NC ma BBC Basic na Z80 4MHz i wynik identyczny jak na takim samym Basicu w Electronie z MOS 1MHz.

Nie mogę się doczekać czego jeszcze się dowiemy, bardzo mnie ciekawi np wynik ST i Apple II.

[dely]

Oj chyba programistów to Sinclair miał takich sobie, bo w ZX też się nie popisali. Choć pewnie to też wina pośpiechu ich szefa.

SuperBASIC w QL jest bardzo fajny i całkiem rozbudowany. Ale szybkością to raczej nie grzeszy. Jeśli tego weekendu starczy, to jeszcze wrzucę wyniki z Apple IIGS i Atari ST.

[flypeter]

Ja postaram sie jutro zrobic test na vic-20 i meritum. Jutro wymieniam romy w Apple II+ i jak ruszy to tez zrobie.

[pear]

Ja jeszcze przy okazji dorzucę Cambridge Z88 i Sharp PC-1500.

[flypeter]

Vc-20    1:50

[flypeter]

Meritum (Z80 1.6 MHz)       3:23