время выполнения кода

ld

Прошу помощи, ибо сам так и не смог понять в чём дело

Код:

CREATE MASS 3 ALLOT
: TEST
                    2 BEGIN DUP MASS !
                          2 BEGIN DUP MASS 4 + !
                                 2 BEGIN DUP MASS 8 + !
     MASS @  
     MASS @ MASS 4 + @ * 
     MASS @ MASS 4 + @ * MASS 8 + @ * 
     + +  
     BEGIN 242 /MOD SWAP 14 + DROP 
     DUP 242 < UNTIL
     14 + DROP 
                               1+ DUP 1000 > UNTIL DROP 
                       1+ DUP 1000 > UNTIL DROP
                1+ DUP 1000 > UNTIL DROP
;

 ' NOOP MAINX !       
 ' TEST TO <MAIN>

S" test.exe" SAVE BYE

Вот такой тестовый код, будучи откомпиллирован в exe-файл, выполняется 5 минут на Pentium-II, а на Pentium-D где-то около 4.5 минуты.
Компиллирую на каждом компе отдельно, при этом Pentium-D вполне показывает свои 2.66 GHc на других задачах. Как такое может быть?

Гость

[quote="ld"]Прошу помощи, ибо сам так и не смог понять в чём дело

[/code]
Причины тормозящие данный код.

1. Большое количество операций в циклах и циклов в циклах.
2. Неоптимальное использование возможностей языка.
3. Трудно оптимизируемый код встроеным в SPF оптимизатором.
...

P.S. В рамках Форт подхода действия в циклах желательно
выносить в отдельные определения и давать осмысленно имя:)

profiT

ld
А можно узнать постановку задачи?..

Код:

14 + DROP

????? А просто DROP нельзя было написать?..

Код:

0
CELL -- a
CELL -- b
CELL -- c
CONSTANT /MASS

CREATE MASS /MASS ALLOT

: TEST 
2 BEGIN DUP MASS a ! 
2 BEGIN DUP MASS b ! 
2 BEGIN DUP MASS c ! 
MASS a @
MASS b @ OVER *
MASS c @ OVER *
+ +
BEGIN 242 /MOD SWAP 14 + DROP
DUP 242 < UNTIL 
14 + DROP 
1+ DUP 1000 > UNTIL DROP 
1+ DUP 1000 > UNTIL DROP 
1+ DUP 1000 > UNTIL DROP 
; 

 ' NOOP MAINX !        
 ' TEST TO <MAIN> 

S" test.exe" SAVE BYE

ld

2Гость:
Спасибо, со всеми пунктами согласен, форт-чайник бо есмь

Но тем не менее, на Pentium-D то должно работать ну хотя бы в 3 раза быстрее за счёт разницы в тактовой частоте, казалось бы.

ld

2profiT:

Цитата:

А можно узнать постановку задачи?..

Перебираем все возможные комбинации из трех чисел от 2 до 1000 каждое, подставлям их в формулу, брутфорс одним словом. В тестовых целях поставил DROP-заглушки на выводы (Perl-скрипт потом их подхватывает). Соседнюю ветку смотрел, но пока неасилил

Код:

0
CELL -- a
CELL -- b
CELL -- c
CONSTANT /MASS

CREATE MASS /MASS ALLOT

: TEST 
2 BEGIN DUP MASS a ! 
2 BEGIN DUP MASS b ! 
2 BEGIN DUP MASS c ! 
MASS a @
MASS b @ OVER *
MASS c @ OVER *
+ +
BEGIN 242 /MOD SWAP 14 + DROP
DUP 242 < UNTIL 
14 + DROP 
1+ DUP 1000 > UNTIL DROP 
1+ DUP 1000 > UNTIL DROP 
1+ DUP 1000 > UNTIL DROP 
; 

 ' NOOP MAINX !        
 ' TEST TO <MAIN> 

S" test.exe" SAVE BYE

Спасибо

unreal666

У меня при запуске этой задачи СПФ4 работает минуты 2 и задача вылетает втихую без всяких сообщений. Даже если без exe-ника делать (просто выполнить слово TEST), то консоль СПФ (в том числе и в СПФ с GUI) тоже вылетает.

ygrek

Не подтверждаю.
Отработало 5 минут и не вылетело.
Version 4.18 Build 001 at 01.Dec.2006

время выполнения кода

Кто сейчас на конференции