TUKE FÓRUM - Fórum pre študentov Technickej Univerzity v Košiciach

Quote from: Ev0 on  11.11.2007, 23:55:29
ake zadania ? WTF :D pls hodte niekto link na nich.

Quote from: Ev0 on  14.11.2007, 02:00:33
ja mam najst posledny prvok v zozname ... takze kto ma take iste nech sa ozve tuna nieco poriesime.

Quote from: Ev0 on  14.11.2007, 02:00:33
ja mam najst posledny prvok v zozname ... takze kto ma take iste nech sa ozve tuna nieco poriesime.

Quote from: buhehe on  14.11.2007, 02:45:49

Quote from: Ev0 on  14.11.2007, 02:00:33
ja mam najst posledny prvok v zozname ... takze kto ma take iste nech sa ozve tuna nieco poriesime.

to je jedenastka??? ja mam to iste......

Quote from: kane77 on  14.11.2007, 02:33:58

Quote from: Ev0 on  14.11.2007, 02:00:33
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  :j_tongue:

Quote from: nemtom on  14.11.2007, 04:18:17

Quote from: kane77 on  14.11.2007, 02:33:58

Quote from: Ev0 on  14.11.2007, 02:00:33
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  :j_tongue:

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

Quote from: kane77 on  14.11.2007, 17:20:30

Quote from: nemtom on  14.11.2007, 04:18:17

Quote from: kane77 on  14.11.2007, 02:33:58

Quote from: Ev0 on  14.11.2007, 02:00:33
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  :j_tongue:

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

Quote from: nemtom on  14.11.2007, 23:55:58
ja som tiez vypol IMON ale ajtak netahalo

Quote from: trek on  15.11.2007, 21:50:08

Quote from: nemtom on  14.11.2007, 23:55:58
ja som tiez vypol IMON ale ajtak netahalo

no ja som musel odinstalovat cely nod az tak mi to stiahlo

Quote from: pUf on  15.11.2007, 20:21:00
sa vam chcel pochvalit ze ja uz viem porovnat 2 prvky a vypisat ktory je vacsi. idem zaimplementovat pre 3. prvok :D


edit:

(https://www.tu-ke.com/forum/proxy.php?request=http%3A%2F%2Fimg410.imageshack.us%2Fimg410%2F4690%2Flispxt6.jpg&hash=414e31312c1da35b1cb122a0e612d5bcec2ae292)

:j_laugh:

akurat neviem preco dvakrat to pise ale ja to zistim :D

edit2: aha uz viem :D

Quote from: MKI on  16.11.2007, 01:09:15
nemate nejaky tutorial ako programovat v lispe ? :D niekto totiz nemal funkcionaln eprogramovanie ...

Quote from: nemtom on  16.11.2007, 04:16:56
ja si davam patentovat algoritmus:D da sa pozret na fore ze som to prvy napisal:D

Quote from: nemtom on  16.11.2007, 04:16:56
ja si davam patentovat algoritmus:D da sa pozret na fore ze som to prvy napisal:D

Quote from: nemtom on  15.11.2007, 18:25:09
kazdy prvok porovnas s ostatnymi dvoma a ked ti vyde ze je vacsi aj od jedneho aj od druheho tak mas vysledok, myslim ze v tomto zadani nieje co riesit, tak isto pri minimalnom

Quote from: pUf on  15.11.2007, 22:53:32
ale no .. ved to ma 13 riadkov a z toho 5 riadkov su iba zatvorky.. sak to je uplne easy  bk

Quote from: nemtom on  16.11.2007, 15:50:48
aha puf, ja ze to mne pises ked mna si quotoval

Quote from: nemtom on  16.11.2007, 15:58:47
:D:D si jak M$ :D

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

Quote from: nemtom on  16.11.2007, 20:34:52
:) ee, uz mam riesenie, vdaka pufovi, je to na 7 riadkov a je to genialne:D

Quote from: nemtom on  16.11.2007, 21:58:35
:) nice, ja svoje viem dat do 1:D:D:D

Quote from: MKI on  16.11.2007, 22:06:51
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 ? :D

Quote from: m!x41 on  17.11.2007, 01:47:51
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...

Quote from: gori on  18.11.2007, 01:07:45
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 bu

Quote from: paly-sk on  18.11.2007, 01:55:54

Quote from: gori on  18.11.2007, 01:07:45
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 bu

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

Quote from: kane77 on  17.11.2007, 22:26:39
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.. :)

Quote from: santa_claus on  18.11.2007, 18:38:57

Quote from: kane77 on  17.11.2007, 22:26:39
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 ? :lb:

Quote from: kane77 on  18.11.2007, 19:38:09

Quote from: santa_claus on  18.11.2007, 18:38:57

Quote from: kane77 on  17.11.2007, 22:26:39
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 ? :lb:

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

Quote from: santa_claus on  18.11.2007, 22:34:35

Quote from: kane77 on  18.11.2007, 19:38:09

Quote from: santa_claus on  18.11.2007, 18:38:57

Quote from: kane77 on  17.11.2007, 22:26:39
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 ? :lb:

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 ?

Quote from: misoka on  19.11.2007, 01:20:08

Quote from: santa_claus on  18.11.2007, 22:34:35

Quote from: kane77 on  18.11.2007, 19:38:09

Quote from: santa_claus on  18.11.2007, 18:38:57

Quote from: kane77 on  17.11.2007, 22:26:39
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 ? :lb:

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... :thumbsup:

Quote from: m!x41 on  20.11.2007, 21:34:08
to MKI: no asi tazko "len 3b. z eseje", ked musis mat zo seckeho nadpolovicnu vascinu... (aj z percetronu, aj z pisomky, aj z lispu, aj z eseje...)

bp

Quote from: m!x41 on  20.11.2007, 22:25:52
a mas to overene? abo len tak tvoj subjektivny nazor???

Quote from: ma5ter on  21.11.2007, 21:49:07
caute...ma nietko zadanie c.8?  Napíšte funkciu, ktorá vráti počet párnych čísel v zozname (neobsahujúcom ďalšie zoznamy). zislo by sa mi :)