Digitalna evolucija

Uau Thomas, clo HP ma zdej critticall! Zdele sem ga dolpovlekel, tko da ...

It's going to start sweating from now on ...

Zlede ga malo probavam na prilozenih primerih ... Moram rect, da je GUI, kar prijeten, preprost in vidne so vse pomembne informacije.

Edino kar se bo treba matrat, bo pri kovanju kode ... Striktno se drzat pravil programiranja, ki jih zateva Crittcall.

Aja, pohvalno, da ni potrebno po vsakem evoluiranem programu pritistini "Evoluate" ... Al je to sam zacetni bug?
(nekaj casa nazaj si govoril da bo taksna.

Recimo zdele randomSort po osmih minutah spravilo na 48% prvotnih korakov ... Impresivno!

Je že v redu... sistem se je zgleda že prej čisto upočasnil. Po resetiranju je vse OK.

Ja ... minimizacija linij je zdaj tako, da ne širi programa čez vse meje.

Da bi pa na račun hitrosti zmanjševal število linij, pa (zaenkrat še?) ni.

Razlika med tole verzijo in full je pa v tem, da tale gre čez cca. 2 uri spat. Moraš ročno pognat od tam naprej.

Too strict, ja!

Zadeva rabi masiven prevajalanik iz raznih koderskih načinov. Najbrž.

kak info o vrstici ki ga zmoti bi bil priročen.

Malo se igram...

dodal sem

$rinvar leto (0,3000)
vzame en random value za leto

neprest=0;

if (mes==feb) {
leto %= 4;
if (leto==neprest) {
dni=28;
} else {
dni=29;
}
}

pravi da je invalid... al pa sem jaz :)

xbite, Tole je pravilna sintaksa in mora delat.

 $rinvar leto (0,3000) mes (1,12) $retvar dni $minimize lines off $sound on neprest=0; jan=1; feb=2; mar=3; apr=4; may=5; jun=6; jul=7; aug=8; sep=9; oct=10; nov=11; dec=12; if (mes==jan) { dni=31; } if (mes==feb) { leto %= 4; if (leto==neprest) { dni=28; } else { dni=29; } } if (mes==mar) { dni=31; } if (mes==apr) { dni=30; } if (mes==may) { dni=31; } if (mes==jun) { dni=30; } if (mes==jul) { dni=31; } if (mes==aug) { dni=31; } if (mes==sep) { dni=30; } if (mes==oct) { dni=31; } if (mes==nov) { dni=30; } if (mes==dec) { dni=31; } 

Za prestopna leta tole rajši, ker je nekoliko bolj komplicirano, kot da je samo vsako 4. prestopno.

 
 $rinvar leto (0,3000) mes (1,12)
 $invar leto(400) mes(2)
 $invar leto(100) mes(2)
 
 
 $retvar dni
 
 $minimize lines off
 
 $sound on
 
 neprest=0;
 
 
 jan=1;
 feb=2;
 mar=3;
 apr=4;
 may=5;
 jun=6;
 jul=7;
 aug=8;
 sep=9;
 oct=10;
 nov=11;
 dec=12;
 
 if (mes==jan) {
 dni=31;
 }
 if (mes==feb) {
 prest = 0;
 n0 = 0;
 n4 = 4;
 n100 = 100;
 n400 = 400;
 ntmp = leto % n4;
 if (ntmp == n0) {prest = 1;}
 ntmp = leto % n100;
 if (ntmp == n0) {prest = 0;}
 ntmp = leto % n400;
 if (ntmp == n0) {prest = 1;}
 if (prest==neprest) {
 dni=28;
 } else {
 dni=29;
 }
 }
 
 if (mes==mar) {
 dni=31;
 }
 if (mes==apr) {
 dni=30;
 }
 if (mes==may) {
 dni=31;
 }
 if (mes==jun) {
 dni=30;
 }
 if (mes==jul) {
 dni=31;
 }
 if (mes==aug) {
 dni=31;
 }
 if (mes==sep) {
 dni=30;
 }
 if (mes==oct) {
 dni=31;
 }
 if (mes==nov) {
 dni=30;
 }
 if (mes==dec) {
 dni=31;
 }
 
 

Sicer pa hvala za vse pohvale, predlogi se pazljivo preučujejo.

Thomas, a verzija za linux potem bo ? ker stvar bi res rad probal (pa ne na emulaciji), pa še c koda je itaq nekako prenosljiva med platformami (če ne uporablaš ravno kakih sistemskih libov).

Kolika pa stane celotna verzija? Je kaj popusta za študente?
A ko se enkrat registriraš dobivaš potem zastonj tudi vse nadalnje verzije?

Thomas:
glede na razpravo v temi piratiziranje, ne verjamem, da bodo zainteresirani hoteli kaj plačati. Razen, če niso spremenili svojega pogleda na celotno stvar... Vsekakor ti želim veliko uspeha pri prodaji.

lp

"Portanje na linux bo seveda moralo biti. Samo zdej ne vem rečt, kako zahtevna reč to je pravzaprav."

vidiš, na to bi bilo treba prej mislit

Tkole je sintaktično pravilen vhod jetijevega programa:

 
 
 $rinvar number1(1,1000) number2(1,1000)
 
 $retvar gcd
 
 
 
 if (number1 > number2) {
 meja=number1;
 } else {
 meja=number2;
 }
 gcd = 1;
 one = 1;
 for (i = one; i <= meja; i += one) {
 ostanek = number1 % i;
 if (ostanek == zero) {
 ostanek = number2 % i;
 if (ostanek == zero) {
 gcd = i; 
 }
 }
 }
 
 

Samo ena dimenzija je. Strict C(ritticall) koda.

V tolažbo je edino to, da z enodimenzionalno tabelo se da izraziti poljubno dimenzionalne. Namreč naslovni prostor v pomnilniku je lepo po nenegativnih celih številih. Zato ima C++ večdimenzionalnost vedno hidden operacije množenja in deljenja. Če pa eksplicitno navedeš te pretvorbe iz linearnega v večdimenzionalno - kot zaheva C - pa so te transformacije tudi predmet optimizacije.

Če bomo naredili podporo večdimenzionalnim nizom, bo to na nivoju prevajalnika iz C++ v C.

Trik kako pripraviš algoritem za sortiranje, da ti testira različno dolge arraye in povrh še kaže časovno zahtevnost v odvisnosti od n (št. elementov):

$dimension abcd[100]

$rinvar n (10,100)
$rinvar abcd[] (1,1000)

$INVAR n (100)
$INVAR n (50)
$INVAR n (10)
$INVAR abcd[](290,274,832,383,....
$INVAR abcd[](882,958,822,425,709,6....
$INVAR abcd[](743,259,676,734,382,574,458,58....

$retvar abcd[]
$minimize lines 40
$sound on

zero=0; //number 0 stored in a variable
flip=1; //is still to sort

noe = n-flip; // noe je bil prej fiksno določen

Thomas: Men je v 45 min. prsu do zavidljivih 0.7% :) Looks like there WAS some room for improvement ;)

 // The algorithm has been enhanced for 99.349%
 
 $RINVAR number1(1,1000) number2(1,1000) 
 $RETVAR gcd 
 
 // int array[1]; int arr256[256];int number1=0;int number2=0;int meja=0;int gcd=0;int one=0;int i=0;
 // int ostanek=0;int zero=0;int critticall1=0;int critticall2=0;int critticall3=0;int critticall4=0;
 
 $BES
 ostanek=number2%number1;
 if (zero!=ostanek) {
 ostanek=number1%ostanek;
 number1=number2%number1;
 while (ostanek!=gcd) {
 meja=ostanek;
 ostanek=number1%ostanek;
 number1=meja;
 }
 }
 gcd=number1;
 $EES
 

Tole pa zevulirani programcek

Grrr... kako se še pravilno napiše znak < v HTML? (kot je presledek recimo "& nbsp;")

Evolucija je velik hec. Tudi digitalna. Se ne bi čudil, če bi kdo dobil samo 50% izboljšavo.

Zadevo je treba pač dosti časa goniti, pa tudi (verjetno) najboljši rezultat ne izostane.

Pomaga pa seveda tudi večkratno poganjanje in več računalnikov. (Več instanc! )

Samo tale romcijev rezultat pa res ni slab!

Hja, jaz mislim, da je potrebno obvezno v GUI pod file implementirat se recimo "save curret evoluated code" in "stop" in "pause".

Kako Thomas pravis, da dela sam pol ure?? Nekaj postov nazaj si rekel, da shareware verzija dela okrog dve uri? (hja, nisem se privocil crittcallu, da bi delal vec kot 30 min na enem programu ...

asPeter,

Po eni uri in pol, deluje še pol ure.

Hja ... pause pa stop pa save ... so (tudi) dobri predlogi.

romci,

Hehe .. maybe ... may be ...

Thomas, se pohvala z moje strani. Kar tako naprej! Jaz sem tudi poizkusil z jetijevim algoritmom pa sem v osmih minutah dobil tole:

// The algorithm has been enhanced for 73.9552%



 $RINVAR number1(1,1000) number2(1,1000)

 $RETVAR gcd



// int array[1]; int arr256[256];int number1=0;int number2=0;int
meja=0;int gcd=0;int one=0;int i=0;int ostanek=0;int zero=0;int
critticall1=0;int critticall2=0;int critticall3=0;int critticall4=0;



$BES

meja=number2;

one=1;

for (i=one;i<=meja;i+=gcd) {

    ostanek=number1%i;

    if (ostanek==zero) {

        ostanek=number2%i;

        if (ostanek==zero) {

            for
(gcd=number2;gcd!=number1;gcd+=one) {

               
gcd=i;

               
break;

            }

        }

        if (number1==i) {

           
break;

        }

    }

}

$EES


Na začetku je nekaj časa vztrajal na if (number1>number1) {...}, nato pa se je naenkrat znebil celotnega bloka. Opazovanje napredka je sploh zanimivo po prvih izboljšavah, ki so bolj radikalne. Like it.


Aja... stvarca ogreje procesor le za eno stopinjo manj kot f@h.

njok - hvala ;)

Ampak žal ti moram reči, da tistih 73% ni nič!

Evolucija včasih zaide v slepo ulico - in ta je ena. Zato je treba zadevo pognati ene parkrat, da dobiš nekaj takega kot je dobil romci.

Ali pa tole:

 
 // The algorithm has been enhanced for 99.3679%
 
 $MINIMIZE LINES 160
 $RINVAR number1(1,1000) number2(1,1000) 
 $RETVAR gcd 
 
 // int array[1]; int arr256[256];int number1=0;int number2=0;
 // int meja=0;int gcd=0;int one=0;int i=0;int ostanek=0;
 //int zero=0;int critticall1=0;int critticall2=0;int critticall3=0;int critticall4=0;
 
 $BES
 number1=number1%number2;
 number2=number2-number1;
 number1=number1%number2;
 if (number1!=one) {
 number1=number2-number1;
 number2=number2-number1;
 number1=number1%number2;
 number2=number2-number1;
 number1=number1%number2;
 number2=number2-number1;
 number1=number1%number2;
 if (number1>ostanek) {
 number1=number2-number1;
 number2=number2-number1;
 number1=number1%number2;
 number2=number2-number1;
 number1=number1%number2;
 while (number1!=zero) {
 number2=number2-number1;
 number1=number1%number2;
 }
 }
 }
 gcd=i+number2;
 $EES
 
 
 
 

Sergio,

 $dimension prafl[1001]
 $retvar prafl[]
 $minimize lines off
 
 num1=1;
 num0=0;
 num3=3;
 num2=2;
 i=0;
 j=0;
 zastavica=0;
 stevilo = 1000;
 for (i=num3; i<=stevilo; i+=num1) {
 for (j=num2; j<i; j+=num1) {
 x=i%j;
 if (x==num0) {
 prafl[i]=num0;
 zastavica=num1;
 }
 if (zastavica==num1) {break;}
 }
 if (zastavica==num0) {prafl[i]=num1;}
 zastavica=num0;
 }
 
 

Kot vidiš, ne printamo več. Luxus prevelik, namesto tega pišemo v tabelo. Tudi smo zgornjo mejo zmanjšali, da nekaj hitreje zevoluira - saj jo potem lahko spet povečamo.

Krhm... Smo že na 80%

Thomas: Je možno pripisati 78.6 prvotnega rezultata samo randomu ... ali je zadeva bolj optimizirana na Intelove procesorje?