Messages

prepracovat pracu a na september si da repete...

pridam aj ja jedno videjko: http://www.youtube.com/watch?v=_gcWAb5Dvz4
(ked uz taekwondo tak WTF )

Ide vam pripojenie na bukovec pomocou toho odbc?Bo som stiahol toto iconnect.zip a nainstaloval to.Vsetko ponastavoval podla navodu a ked dam otestovat pripojenie na databazu tak ma stroj presviedca ze som zadal zle heslo.

no jooo, ide to. akurat som si stiahol novy odbc driver informixu priamo z ibm stranky (musis sa registrovat). dnes som mal o tom prezentaciu a Telepovska to vraj da na moodle, a taktiez jej mam poslat ten novy driver (len sranda je v tom ze je to trial driver )

ide to???   tak mne to zatial nejde  presne ten isty problem ako kolega mal ze nespravne heslo    ale tak to by v driveri problem byt nemal 

a este otazocka   ked pustim dbaccess a tam dam Connection/Connect a zadam svoje username  a heslo tak mi vypise ne incorrect password 

ale ked nezadam username tak ma pripoji  cize otazka znie akoe mam potom heslo k svojmu username

ja sa pripajam v c# cez odbc takto: (inak na moodli v materialoch ku odbc mate uz aj moje zdrojaky ako sa napojit)
server name: ibukovec
host name: bukovec.fei.tuke.sk
service: 3000
protocol: onsoctcp
dbname: nazov_mojej_db
user id: (to iste ako na cviku sa pripajam cez putty)
pwd:  TEcislo

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)))))

ja nechcem vyzerat ako totalny magor, ale mne to neslape ani s tym lst ani s nicim inym..postup je ako pisal uz ejden vyssie..new, save, compile a na zaver load ?

(defun lst(list)
(cond
      ((null list) (list))
      ((null (cdr list)) (car list))
      (t (lst (cdr list)))))

takto by to mohlo ist...