Re: Конкурс посвященный 25-летию AIX


#12430

Sever
Участник

Чтоб не быть голословным…
Простейший тест задачи на языке CL OS IBM i:

[code]
TEST_MODEL: PGM
DCL VAR(&I) TYPE(*DEC) LEN(15 0) VALUE(0)
DCL VAR(&ONE) TYPE(*DEC) LEN(15 0) VALUE(1)
DCL VAR(&IMAX) TYPE(*DEC) LEN(15 0) +
VALUE(1000000000)
MONMSG MSGID(CPF0000 MCH0000)
CHGJOB RUNPTY(99) LOG(4 00 *MSG) TIMESLICE(5000) +
PURGE(*NO)
LOOP: CHGVAR VAR(&I) VALUE(&I + &ONE)
IF COND(&I *LT &IMAX) THEN(GOTO CMDLBL(LOOP))
ENDPGM
[/code]

На машине power7 770 (3.5Ггц) он выполняется за 124 секунды;
На машине power7 795 в турборежиме (4.25Ггц) за 100 секунд;
На машине power6 595 (5Ггц) за 64 секунды.