Zkouska 12.2.

Uživatelský avatar
Fairfax
Matfyz(ák|ačka) level I
Příspěvky: 28
Registrován: 17. 1. 2006 19:05
Typ studia: Matematika Mgr.
Kontaktovat uživatele:

Zkouska 12.2.

Příspěvek od Fairfax »

Stejne kazdyho zajima jenom zadani... takze:

Haskell:
1. poradi k-cifernych cisel
2. mobil
Prolog:
3. souctove seznamy
4. sifra novy hrabe Monte Christo

detaily -> viz. priloha
(viditelna pouze pro prihlasene... ale to preci vsichni vedi.. :wink: )

1 X X X
X X 7 X
9 X X12
X X X X
Přílohy
neproc.jpg
neproc.jpg (465.29 KiB) Zobrazeno 5796 x
Uživatelský avatar
Fairfax
Matfyz(ák|ačka) level I
Příspěvky: 28
Registrován: 17. 1. 2006 19:05
Typ studia: Matematika Mgr.
Kontaktovat uživatele:

Cast prikladu 4. (jen to zajimave)

Příspěvek od Fairfax »

/*
priklad sifry
cislo znamena pozici v mrizce kde je dira
1 X X X
X X 7 X
9 X X12
X X X X
*/
sifra(X):- X = [1,7,9,12].

/*rotace cteci mrizky*/
otoc(1,4).
otoc(2,8).
otoc(3,12).
otoc(4,16).
otoc(5,3).
otoc(6,7).
otoc(7,11).
otoc(8,15).
otoc(9,2).
otoc(10,6).
otoc(11,10).
otoc(12,14).
otoc(13,1).
otoc(14,5).
otoc(15,9).
otoc(16,13).

/* quicksort na trideni sifry po rotaci */
split1(_,[],[],[]).
split1(P,[A|Za],[A|S1],S2):- A < P , split1(P,Za,S1,S2).
split1(P,[A|Za],S1,[A|S2]):- A >= P , split1(P,Za,S1,S2).

qsort([],[]).
qsort([A|Za],X):- split1(A,Za,M,V),
qsort(M,Ms),
qsort(V,Vs),
conc(Ms,[A|Vs],X).
/* zretezeni seznamu */
conc([],B,B).
conc([A|Za],B,[A|Zb]):- conc(Za,B,Zb).

/* rotace mrizky */
rotate([A,B,C,D],[E,F,G,H]):-otoc(A,E),otoc(B,F),otoc(C,G),otoc(D,H).

/*
desifruj(Zasifrovany,Nezasifrovany).
-funguje obema smery
priklad volani:
desifruj([a,e,m,f,i,n,b,j,c,k,g,d,o,h,p,l],X),write(X).
[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p]
*/
desifruj(X,Res):- sifra(S),cti(X,S,R1),
rotate(S,S1),cti(X,S1,R2),
rotate(S1,S2),cti(X,S2,R3),
rotate(S2,S3),cti(X,S3,R4),
conc(R1,R2,H1),conc(R3,R4,H2),conc(H1,H2,Res).


/* vybere n-ty prvek seznamu */
taken(1,[A|_],A).
taken(N,[_|Za],X):- N > 0,N1 is N - 1,taken(N1,Za,X).

/*
obraspoj(S1,S2,S).
obrati S1 a pripoji za nej S2
vysledek v S
*/
obraspoj([],B,B).
obraspoj([A|Za],B,Res):- obraspoj(Za,[A|B],Res).

/*
precte to "co je videt" pri aktualnim natoceni mrizky
pomoci read(+TextZasifrovany,+SetridenaSifra,-TextNezasifrovany)*/
cti(TZ,S,TN):- qsort(S,SS),read(TZ,SS,TN).

read(_,[],[]).
read(T,[A|Za],[Zn|Zb]):- taken(A,T,Zn),read(T,Za,Zb).
Návštěvník

Příspěvek od Návštěvník »

dnes uz byl posledni termin ve zkouskovem ze? rikal kryl neco o tom jak to bude s terminy dal?
Prince_of_Persia
Matfyz(ák|ačka) level II
Příspěvky: 81
Registrován: 19. 1. 2006 15:53
Typ studia: Informatika Mgr.
Bydliště: Jindřichův Hradec
Kontaktovat uživatele:

Příspěvek od Prince_of_Persia »

Anonymous píše:dnes uz byl posledni termin ve zkouskovem ze? rikal kryl neco o tom jak to bude s terminy dal?
No na zkousce nic nerikal, dnes jdu na ustni a pokud me vyhodi, tak bych se ho hned zeptal, kdyze to asi planuje... Asi taky zalezi na tom kolik lidi tu zkousku po tomhle terminu jeste nebude mit.

Kdybych to zjistil, tak to sem hodim.

FP

uspech_neproceduralko(Me):-hafo_stesti(Me),dobra_nalada(Kryl).

EDIT: Tak Kryl si priblizne za dva tydny ujasni, kdy budou dalsi terminy... Rikal, ze cca 1x za mesic + 2 v cervnu.
Naposledy upravil(a) Prince_of_Persia dne 13. 2. 2007 12:58, celkem upraveno 1 x.
Uživatelský avatar
Fairfax
Matfyz(ák|ačka) level I
Příspěvky: 28
Registrován: 17. 1. 2006 19:05
Typ studia: Matematika Mgr.
Kontaktovat uživatele:

Efektivita....

Příspěvek od Fairfax »

Tak jsem se dozvedel, ze temer vse co jsem napsal je neefektivni...
Zivot je boj...

Nejvetsi nelibost vzbudilo moje reseni mobilu...
rekurzivne jsem pro kazdy "podmobil" pocital hmotnost zvlast...
pry je to uvedeno jako odstrasujici priklad ve vsech ucebnicich programovani a ve druhaku uz bych takove veci mel vedet...

Sifrovani mam taky neefektivne (to co je zde sice funguje, ale pokud chcete za 1 napiste si radsi neco lepsiho...)
Cela neefektivnost spociva v predikatu read... ma se pry namapovat vektor neinicializovanych promennych a pak unifikovat celou sesnactici najednou... presne nevim jak..
Reseni rotace mrizky je navic neelegantni.

Nicmene.. 2 je taky znamka.. a hlavni je autogram v indexu..
Prince_of_Persia
Matfyz(ák|ačka) level II
Příspěvky: 81
Registrován: 19. 1. 2006 15:53
Typ studia: Informatika Mgr.
Bydliště: Jindřichův Hradec
Kontaktovat uživatele:

Příspěvek od Prince_of_Persia »

2 Fairfax: No mobil si mel tedy asi tak priblizne stejne neefektivni jako ja :-)
Pricemz me uklidnil, ze jen jedinej clovek to udelal zatim v lepsim casem nez exponencialnim :-)

Po pisemce to se mnou vypadalo blede, dostal sem sanci v podobe Mecovani parametru v Haskellu i s napovedou co by tak chtel slyset.

Vysledek 3, atmosfera pratelska :-)
Uživatelský avatar
tommy
Matfyz(ák|ačka) level I
Příspěvky: 24
Registrován: 1. 6. 2006 13:55

Příspěvek od tommy »

No ja tam idem zajtra a vidim to na letecky den :( ... mozno sa aj zacnem ucit na ustnu ak sa "nahodou" stane nejaky zazrak ... So help me GOD.
There's nothing left to lose.
Jakobicek
Matfyz(ák|ačka) level II
Příspěvky: 53
Registrován: 26. 1. 2006 12:42
Typ studia: Informatika Bc.
Bydliště: Praha... VSE/MATFYZ

Příspěvek od Jakobicek »

doktor kryl byla docela v pohode
i kdyz dnesni statistika nevypadala uplne nejlepe
1 1
2 2
3 1
4 2
nad vasim resenim premysli a obcas mu to docela trva...
mozna ma urcity smysl pokusit se uhadat lepsi znamku... me se to podarilo... pokud se tak rozhodnete mam pocit ze klade duraz na samostatnost projevu a nebude se mu libit pokud to z vas bude muset nasilne pacit
Minsk will lead with blade and sword Boo will sort out the details
Uživatelský avatar
hippies
Admin(ka) level I
Příspěvky: 990
Registrován: 29. 9. 2004 12:46
Typ studia: Informatika Mgr.
Bydliště: Mladá Boleslav
Kontaktovat uživatele:

Příspěvek od hippies »

Jakobicek píše:doktor kryl byla docela v pohode
i kdyz dnesni statistika nevypadala uplne nejlepe
1 1
2 2
3 1
4 2
...
hh, tohle je statistika, ktera nevypada nejlepe:


http://kocour.ms.mff.cuni.cz/~zemlicka/ ... 7/zk06.htm
Jakobicek
Matfyz(ák|ačka) level II
Příspěvky: 53
Registrován: 26. 1. 2006 12:42
Typ studia: Informatika Bc.
Bydliště: Praha... VSE/MATFYZ

Příspěvek od Jakobicek »

ano to jiste je :oops:
Minsk will lead with blade and sword Boo will sort out the details
Odpovědět

Zpět na „2006“