(SYSTEM::VERSION '(20040222.)) #0Y UTF-8 #Y(#:|(DEFUN JUGAR (J1 &OPTIONAL # ...) ...)-1| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::JUGAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::JUGAR #56Y(00 00 00 00 01 00 03 00 00 11 3B 03 03 0E 00 FB 3B 02 03 0E 01 FA 3B 01 05 6B 02 61 01 F9 AE 2F 03 AD AF 8A 04 0F B0 B0 B2 76 00 B2 B2 6E 03 05 B0 29 04 09 55 3E 19 05) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::A COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL COMMON-LISP-USER::VERESTADO COMMON-LISP-USER::FINAL? COMMON-LISP-USER::TRANSITAR)) #Y(#:|(DEFUN HUMANO NIL ...)-2| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::HUMANO SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::HUMANO #22Y(00 00 00 00 00 00 00 00 00 01 DA 6B 01 33 01 15 38 04 31 77 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) #Y(COMMON-LISP-USER::HUMANO-1 #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 89 9E 19 03) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) " > ") COMMON-LISP::*STANDARD-OUTPUT*)) #Y(#:|(DEFUN HUMANO2 (&OPTIONAL #) ...)-3| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::HUMANO2 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::HUMANO2 #50Y(00 00 00 00 00 00 01 00 00 07 3B 01 03 0E 00 F9 DB 6B 02 33 01 15 38 04 71 77 AC AF 6F 03 DE 38 02 8C B4 0B DF 38 01 31 84 38 01 29 01 04 5B 15 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::A #Y(COMMON-LISP-USER::HUMANO2-1 #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 89 9E 19 03) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) " > ") COMMON-LISP::*STANDARD-OUTPUT* COMMON-LISP-USER::ACCIONES #.#'COMMON-LISP::EQUALP "No entiendo eso.")) #Y(#:|(DEFUN JUEGOAC (&OPTIONAL # # ...) ...)-4| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::JUEGOAC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::JUEGOAC #40Y(00 00 00 00 00 00 02 00 80 24 01 00 00 00 3B 03 03 0E 01 FB 3B 02 03 0E 02 FA DD B0 B0 DE 64 2D 05 05 99 06 2F 07 19 04) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :EF COMMON-LISP-USER::A COMMON-LISP-USER::INICIAL "m" 0. COMMON-LISP-USER::TRANSITAR COMMON-LISP-USER::HUMANO2 COMMON-LISP-USER::JUGAR)) #Y(#:|(DEFUN ACCIONES (LC &OPTIONAL #) ...)-5| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ACCIONES SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::ACCIONES #54Y(00 00 00 00 01 00 01 00 00 08 3B 01 0F 7D 01 92 02 0D 9E 19 03 95 02 AE 29 02 05 6E 93 02 73 94 02 6F 00 AE DB 38 02 8C B4 6B 95 02 94 03 6F 00 A0 7A 29 02 05 54) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::ORDEN #.#'COMMON-LISP::EQUAL)) #Y(#:|(DEFUN POSIBLES (ACCIONES LC L) ...)-6| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::POSIBLES SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::POSIBLES #58Y(00 00 00 00 03 00 00 00 00 04 92 03 0E 00 19 04 95 03 AF AF 29 03 07 00 93 03 72 AD 94 04 B0 B0 DA 63 6E 05 01 8E 02 68 94 03 AF AF DA 63 6E 05 01 95 04 B0 B0 28 61 5D 19 04) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. COMMON-LISP-USER::TRANSITAR)) #Y(#:|(DEFUN POSIBLES2 (ACCIONES LC L) ...)-7| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::POSIBLES2 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::POSIBLES2 #51Y(00 00 00 00 03 00 00 00 00 04 92 03 0E 00 19 04 95 03 AF AF 29 03 07 00 93 03 72 AD 94 04 B0 B0 DA 63 6E 05 01 8E 02 68 94 03 95 04 B0 B0 28 68 5D 19 04) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. COMMON-LISP-USER::TRANSITAR)) #Y(#:|(DEFUN CUMPLEF (L L2) ...)-8| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::CUMPLEF SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::CUMPLEF #42Y(00 00 00 00 02 00 00 00 00 03 92 02 06 02 19 03 93 02 7A 94 02 24 00 07 94 02 94 02 8F 02 08 95 02 95 02 29 02 05 69 00 19 03) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::*)) #Y(#:|(DEFUN FINAL? (LEF L2) ...)-9| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::FINAL? SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::FINAL? #35Y(00 00 00 00 02 00 00 00 00 03 92 02 06 00 19 03 93 02 7A 94 02 AE 30 00 1E 07 95 02 AE 29 02 05 6F 19 03) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::CUMPLEF)) #Y(#:|(DEFUN HACER (&KEY # # ...) ...)-10| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::HACER SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::HACER #65Y(00 00 00 00 00 00 00 00 80 1B 04 00 00 00 00 2B 02 3B 05 03 0E 04 FD 3B 04 04 6B 05 61 01 0B 00 00 3B 03 04 6B 06 2F 07 0B 00 01 3D 02 B1 E2 AE 6D 09 01 E4 B0 6D 0B 01 E6 E7 DD B6 2D 09 0E 19 06) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) :INI :FIN :ACC :TRAZA COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL COMMON-LISP-USER::A COMMON-LISP-USER::ACCIONES :FINALP #Y(COMMON-LISP-USER::HACER-1 #18Y(00 00 00 00 01 00 00 00 00 02 69 00 01 AE 30 01 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::NIL COMMON-LISP-USER::FINAL?) :HIJOS #Y(COMMON-LISP-USER::HACER-2 #32Y(00 00 00 00 01 00 00 00 00 02 69 00 02 6B 01 AF 6E 03 02 69 00 02 6B 01 B0 6E 03 03 40 02 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP::NIL COMMON-LISP-USER::A COMMON-LISP-USER::POSIBLES COMMON-LISP-USER::POSIBLES2) :EQESTADO #.#'COMMON-LISP::EQUALP COMMON-LISP-USER::AMPLITUD)) #Y(#:|(DEFUN LEERLISTA (CADENA E) ...)-11| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::LEERLISTA SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::LEERLISTA #51Y(00 00 00 00 02 00 00 00 00 03 01 02 B0 38 01 31 84 38 04 71 74 80 4B 00 14 DA 8E 02 10 AC DB 8E 02 0E AC 38 01 71 D4 AE 30 02 F9 1B 64 9E 19 05 A0 19 05) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "!" "-" COMMON-LISP-USER::INSORD)) #Y(#:|(DEFUN SITUAR (E N L) ...)-12| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::SITUAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::SITUAR #32Y(00 00 00 00 03 00 00 00 00 04 AE DA 90 01 2D 0C 94 01 B0 97 04 95 04 28 71 5D 19 04 AF 9F 1B 79) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0.)) #Y(#:|(DEFUN FABESTADO (LL LP) ...)-13| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::FABESTADO SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::FABESTADO #45Y(00 00 00 00 02 00 00 00 00 03 DA AF AF 63 1B 14 87 01 00 14 B3 B1 70 01 70 02 B0 B0 2D 03 03 FA 85 03 83 01 AD 8D 92 68 16 02 15 19 04) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) 0. COMMON-LISP-USER::ELEMENTO COMMON-LISP-USER::LEERLISTA COMMON-LISP-USER::SITUAR)) #Y(#:|(DEFUN TINI NIL ...)-14| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::TINI SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::TINI #51Y(00 00 00 00 00 00 00 00 00 01 63 38 01 31 8B 6B 00 DB 6B 00 72 47 1B 0D 6B 00 72 47 DC AF 73 02 36 84 03 85 01 AD AD 91 01 32 6D A0 16 01 F8 30 03 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::INICIAL 0. 1. COMMON-LISP-USER::FABESTADO)) #Y(#:|(DEFUN TFINAL NIL ...)-15| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::TFINAL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::TFINAL #87Y(00 00 00 00 00 00 00 00 00 01 01 02 38 01 31 8B DA 38 01 31 84 38 01 31 8B 38 01 31 8B DB 6B 02 72 47 1B 05 DD 84 03 85 01 AD AD 91 01 32 75 A0 16 01 F8 DB 6B 02 72 47 1B 0D 6B 02 72 47 DE AF 73 02 36 84 03 85 01 AD AD 91 01 32 6D A0 16 01 F8 70 05 61 01 19 03) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "Escriba ! para terminar, y - para ignorar." 0. COMMON-LISP-USER::FINAL COMMON-LISP::* 1. COMMON-LISP-USER::FABESTADO)) #Y(#:|(DEFUN INCLUIR (&OPTIONAL #) ...)-16| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::INCLUIR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::INCLUIR #55Y(00 00 00 00 00 00 01 00 00 07 3B 01 0A 7D 01 93 01 08 1B 13 9F 19 03 92 01 0D 38 01 31 8B DA 38 01 31 84 38 01 31 8B 38 04 71 77 AC DB 8E 02 64 AC A0 7A 29 01 04 53) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "Escriba ! para terminar" "!")) #Y(#:|(DEFUN MENU (&OPTIONAL # # ...) ...)-17| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::MENU SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::MENU #119Y(00 00 00 00 00 00 03 00 00 10 3B 03 03 0E 00 FB 3B 02 05 6B 01 61 01 FA 3B 01 04 6B 02 2F 03 63 38 01 31 8B DE 38 01 31 84 38 01 31 8B DF 38 01 31 84 38 01 31 8B E0 38 01 31 84 38 01 31 8B 38 01 31 8B 38 04 80 74 00 14 24 07 0E AC 24 09 13 AC 24 0B 18 B0 B0 30 0A 19 05 2E 08 38 03 29 03 08 FF A7 2E 0A 38 03 29 03 08 FF 9E 38 01 31 8B 38 01 31 8B 3E 19 05) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL COMMON-LISP-USER::A COMMON-LISP-USER::ACCIONES "1. Jugar" "2. Buscar solución de manera automática" "3. Salir" 1. COMMON-LISP-USER::JUEGOAC 2. COMMON-LISP-USER::IA 3.)) #Y(#:|(DEFUN IA (&OPTIONAL # # ...) ...)-18| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::IA SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::IA #235Y(04 00 01 00 00 00 03 00 00 10 3B 03 03 0E 00 FB 3B 02 05 6B 01 61 01 FA 3B 01 05 6B 02 2F 03 F9 63 38 01 31 8B DE 38 01 31 84 38 01 31 8B DF 38 01 31 84 38 01 31 8B E0 38 01 31 84 38 01 31 8B E1 38 01 31 84 38 01 31 8B E2 38 01 31 84 38 01 31 8B 38 01 31 8B 38 04 80 74 00 14 24 09 80 68 AC 24 0B 80 67 AC 24 0D 80 67 AC 25 0F 80 6F 31 CA 42 09 53 17 38 01 31 8B EA BC EB BD EC BE 6E 06 13 38 01 31 81 38 01 31 8B 3E 54 98 14 45 31 CA 41 67 01 00 08 67 01 00 07 67 01 00 06 67 01 00 05 67 01 00 04 67 01 00 03 67 01 00 02 67 01 00 01 67 01 00 00 46 55 16 09 38 01 31 8B A1 14 A1 14 B0 29 03 08 FF 42 2E 0A 1B 73 B0 2E 0C 1B 70 B0 B0 2E 0E 14 29 03 08 FF 2F 3E 19 05 AC 24 15 79 B0 B0 38 01 29 03 08 FF 1F) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::INICIAL COMMON-LISP-USER::FINAL COMMON-LISP-USER::A COMMON-LISP-USER::ACCIONES "1. Especificar estado inicial" "2. Especificar estado final" "3. Especificar conjunto de acciones" "4. Buscar solución a partir del estado inicial" "5. Volver" 1. COMMON-LISP-USER::TINI 2. COMMON-LISP-USER::TFINAL 3. COMMON-LISP-USER::MACC 4. :INI :FIN :ACC COMMON-LISP-USER::HACER SYSTEM::%TIME 5.)) #Y(#:|(DEFUN MACC NIL ...)-19| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 82 C5 19 01) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) COMMON-LISP-USER::MACC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP-USER::MACC #63Y(00 00 00 00 00 00 00 00 00 01 63 38 01 31 8B DA 38 01 31 84 38 01 31 8B DB 38 01 31 84 38 01 31 8B 38 01 31 8B 38 04 80 74 00 14 24 02 07 AC 24 05 09 00 19 02 6B 03 2F 04 19 02 2E 06 19 02) (COMMON-LISP::T COMMON-LISP::T COMMON-LISP::T) "1. Incluir todas las acciones" "2. Escribir manualmente el conjunto de acciones" 1. COMMON-LISP-USER::A COMMON-LISP-USER::ACCIONES 2. COMMON-LISP-USER::INCLUIR))