Prof. Rolando Alberto. Maguiña Pérez
UNMSM-FISI
INTELIGENCIA ARTIFICIAL - SEMESTRE 2014-1 – GRUPO 1
JUEGO DEL MICHI Introducción Se desea desea implem implemen ena! a! el "#e$% "#e$% llamad llamad% % & en l'nea (Mi)*i (Mi)*i++ en C%mm%n C%mm%n LISP #sand% #sand% la *e!!amiena llamada Lisp,%!s. El p!%$!ama a desa!!%lla!se n% s%lamene pe!mii!/ ee)#a! las "#$ada "#$adass del *#man% *#man% sin% sin% #e dee!min dee!mina!/ a!/ las "#$ada "#$adass de la m/#in m/#ina a median mediane e #na es!ae$ia ade)#ada. Asimism% indi)a!/ la es!ae$ia #sada pa!a ee)#a! di)*%s m%imien%s.
Interfaz del juego L%s )asille!%s del a3le!% a #sa! en el Mi)*i se!/n en#me!ad%s de la si$#iene mane!a 1 | 2 | 3 ----------4 | 5 | 6 ----------7 | 8 | 9
El a3le!% se !ep!esena!/ )%m% #na lisa %!mada p%! el s'm3%l% TABLERO se$#ida de n#ee n5me!%s #e des)!i3i!/n el )%nenid% de )ada p%si)i6n. Un al%! de 0 si$nii)a #e la p%si)i6n es/ a)'a7 a)'a7 #n 1 si$nii)a #e #e *a8 #n O9 8 #n al%! de 10 si$nii)a si$nii)a #e *a8 #n :. As#mi!em% As#mi!em%ss #e el %p%nene es O 8 #e la )%mp#ad%!a es :. a+ ;eini ;einim%s m%s #na #n)i6n #n)i6n #e llama! llama!em% em%ss CREAR-TABLERO pa!a )!ea! #n n#e% a3le!%. (defun crear-taber! (" (#$t %taber! & & & & & & & & &""
3+ Pa!a imp!imi! imp!imi! el a3le!% a3le!% deinim% deinim%ss las #n)i%nes #n)i%nes CON
/" 0A) " ." /"""
(defun #+,r#+#r-taber! (taber!" (f!r+at t )0)" (#+,r#+#r-f#a (nt 1 taber!" (nt 2 taber!" (nt 3 taber!"" (f!r+at t )0 -----------)" -----------)" (#+,r#+#r-f#a (nt 4 taber!" (nt 5 taber!" (nt 6 taber!"" (f!r+at t )0 -----------)" -----------)" (#+,r#+#r-f#a (nt 7 taber!" (nt 8 taber!" (nt 9 taber!"" (f!r+at t )00)""
Prof. Rolando Alberto. Maguiña Pérez
)+
UNMSM-FISI
;einim%s EFECTUAR-MOUGA;OR p#ede as#mi! d%s al%!es ?PC? 8 ?OPONENTE?. (defun efectuar-+!'#+#ent! (uad!r ,!$ taber!" ($etf (nt ,!$ taber!" uad!r" taber!"
Anes )%ni$#!am%s ($etf ,c 1& !,!nente 1"
Análisis de la configuración del juego a+ Las @ mane!as de )%mplea! #na l'nea (& *%!i%nalmene9 & e!i)almene9 8 2 en la dia$%nal+ se!/n alma)enadas en ?TRIPLETAS?. A )B# de esas )%m3ina)i%nes la llama!em%s !ipleaD. ($etf tr#,eta$ %((1 2 3" (4 5 6" (7 8 9" (1 4 7" (2 5 8" (3 6 9" (1 5 9" (3 5 7"""
3+ ;einim%s a*%!a SUMA-;E-TRIPLETA9 #e de#ele la s#ma de l%s n5me!%s )%nenid%s p%! #na !iplea. (defun $u+a-de-tr#,eta (taber! tr#,eta" ( (nt (car tr#,eta" taber!"(nt (cadr tr#,eta" taber!" (nt (caddr tr#,eta" taber!"" "
)+
Pa!a %3se!a! las s#mas de %das las !ipleas deinim%s CALCULA-SUMAS. (defun cacua-$u+a$ (taber!" (+a,car %(a+bda (tr#,eta" ($u+a-de-tr#,eta taber! tr#,eta"" tr#,eta$""
Condición de arada a+ ;einim%s el p!edi)ad% GANA;OR-P pa!a e!ii)a! #na de las )%ndi)i%nes de pa!ada #n% de l%s "#$ad%!es )%mple6 #na l'nea (defun anad!r-, (taber!" (et (($u+a$ (cacua-$u+a$ taber!""" (!r (+e+ber ( 3 ,c" $u+a$" (+e+ber ( 3 !,!nente" $u+a$""" "
Inicio del juego a+ ;einim%s INICIAR->UEGO #e p!e$#na al #s#a!i% si desea )%mena! el "#e$%9 8 llama l#e$% a la #n)i6n MO
Prof. Rolando Alberto. Maguiña Pérez
UNMSM-FISI
(defun #n#c#ar-ue! (" (#f (.-!r-n-, )Le u$tar#a c!+en/ar e ue!: )" (+!'#+#ent!-!,!nente (crear-taber!"" (+!'#+#ent!-,c (crear-taber!""" "
Jugadas del jugador !u"ano a+ ;einim%s MO )" (et ((,!$ (read""" (c!nd ((n!t (and (#nteer, ,!$" (?@ 1 ,!$ 9"""(f!r+at t )0Entrada #n'a#da<)" (eer-+!'#+#ent! taber!"" ((n!t (/er!, (nt ,!$ taber!""" (f!r+at t )0E$e e$,ac#! .a e$ta !cu,ad!<)" ('a#dar-+!'#+#ent! taber!"" (t ,!$"" " " (defun taber!-t!ta-, (taber!" (n!t (+e+ber & taber!"""
Jugadas del jugador #Co"utadora$ a+ MO 0) ,!$" (f!r+at t )0# e$trate#a> 0A0) e$trate#a" (#+,r#+#r-taber! nue'!-taber!" (c!nd ((anad!r-, nue'!-taber!" (f!r+at t )0! an!=)"" ((taber!-t!ta-, nue'!-taber!"(f!r+at t )0Due! e+,atad!<)"" (t (+!'#+#ent!-!,!nente nue'!-taber!""" " "
Prof. Rolando Alberto. Maguiña Pérez
UNMSM-FISI
3+ Usa!em%s pa!a la m/#ina #na es!ae$ia alea%!ia es)%$e al aa! #n m%imien% le$al mediane la #n)i6n e$trate#a-aeat!r#a 9 la )#al9 a s# e9 #sa $eecc#naeat!r#a-ca$#er!-'ac#! pa!a %ma! #n n5me!% alea%!i%. (defun e$c!er-e$trate#a-,c (taber!" (e$trate#a-aeat!r#a taber!"" (defun e$trate#a-aeat!r#a (taber!" (#$t ($eecc#!n-aeat!r#a-ca$#er!-'ac#! aeat!r#!)""
taber!"
)+!'#+#ent!
(defun $eecc#!n-aeat!r#a-ca$#er!-'ac#! (taber!" (et ((,!$ ( 1 (rand!+ 9"""" (#f (/er!, (nt ,!$ taber!"" ,!$ ($eecc#!n-aeat!r#aca$#er!-'ac#! taber!"" " "
Instrucciones ara jugar a+ Ca!$a! el a!)*i% e$trate#a-aeat!r#aF+#c#F2&14-1<$, se$5n p!%)edimien% !#ina!i% 3+ Ine!p!ea! el )6di$% )+ Llama! a la #n)i6n sin a!$#men%s llamada ini)ia!-"#e$% (apa!e)e #na enana p!e$#nand% si #n% desea ini)ia! el "#e$% 8 d%s 3%%nes es 8 N%+. d+ Al *a)e! )li) en es se m#es!a el a3le!% de "#e$% 8 apa!e)e mensa"e T# m%imien%. Un% de3e!/ indi)a! #n n5me!% en!e 1 al H7 n% se indi)a #e ell%s d en%an las p%si)i%nes del a3le!%. Se)#en)ia e"empl% Ense$#ida se m#es!a la se)#en)ia de p%si3les "#$adas al apli)a! la es!ae$ia alea%!ia CL-USER J (Ini)ia!-"#e$%+ T# m%imien% 1 OK K ----------K K ----------K K Mi m%imien% Mi es!ae$ia m%imien% alea%!i% OK K ----------K:K ----------K K T# m%imien% 2 O K O K ----------K:K ----------K K Mi m%imien% & Mi es!ae$ia m%imien% alea%!i%
Prof. Rolando Alberto. Maguiña Pérez
O K O K : ----------K:K ----------K K T# m%imien% 4 O K O K : ---------- O K : K ----------K K Mi m%imien% @ Mi es!ae$ia m%imien% alea%!i% O K O K : ---------- O K : K ----------K:K T# m%imien% O K O K : ---------- O K : K ---------- O K : K Ud. $an% NIL
RAMP
UNMSM-FISI