Messages

ako ludia, neni to zly napad... ja len zasa napriklad neholdujem velmi etanolovym jedom

no co sa smejes? ... ja by som mozno tiez tak dakedy reagoval, ale ked ma uz prestava bavit sa hrat normalne, uz len cakam, kedy skoncim na takych hrach

heh..ale ja sa ani nemam s cim hrat

ja sa dobrovolne ponuknem

nevzda ... o Kollarovi som pocul, ze on uci daco ine na com si dava zalezat... neviem si nazov teraz spomenut

no ja som videl aj teraz v sukni ...

dajme si...

no co sa smejes? ... ja by som mozno tiez tak dakedy reagoval, ale ked ma uz prestava bavit sa hrat normalne, uz len cakam, kedy skoncim na takych hrach

[163]

163 ... aj Bananas mali spartakiadu

sorry, ale aspon vidis, ze aspon trocha pouzivam svoj rozum

nemtom - nespamuj

Deel - este k tomu stromu ti chyba vypis stromu ... cez toto show s totymi zatvorkami... bo ta funkcia ti ten strom len urobi...

presne tak... a to bola podstata zadania ... druha skupina mala prave strom zobrazovat, tato uloha bola len o vytvoreni stromu a nie jeho vypisani...

inac neviem, ale vyzera, ze budem mat este znenie druhej skupiny... aj ked uz asi kopec ludi ma tuto paradnu skusku ...

dnes to bolo uplne sila, ked som vonku na chodbe videl ako Kollar si odisiel do kancelarie na 15minut pocas skusky a vsetkych tam nechal ... a este az takmer zaklopal ked sa vracal

[1.]

som mal este davnejsie (teda minuly piatok) niekde uvadzam aj riesenia ked ma kopne muza a radsej typove definicie robte vsade, neviem kde to bolo priamo v zadani napisane aby sa robili, ale robte vsade  ... mozno ze nie vsetko bude uplne presne, ale priblizne ako som si zapamatal 

1. definujte rekurentne funkciu reverse

Code [Select] Expand

reverse :: [a] -> [a]
reverse (x:xs) = reverse xs ++ [a]

2. definujte rekurentne funkciu (+-+) co bude vykonavat naslednu cinnost:
[a₁,a₂,...a_n]+-+[b₁,b₂,...b_m] = [a₁,a₂,...a_n,b₁,b₂,...b_m]

Code [Select] Expand

(+-+) :: [a] -> [a] -> [a]
[] +-+ ys = ys
(x:xs) +-+ ys = x : (xs +-+ ys)

3. definujte nerekurentne funkciu rv[a₁,a₂,...a_n] = [a_n,...a₂,a₁] pomocou funkcie foldr a lokalne definovanou funkciou op
(je to vlastne funkcia reverse ale tu odporucam davat pozor, lebo to co sa nachadza v prelude.hs je definovane cez foldl... pomocka> nemozete pouzit operator ":" )

Code [Select] Expand

rv :: [a] -> [a]
rv [] = []
rv (x:xs) = foldr op [] (x:xs)
    where
       op a b = b ++ [a]

4. definujte nerekurzivne funkciu foldl1 pomocou funkcie foldl

Code [Select] Expand

foldl1 :: (a -> a -> a) -> [a] -> a
foldl1 f (x:xs) = foldl f x xs

5. definujte funkciu f ak plati:
   g = map f
pricom g ma na vstupe zoznam napriklad ["Ahoj","Pes",Bratislava"] a vrati vam ho ako [(4,"Ahoj"),(3,"Pes"),(10,"Bratislava")] ... cize vypocita pocet prvkov a da to do dvojic... zaroven treba urcit este aj vseobecnu typovu definiciu funkcie g

Code [Select] Expand

g :: [[a]] -> [(Int,[a])]
f :: [a] -> (Int,[a])
f xs = (length xs, xs)

6. vytvorte funkciu (dajme tomu, ze) strom ktora vrati binarny strom rovnakej dlzky na vsetkych vetvach ak na vstupe je zoznam cisel ktorych pocet je n^2... pricom strom bude tvaru nejak Btree a = Bin (Tip a) (Tip a) ... (tam to bolo dlhsie zadanie este)

Code [Select] Expand

data Btree a = Tip a | Bin (Btree a) (Btree a)
strom :: [a] -> Btree
strom [a] = Tip a
strom xs = Bin (strom us) (strom ps)
      where
          us = take len xs
          ps = drop len xs
          len = (length xs) 'div' 2

to je vsetko ... nerucim vsak uplne za nic

este aj nechapem, ze som tu napisal vsetky riesenia ... snad by to mohlo byt aj dobre, ked tak ma opravte

inac druha skupina mala nieco na styl rekurzivne a nerekurzivne map... potom sa mi vidi, ze definovat foldl (alebo foldr) a potom aj nieco so stromami aj s binarnym vyhladavacim, ale nemam sajnu co

no a chces povedat, ze v reklame z coho brali inspiraciu? ze to niekoho z cista jasna len tak napadlo??? uhmmm tak o tom by som zapochyboval, ze to nemoze byt aj v skutocnosti

[152]

152 hunter bude rozpravat v morzeofke

tha dobra ako dobra... rozmyslel by som si to RADSEJ viackrat taku stretnut...

[149]

149 ale len pokial by som tam nemusel tiez cislovat svoje vety ...

http://www.youtube.com/watch?v=Eh1EzAwg7oc&eurl=

azda to nie si ty...

[144]

144 gratulieren

ahoooooj... teda pa pa

stava sa aj to... a vynimka potvrdzuje pravidlo

hej, ospravedlnujem sa radsej aj ja... pojdem si popol sypat na hlavu radsej uz ...

ale na to stale treba minimalne dvoch ludi...

ja len nechapem co to do mna voslo, ze som sa pridal do toho... to asi davova psychoza... shit... sak ja normalne nie som taky...

tu nejde o posty ale o to aby sa nenudila, a aby sirila medzi kolegyne ze informatici neziju len pre svoje pc 

no presne, a este im poviem o vasom sarme a hned pridu :-P 

no vidiiis... a hned sa to tu rozbehne ... napokon ani dostatok satelitov a mesiacikov nebude

2nemtom: nepomozes si uz akosi... :/

tha vietor fuka aj tu kde ja sedim... a vidim, ze mas este dost casu teda na "spestrovanie fora druhym ludom" (alias spam) ... uz som sa asi aj ja nakazil...

aj tak sa to dalo povedat nemtom

(inac pocuj nemtom... nemali by sme sa radsej ucit ZI ? lebo ja mam pocit, ze dnes som len na fore alebo vysvetlujem spoluziackam FLP cez ICQ... divny to den)