programska uganka

Evo ene dobre uganke !
Najdi produkt X * Y, pri čem so X in Y cela števila med 1 in 999
Od teh produktov najdi takšne produkte od vseh, ki so palindromi (enako berejo od zadaj kot od spredaj).

ja, števila so v redu, treba pa le Od teh produktov najdi takšne produkte od vseh, ki so palindromi (enako berejo od zadaj kot od spredaj).

rešitev pa ni 2470546980 ali 2504001600 !!!

originalen text :
Heres your next challenge, I think you will find this one quite fun.
Find the products of X times Y, where X and Y are integers which are greater than 0 and less than 1000.
From these products find the sum of any which are palindromes.

ne eno in ne drugo, kje si ti dobil tako veliko palindromov ??? Kakor jaz vem jih je 108, tukaj maš pa še Exe fajl, ki ti prikaže koliko jih je, kje si jih ti dobu več kot 2k ???

Rešitve še ne vem, ker je še ne poznam :(

Ne prvi in ne drugi odgovor ni pravilen. Jaz sem pri prvem kalkoliral vse Xi*Yj pri čem sem upošteval enkrat da je lahko i=j in enkrat da ne, številke od 1 do 9 pa so palindromi ...

bil sem malce prehitr : Tukaj je exe, rezultat pa še vedno ni pravi ? Premalo palindromov ???

StratOS: tvoj program izpiše polinome samo od 1 do 999, ne pa produkktov ševil X in Y, ki sta od 1 do 999.
Tukaj so moji palindromi.

nov exe fajl je na Tukaj, vendar rešitev še ni pravilna :), ne vem kje je vzrok za napako ????

narobe sem zastavil vprašanje !
Heres your next challenge, I think you will find this one quite fun.
Find the products of X times Y, where X and Y are integers which are greater than 0 and less than 1000.
From these products find the sum of any which are palindromes.
dejansko iščeš vse produkte X * Y, dobiš rezultat , če je ta rezultat palindrom ( produkt ) seštej te produkte !

No to je bolj easy :)
Hvala za napačno predstavitev :)

A potem je rezultat 509033471?

Če upoštevaš vse palindrome, je rezultat 509033471, kot je zapisal ender,
če pa upoštevaš vsako vrednost samo enkrat, pa je rezultat 143690752.

right pomota, ja seveda je pravilen rezultat, heh kako sem se mogel tako ušteti ...
in še proggy Palindromes.exe
Sorry za nepravilno informacijo, ki je nisem preveril ...
Dal sem pa vam na znanje da naredite to v ASM, veselo na delo ...
preverite malo hitrost programčka ...


za 100 je moj rezultat ...
Calculation end :
Sum of all palindroms:579751
It took 10195 ms (333MHz pentium 2)

za 999 pa je premalo spomina v textboxu (max 64 kB) !!! in ne napiše časa, lahko pa testirate

Heh..

Rezultat za integerje od 1 do 999 je 509033471 in je izračunan v nekaj sekundah skupaj z izpisom zmnožkov na ekran.
Rezultat za integerje od 1 do 99 pa je 579751 in je izračunan prej kot v pol sekunde.

StratOS, čudne programe pišeš, da so tako počasni...

Addon: Rezultat za integerje od 1 do 9999 pa je 1368177254 in je izračunan (skupaj z izpisom) v manj kot dveh minutah.

Jaz sem pisal v Pascalu (heh), pod XPji in računalnik ni bil niti približno neobremenjen. Pa pustimo to, koda pa zgleda nekako takole:

 v:=0;
 for i := 1 to n do
 for j:= 1 to n do
 begin
 k:=i*j;
 if palindrom(k) then
 begin
 v:=v+k;
 writeln(i,' * ',j,' = ',k);
 end;
 end;
 writeln('Vsota: ',v);
 

S tem, da imamo še eno funkcijo kjer preverimo ali je številka palindrom ali ne in pa definiramo vse spremenljivke in konstanto n (999) - vendar je to samo po sebi razumljivo

No, saj sem rekel, da pustimo to.

Boš napisal pol v ASM?

Da hudo ....
Ker objektni programski jeziki ( vsak boljši, nov ) uporabljajo sklice na določene objekte ( Gumbi, TextBox-i, ostale kontole) je hitrost izvajanja ( v mojem primeru programa pisanje v TextBox občutno počasnejša kot le premlevanje in izpljunek končnega rezultata ( pa še kontrola ima tu limit 64kB podatkov !!!), no tudi to se bi v modulu dalo narediti, lahko bi se poenostavila koda za pregled palindroma, nebi bilo potrebna dobena forma ali objekt, lahko bi pa rezultate zapisoval v fajl .. itd ...
Kot drugo je posredovanje pri uporabi strojne kode ...
VB programi tečejo ( se sklicujejo ) na VB runtime dll-je, ti kasneje uporabljajo strojno kodo ( Torej tu se hitrost VB programom zelllllooooooo upočasni ), sam naredi podoben program v C++ ali ASM-u pa boš videl kakšna razlika je !!, razlika med mojim ASM-om in mojim VB exe programom je za ta primer neopisljiva za več kot 10E5 (1000000 %) pri moji mašini !!!!

No pa imaš krivca za vse to, exe fajl je potem dobro še modificirati in pripraviti na kakšen način ga boš kompajliru in ostale parametre za tak program v VB ...

Exe je Tu Hitrost pa taka, a ne ?

Heres your next challenge, I think you will find this one quite fun.
Find the products of X times Y, where X and Y are integers which are greater than 0 and less than 1000.
From these products find the sum of any which are palindromes.

Motiš se. Odgovor je le 579751

Ja, dve for zanki resda vrneta podvojene palindrome, vendar kakor jaz sklepam iz navodila je to OK.

StratOS, daj zdej povej, ali je katera od danih rešitev tukaj pravilna in katera.

Tukaj je moja rešitev in pa program, ki izpiše na zaslon.

Seveda. In u bistvu se vsak palindrom v sistemu pojavi dvakrat - 1*2, 2*1, 51*301, 301*51,..

V skupni vsoti pa se vsak od teh plaindromov tudi upošteva - poglej mojo datoteko z rezultati.

Ja maš prov. Sem si pač drugače zastavil problem, zakaj bi dvakrat računal in upošteval isto stvar...

Hm, zafrkavam se z nasmw-jem, z čim se pa trenutno ukvarjam preglej 1
2

Fake one's heh ...