XXXVIII MMpizza: zje ją HanSolo i daves!

Zadanie konkursowe polegało na zaprojektowaniu pizzy dla zielonogórskiego programisty. Najbardziej spodobały siuę nam wypowiedzi HanSolo i daves. Oto one:
HanSoloDla mnie pizza musi:- składać się z 8 kawałków bo to jest święta liczba dla mnie,- musi dać się jeść ręką,- nie może nic z niej spadać w trakcie jedzenia bo ciężko czyści się klawiaturę z okruszków,- powinna smakować na zimno bo zdarza się że po kilku godzinach zauważam że jeszcze coś w kartoniku zostało,- nie może być za "ciężka" bo o 4 rano gdy kod sam przelewa się na klawiaturę nie można jeść produktów ciężkich dla żołądka.To wszystkie wymagania. Niestety, najczęściej nawet nie zauważam smaku gdy jestem w "transie" pisania :)
davesPizza programistyno to zaczynamy.....typeTSkladnik = (Pomidor, Papryka, Cebula, ... ,Oliwka);TLosuj = classclass function Zakres(AMin, AMax : Integer) : Integer;end;
TPizzaProgramisty = classprivateFCiasto : TObject;publicconstructor Zamow(AListaSkladnikow : array of TSkladnik);procedure Wypiek;procedure Wcinanie;end;
implementation
class function TLosuj.Zakres(AMin, AMax : Integer) : Integer;var w1,w2,w3,w4:word;beginw1 := MilliSecondOf(Now);w2 := WeekOf(Now) div 3;w3 := SecondOf(Now) mod 8;w4 := HourOf(Now) div 3 mod 5;
Result:=((w1*2+w2*8+w3*5+w4*3) mod (AMax+1-AMin))+AMin;end;
Constructor TPizzaProgramisty.Zamow(AListaSkladnikow : array of TSkladnik);varx,y,wIloscSkladnika : Integer;BeginCreate;FCiasto := TObject.Create;
x := 0;while x < High(AListaSkladnikow) do beginInc(x) ;wIloscSkladnika := TLosuj.Zakres(1,20);y := 0;while y < wIloscSkladnika do beginInc(y);FCiasto.Add(TSkladnik(AListaSkladnikow[x]));end;end;
Wypiek;End;
procedure TPizzaProgramisty.Wypiek;BeginFCiasto.Process; // ok 10 minut ;)End;
procedure TPizzaProgramisty.Wcinanie;Beginwhile not FCiasto.KonsumcjaSkonczona doFCiasto.Gryz;tryif FCiasto.Zostalo thenraise Exception.Create('Bleeee');elseShowMessage('Mmmmmmm');finallyFreeAndNil(FCiasto);end;End;
i najważniejsze :)Przykładowe wywołanie...varPizza : TPizzaProgramisty;...Pizza := TPizzaProgramisty.Zamow([Papryka, Cebula, Pieczarki, Ser, Szynka]);Pizza.Wcinanie;...
I już :)Tak oto programista wpierdziela swoją pizzę :)Prawda, że PYCHA?
Uch! Aż się w kościach zaiskrzyło od takiej dawki programowania!Gratulujemy i życzymy smacznego!
Pamiętajcie - czekamy na zdjęcia z Waszej konsumpcji! Opublikujcie je na MM-ce!Nagrody sponsoruje pizzeria Gioconda, ul. Mariacka 5!
Przypominamy również, iż zwycięzcy są zobowiązani skontaktować się z Działem Promocji pod adres: [email protected] w terminie 48 godzin od momentu podania rozstrzygnięcia konkursu w serwisie.