Użytkownik "szemrany" <s...@o...off> napisał:

> btw sprawdziłeś kod, który opublikowałem?

Jeszcze nie, ale metoda polowkowa wyglada na pierwszy rzut oka dobrze.
Wydaje mi sie ze niewiele da jakas dodatkowa optymalizacja.
PS: Oczywiscie mam nadzieje ze Delphi radzi sobie dobrze ze zoptymalizowaniem
a := a + x do C-owego a += x; (czyli assemblerowego do mov eax, [x] add [a],
eax)
(to samo tyczy shr). Sprawdz list asseblerowy bo kiedys TPascal pozostawial
w tym wzgledzie duzo do zyczenia.
PS1: Nie wiem jak dzisiejsze Delphii, ale FreePascal ma "augment assignment
operators".
PS2: Czy Szanowna Mlodziez pamieta ze niektore Algole mialy konstrukcje
ogolnieniejsza niz proste
"augment assignment operators" ?
Np: x := log(x) + exp(x) + 3 * x mozna bylo zapisac x := log(~) + exp(~) +
3 * ~

AK


---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe
Avast.
https://www.avast.com/antivirus