Soutěž - mezistav

vložil Radek Červinka 25. července 2010 22:07

Jen tak pro povzbuzení apetitu a pro ukázání, že měření je celkem dostatečné - mezivýsledky. Jo a ještě poznámka: nezkoušejte takové triky, jako po prvním průběhu si do stringlistu přihodit výslednou hodnotu, nebo ještě lépe - nahradit text za výsledek. Takové řešení je neplatné, ale pobavilo. Navíc jsem upravil některé řešení na jednořádkové data - pro porovnání.

Výsledky jsou orientační, cca +-50 a pak to ve sporných případech porovnám, snad jsem neudělal nikde chybu, nebo mne nikdo nepřevezl.

Takže zatím:

  • Jiří Koula - 4000 (zajímavá optimalizace, trochu nefér pro normální lidi)
  • Ota Milink - 4650
  • Tomáš Jantač - 4780 (více řádků 4850)
  • Cerda - 4800
  • Aleš Gregor - 4850 (při variantě s pouze jedním řádkem)
  • Vladimír Bárta - 4970
  • Radek Voltr - 5850
  • Pepak - 6230 (originální řešení)
  • Miroslav Logaj - 7320
  • Jakub Flaška - 8300 (úprava pro jeden řádek, původní verze 11500)
  • David Lebeda - 8950 (úprava pro jeden řádek)
  • Čestmír Najzar - 11200 (úprava pro jeden řádek)

Diskvalifikovaní pro hrátky s daty :-), ale pěkný pokus

  • Jiri Preisler
  • Jaroslav Dakš
  • Vladimír Keder

Pokud zde nejste - Vaše řešení nedorazilo - sice divné, ale zkuste přesto radekc zav delphi.cz. Pokud máte rychlejší verzi než co už od Vás mám, můžete mi ještě jednu novou verzi programu poslat.

A třeba se ještě najde někdo další, kdo bude mít odvahu…

Ohledně zaslaných řešení - i ze starších verzí nebyl problém s překladem a funkčností pod Delphi 2010.

Tagy:

soutez

Komentáře

26.7.2010 10:34:50 #

Jaroslav Dakš

Použití objektu jako bufferu pro uložení výsledku nevidím jako trik, ale jako normální postup a mám pocit, že snad není v rozporu s uvedenými pravidly. Kdyby fce CountDigit měla jako parametr string byla by to jasná věc a nejsou pochyby jak úlohu řešit. Ale budiž...

Jaroslav Dakš

26.7.2010 10:44:39 #

radekc

Hmm, ale tady šlo spíše o implementaci té funkce a tím, že se volala mockrát šlo jen o to, aby se to dalo rozumně měřit. Ale moje chyba, příště se z toho poučím a nebudu komplikovat zadání :-)

radekc

26.7.2010 11:28:04 #

Pepak

Jak víš, že se mezi různými voláními funkce se stejnou instancí objektu nezměnil stav toho objektu? Tedy když si odmyslíme to, že volající kód je jasně definovaný, ale v tom případě bychom mohli rovnou napsat tu funkci jako Result := 12345...

Pepak

26.7.2010 11:28:44 #

Pepak

To se mi podařilo to pěkně zprasit... Jméno mělo být moje, ne to, na které jsem reagoval :-)

Pepak

26.7.2010 11:29:41 #

Pepak

Aha, takže jsem v tom nevinně. Jméno jsem napsal správně "Pepak", ale redakční systém Delphi ho z tajemných důvodů zobrazuje jako "Jaroslav Dakš" (byť se správnou URL)...

Pepak

26.7.2010 11:39:40 #

radekc

Sorry, opravil jsem to v souborech. Zajímavé. Nevím čím to je. To je tak když si vezme člověk cizí redakční systém.

radekc

26.7.2010 11:41:16 #

radekc

Nijak postupně jsem ty kody po jednom začleňoval do jednoho projektu a kontroloval jsem stav po volání.

radekc

27.7.2010 15:32:16 #

David Lebeda

Jak rozumět poznámce u zatím vítězného řešení "nefér pro normální lidi"? :)

David Lebeda

27.7.2010 15:41:59 #

radekc

To bych napověděl moc - ale nikdo jiný, i co jsem se ptal, tu optimalizaci neznal.

radekc

Komentování ukončeno

Naše nabídka

MVP
Ing. Radek Červinka - Embarcadero MVP
profil na linkedin, Twitter:@delphicz

Nabízím placené poradenství a konzultace v oblasti programování a vývoje SW.
Dále nabízíme i vývoj speciálního software na zakázku.

Neváhejte nás kontaktovat (i ohledně reklamy).

love Delphi

O Delphi.cz

Delphi je moderní RAD nástroj podporující tvorbu nativních aplikací pro platformu Win32, Win64, Mac OSX, Linux a na iPhone a Android.

Delphi.cz je nezávislý portál pro uživatele Delphi. Portál není koncipován pro úplné začátečníky, i když i ti se zde nebudou nudit, ale spíše na programátory, kteří již něco znají a chtějí své znalosti dále rozvíjet a sledovat novinky.

Poslední komentáře

Comment RSS

Dle měsíců