Messages

aha, ta potom vomne bude chyba:D

neviem.. ale mod_rewrite ide... skusal som len jednoduche RewriteRule .* http://foo.bar [301,L] a fungovalo... skus si vycistit cache.. ja som  sa chvilu divil ze preco nefunguje a potom som refreshol cache a uz to fungovalo...

no len co tam do toho syntlogu vobec zadat <> stym

z domu sa mi neda pripojit na syntlog tha ti aspon napisem jak si to pamatam....
sa prihlasis najsamprv:), potom das kombinacne log. obvody a tam si kliknes na urcenie SDNF pomocou quin mccluskyho metody....das spustit applet
vyberes si pocet fcii taky kolko mas a premenne mas tiez (asi mas 4). potom do tych poli zadas fciu (napr. f={1,2,3,8,(4,7,9,14)}) a das start....
neviem ale isto bo uy si to nepamatam presne jak to tam vyzeralo....ked tha daj screen abo to opis...

to ze nejako nemam ziadnu taku funkciu...

no ak mas prevodnik tak mas vlastne 4 funkcie...
teda mas tam nejaku taku tabulku ze:
BCD               Gray
0 0 0 0         0 0 0 0
0 0 0 1         0 0 0 1
0 0 1 0         0 0 1 1
atd..

treba si najst ako vyzera gray code napriklad tu: http://en.wikipedia.org/wiki/Gray_code (zaujima ta ten 4 bitovy...) pricom robis len cisla od 0-9 (len tam je BCD definovany....)... pricom jednotlive stlpce pri bcd su vlastne vstupy (a, b, c, d) a stlpce pri gray su vystupy (f1, f2, f3, f4)...

inak niektore veci zrejme zavisia od pouziteho interpretera... ja som tieto priklady robil v clispe (Common LISP)...

zaroven nezabudnite ze funkcie sa volaju takto (funkcia argumenty) teda zatvorky su pred nazvom funkcie a argumenty idu bez zatvoriek...

mhm, a RewriteRule si neskusal? mne skor o to ide

no mne ide aj rewrite rule...

je tu niekto kto skusal na bukovec zavesit .htaccess?

teraz som to len tak skusal... preco?

a slo ti? bo mne nepustilo

no ja som tam skusil dat 301 redirect a fungovalo...

alebo tusim ze na wikipedii su pri Quine McCluskey algoritme odkazy na nejake java aplety...

trocha som sa dnes nudil a spravil som toto:

Code [Select] Expand


1.)  Napíšte funkciu, ktorá vráti počet prvkov v zozname (neobsahujúcom ďalšie zoznamy) - nepoužite LENGTH !
(defun len(list)
(cond ((null list) 0)
((null (cdr list)) 1)
(t (1+ (len (cdr list))))
)
)

2.) Napíšte funkciu, ktorá zistí, či počet prvkov v zozname (na najvyššej úrovni) je párny, alebo nepárny - nepoužite LENGTH !
(defun len(list)
(cond ((null list) 0)
((null (cdr list)) 1)
(t (1+ (len (cdr list))))
)
)

(defun parny(list)
(if (eq (mod (len list) 2) 0) 'parny 'neparny))



5.) Napíšte funkciu, ktorá zistí, či daný prvok je prvkom zoznamu (neobsahujúceho ďalšie zoznamy).
(defun contains(c list)
(cond ((eql c (car list)))
((null (cdr list)) (not (null (cdr list))))                         
(t (contains c (cdr list)))
)
)

6.) Napíšte funkciu, ktorá zistí, koľkokrát sa daný prvok vyskytuje v zozname (neobsahujúcom ďalšie zoznamy).
(defun counter(c list)
(cond ((eql c (car list)) (1+ (count c (cdr list))) )
((null (cdr list)) 0)                         
(t (count c (cdr list)))
)
)


7.) Napíšte funkciu, ktorá zistí, koľkokrát sa daný prvok vyskytuje v zozname (neobsahujúcom ďalšie zoznamy).
(defun nthelm(n list)
(cond ((eq 1 n) (car list))
(t (nthelm (- n 1) (cdr list))))
)


8.) Napíšte funkciu, ktorá vráti počet párnych čísel v zozname (neobsahujúcom ďalšie zoznamy).
(defun evenelm(list)
(cond  ((null (cdr list)) (if (eq (mod (car list) 2) 0) 1 0))
((eq (mod (car list) 2) 0) (1+ (evenelm(cdr list))))
(t (evenelm(cdr list)))
)
)

9.) Napíšte funkciu, ktorá vráti počet nepárnych čísel v zozname (neobsahujúcom ďalšie zoznamy).
(defun oddelm(list)
(cond  ((null (cdr list)) (if (eq (mod (car list) 2) 1) 1 0))
((eq (mod (car list) 2) 1) (1+ (evenelm(cdr list))))
(t (evenelm(cdr list)))
)
)

11.) Napíšte funkciu, ktorá vráti posledný prvok zoznamu (neobsahujúceho ďalšie zoznamy) - nepoužite LENGTH !
(defun last(list)
(cond
((null list) (return list))
((null (cdr list)) (car list))
(t (last (cdr list)))))


3. a 4. napisal MKI a 10. mam ja takze to tu nedavam..

:nevyhadzuje ti ta 11 pri kompilacii problem ?..lebo mne hej a nevem s tym ani pohnut, pls neskusil by si sa na to pozriet ?

eh no jasne ze vyhadzuje.. som si to nevsimol.. vyhadzuje preto lebo funkcia last uz v lispe existuje ... takze staci premenovat last na co ja viem napriklad lst..
takze spravne takto:
(defun lst(list)
(cond
      ((null list) (return list))
      ((null (cdr list)) (car list))
      (t (lst (cdr list)))))

je tu niekto kto skusal na bukovec zavesit .htaccess?

teraz som to len tak skusal... preco?

[ludia, ktori]

navyse pri niektorych odpovediach neviem co bolo smiesne... napriklad zeby trojrozmerna priamka neexistovala?? nastastie tam ziaden moj vyrok nie je

no asi tak... ani moj. ale stve ma to... napriklad v pohode viem povedat co je gula v 2D priestore, alebo co je priamka v 3D priestore... ale to asi oni nepochopia... nato treba aj trosku rozumu 
boze preco som si len ja vybral tento skurveny predmet a nie radsej siete2, kde som si mohol urobil aspon CCNA3 a CNNA4... jaaaaaaj, ale kto mal vediet ze zvysia narocnost tohto pojebaneho predmetu o 200% a ze to budu ucit taki ludia, ktori v pohode porusuju ochranu osobnych udajov a ich to vobec nejebe 

nemam slov 

jj ja som si tiez vyberal predmet, pretoze sa hovorilo, ze napises referat, pozries film a ides na skusku.. a teraz toto.. nastastie sa mi podarilo napisat tu pisomku aj perceptron.. a priamka v 3d priestore existuje!! aj v 4d a rovnako v akomkolvek n-rozmernom priestore.. to ze neoddeluje body je uz druha vec...

2. zosmiesnili nas (co my sme? ved nie kezdy je najlepsi a niekedy sa podari napisat nieco a sem-tam to aj blbo vyznie i ked to clovek mysli inak)

navyse pri niektorych odpovediach neviem co bolo smiesne... napriklad zeby trojrozmerna priamka neexistovala?? nastastie tam ziaden moj vyrok nie je

este keby som to vedel spustit, mam staihnute to alegro ci co to je...
mohol by mi niekto poradit co mam presne spravit aby som to spustil???
zatial som pouzival takyto postup:
new/save/compile/load
a potom som napisal:
(konkretne mam 5 zadanie)
(contains(2(1 2 3 4 5)))

ale akosi mi stale vypisuje nieco s debugerom pls help me

toto by malo fungovat: (contains 2 (1 2 3 4 5))

spravne je (contains 2 '(1 2 3 4 5)) kedze pred stringy a listy sa dava apostrof...

  mam to!!

trocha som sa dnes nudil a spravil som toto:

Code [Select] Expand


1.)  Napíšte funkciu, ktorá vráti počet prvkov v zozname (neobsahujúcom ďalšie zoznamy) - nepoužite LENGTH !
(defun len(list)
(cond ((null list) 0)
((null (cdr list)) 1)
(t (1+ (len (cdr list))))
)
)

2.) Napíšte funkciu, ktorá zistí, či počet prvkov v zozname (na najvyššej úrovni) je párny, alebo nepárny - nepoužite LENGTH !
(defun len(list)
(cond ((null list) 0)
((null (cdr list)) 1)
(t (1+ (len (cdr list))))
)
)

(defun parny(list)
(if (eq (mod (len list) 2) 0) 'parny 'neparny))



5.) Napíšte funkciu, ktorá zistí, či daný prvok je prvkom zoznamu (neobsahujúceho ďalšie zoznamy).
(defun contains(c list)
(cond ((eql c (car list)))
((null (cdr list)) (not (null (cdr list))))                         
(t (contains c (cdr list)))
)
)

6.) Napíšte funkciu, ktorá zistí, koľkokrát sa daný prvok vyskytuje v zozname (neobsahujúcom ďalšie zoznamy).
(defun counter(c list)
(cond ((eql c (car list)) (1+ (count c (cdr list))) )
((null (cdr list)) 0)                         
(t (count c (cdr list)))
)
)


7.) Napíšte funkciu, ktorá zistí, koľkokrát sa daný prvok vyskytuje v zozname (neobsahujúcom ďalšie zoznamy).
(defun nthelm(n list)
(cond ((eq 1 n) (car list))
(t (nthelm (- n 1) (cdr list))))
)


8.) Napíšte funkciu, ktorá vráti počet párnych čísel v zozname (neobsahujúcom ďalšie zoznamy).
(defun evenelm(list)
(cond  ((null (cdr list)) (if (eq (mod (car list) 2) 0) 1 0))
((eq (mod (car list) 2) 0) (1+ (evenelm(cdr list))))
(t (evenelm(cdr list)))
)
)

9.) Napíšte funkciu, ktorá vráti počet nepárnych čísel v zozname (neobsahujúcom ďalšie zoznamy).
(defun oddelm(list)
(cond  ((null (cdr list)) (if (eq (mod (car list) 2) 1) 1 0))
((eq (mod (car list) 2) 1) (1+ (evenelm(cdr list))))
(t (evenelm(cdr list)))
)
)

11.) Napíšte funkciu, ktorá vráti posledný prvok zoznamu (neobsahujúceho ďalšie zoznamy) - nepoužite LENGTH !
(defun last(list)
(cond
((null list) (return list))
((null (cdr list)) (car list))
(t (last (cdr list)))))


3. a 4. napisal MKI a 10. mam ja takze to tu nedavam..

no to hej... ale pochybujem ze sa im chce hladat osobne cisla TE..... ku kazdemu studentovi... lebo na pisomke sa nikde nepisali

podla mna na to maju nejaku neuronovu siet postavenu, ktora vie ku kazdemu studentovi priradit TE cislo

hej, ale ved tam sa pise, ze...

V prípade, že existuje štandardná LISP-ovská funkcia, riešiaca Váš problém - NEPOUŽITE JU !!!

... to znamena, ze nemam pouzit fciu "MAX" (v mojom pripade), ale nikde sa tam nepise, ze nemozem pouzit "IF, AND,..." to potom ani "DEFUN" nemozem pouzit??? Nemam si potom nahodou podla nich stvorit vlastny programovaci jazyk??? sak ked uz vlastne file-systemy na nas usili tak preco nie aj toto??? ta ich vynaliezavost, aby nas vyhodili z FEI fakt uz nepozna hranice...

ved to som povedal

fakt nikto za peniaze nespravi z BCD do Grayovho kodu ?

ved na ftp mas zadania.. a tusim aj toto som tam videl...

V prípade, že existuje štandardná LISP-ovská funkcia, riešiaca Váš problém - NEPOUŽITE JU !!! (napr. funkcie LENGTH, LAST)

if a anad pouzit mozem nie ?

ani if, ani cdr a car nesmies pouzit.. vlastne nemozes pouzivat ziadnu lisp funkciu a musis si napisat vlastny jazyk aj s interpreterom.. len nam to nechceli povedat priamo ta dali take easy priklady... 

nice, ja svoje viem dat do 1:D:D:D

hej.. aj ked poviem ze moj program ma 500 riadkov neznamena ze na kazdom daco je 

hmmm vyborne, a uz si z neho nieco riesil? or si zohnal niekde? lebo od stvrtakov som nejake pozhanal ale moje tam bohuzial nieje...

da sa s tebou nejako rozumne dohodnut?

zatial som neriesil, ale ako som tak na to pozeral tak to nie je nic tazke...

ee, uz mam riesenie, vdaka pufovi, je to na 7 riadkov a je to genialne:D

ja mam na 5 a je to pologenialne a rekurzivne..

:D si jak M$

podla vas aj to je zle ked si spravim vlastny length?

to nemoze byt zle... ved je pisane ze nemozes pouzivat standardnu funkciu lispu.. ak si napises vlastnu tak je to ok.. ale aby nepindali tak si ju nazvi inak... napriklad funkcia nemtom..

ktory dobrak ma zadanie c. 1??? (ze sa nejako rozumne dohodneme)

ja mam

no lol Programovacie schopnosti, nesu zarukou na dobry sex


ale ked hej potom ja neviem programovat


lebo ja som zliiiiii v posteli

ani v C-cku?? ja som si myslel ze hej.. hlavne ked mi kamaratka hovorila ze som vyborny programator 

ja mam najst posledny prvok v zozname ... takze kto ma take iste nech sa ozve tuna nieco poriesime.

ja mam najst predposledny.. len neviem kde ho mam hladat.. takze ked najdes posledny mi povedz ktory to je 

ja mam tiez toto, ja to budem riesit tak ze prehodim zoznam od konca a vyberem druhy

presne to mi napadlo, ale este sa pre istotu spytam. sice tam je vyslovne povedane ze nesmieme pouzivat funkciu length, cize reverse by malo byt ok..

alebo daco take ze
(car (reverse (butlast list)))

ja mam najst posledny prvok v zozname ... takze kto ma take iste nech sa ozve tuna nieco poriesime.

ja mam najst predposledny.. len neviem kde ho mam hladat.. takze ked najdes posledny mi povedz ktory to je