;;; EMBARALHA

(defvar embaralha-teste nil)
(setf embaralha-teste (list '(1 2 3 4 5)
		            '(1)
		            '(1 (2 3 x y) ((4 5) 6 z) 7 8 (9 10))
		            '(((1 2 3)))
		     ))
      
(defvar emb-resp nil)
(setf embaralha-resposta (list '(1 4 2 5 3)
			       '(1)
		               '(1 7 (2 X 3 Y) 8 ((4 5) Z 6) (9 10))
		               '(((1 3 2)))
		     ))

;;; MULTP


(defvar multp-teste nil)
(defvar multp-resp nil)

(setf multp-teste (list (list '((1 2 2) (4 5 6)) 
			     '((5 4 3 2 1) (9 8 7 6 5) (0 1 2 3 4)))
		       (list  '(( 1 2 3) (3 2 1))
			      '(( 6 7 8) (9 8 7)))
		       (list  '((3 4) (5 2))
			      '((5 3) (-1 -2)))
		       (list '((4 4 4 4 4 ))
			     '((5 1) (6 1) (7 -1) (8 1) (9 1)))
		       ))

(setf multp-resp (list '((23 22 21 20 19) (65 62 59 56 53))
		      nil
		      '((11 1) (23 11))
		      '((140 12))
		      ))


;;;  MST

(defvar mst-teste nil)
(defvar mst-resp nil)

(setf mst-teste (list '((a b 1) (b c 2) (c d 3) (d e 4) (a d 5) (a c 5) (b e 5))
		      '((a b 3) (a b 3) (b a 3) (a c 4) (d a 5) (a d 5)
			(a e 5) (b c 10) (c d 10) (c e 10))
		      '((a b 1) (b c 3) (a c 3) (c d 4) (b d 7)
			(d e 4) (e f 2) (f a 13) (c e 8) (e a 12))
		      '((a b 1) (b c 2))
		      ))

(setf mst-resp (list '((a b) (b c) (c d) (d e))
		     '((a b) (a c) (a d) (a e))
		     '((a b) (b c) (c d) (d e) (e f))
		     '((a b) (b c))
		     ))



;;; CONTA

(setf conta-teste  (mapcar #'pathname 
		     (list "./teste1.html" "./teste2.html" "./teste3.html" "./teste4.html")))


(setf conta-resp (list '(2 2) '(2 2) '(0 0) '(2 44)))