CAD Fórum : Test zoznamov

Test zoznamov : Ďakujem :)

Tue, 12 Mar 2013 08:43:29 +0000

Autor: michaelflyer
P�edm�t: 16801
Zasl�no: 12.b�e.2013 v 08:43

�akujem :)

Test zoznamov : Přes cyklení bych to neřešil -...

Mon, 11 Mar 2013 15:25:03 +0000

Autor: Vladim�r Michl
P�edm�t: 16801
Zasl�no: 11.b�e.2013 v 15:25

P�es cyklen� bych to ne�e�il - LISP si daleko l�pe porad� se "seznamov�m" p��stupem. Nap�.

(defun NonEqList (L1 L2)
 (vl-remove-if '(lambda (e)(member e L2)) L1)
)

Pozor, funkce nen� symetrick�:

(NonEqList '(8 7 6 5 4) '(7 5 1 8 0))
'(4 6)

Pro symetrick� test je t�eba spojit oba sm�ry - tedy:

(defun NonEqListSym (L1 L2)
 (append (NonEqList L1 L2) (NonEqList L2 L1))
)

Asi by cht�lo p�idat n�jak� kontroly zda je seznam pr�zdn�, apod.

Test zoznamov : Zdraím Vás. Potreboval by som...

Mon, 11 Mar 2013 15:02:40 +0000

Autor: michaelflyer
P�edm�t: 16801
Zasl�no: 11.b�e.2013 v 15:02

Zdra�m V�s.

Potreboval by som urobi� jednoduch� lisp. Ktor� by testoval zoznam zo zoznamom a vyplul by IBA nezhodn� v�sledky:

M�m list ( A1, A2 A3, ...An)

a list (B1, B2, B3, ...Bn)

Potrebujem otestovat A1 s B1 a� Bn a zase An s B1 a� Bn a zap�sa� ich do zoznamu. Tu vznik� ale probl�m. Ke� to robim cez repead tak neviem o�etri� aby sa NEzap�sali hodnoty, ktor� s� toto�n�.

Ak A1 sa zhoduje s B1 --> NEzap�e B1 (tot je spr�vne)

pokra�ujeme A2 sa NEzhoduje s B1 --> zap�e ho do zoznamu (ale ja nechcem u� zap�sa� tento prvok do zoznamu, preto�e sa zhoduje s A1).

E�te som rozm��lal na if, alebo foreach, ale to by bolo asi riadne zd�hav�. Nexistuje nie�o jednoduch�ie na porovnanie zoznamu so zonamom? Nechcem eq, lebo to mi ni� nerie�i...