esq en la escuela me pidieron un proyecto y justamente me es prolog y php, ahora mi duda es como acer esto
ehh navegado en san google pero nomas no le entiendo la base de prolog es mas o menos asi como la tengo aunq todavia falta darle otrs reglas, si alguien me puede ayudar se lo agradecere mucho..
les dejo lo de prolog
/*TUXTLA GUTIERREZ inicial con correr.*/
correr:-hipotesis(LUGAR),
direccion(DIRECCION),
write('Te recomendamos:::>'),
write(LUGAR),nl,
write('Direccion:::>'),
write(DIRECCION),nl.
/******DEPORTE********/
hipotesis('Estadio Victor Manuel Reyna'):-estadio_victor_manuel_reyna,!.
hipotesis('Caña Hueca'):-cana_hueca,!.
hipotesis('Parque Oriente'):-parque_oriente,!.
/******CULTURA********/
hipotesis(centro_cultural_jaime_sabines):-centro_cultural_jaime_sabines,!.
hipotesis(jardín_botánico_faustino_miranda):-jardín_botánico_faustino_miranda,!.
hipotesis(museo_chiapas):-museo_chiapas,!.
hipotesis(museo_regional):-museo_regional,!.
hipotesis(teatro_de_la_ciudad):-teatro_de_la_ciudad,!.
/******CINE********/
hipotesis(cinepolis):-cinepolis,!.
hipotesis(cinemark):-cinemark,!.
/******AVENTURA********/
hipotesis(zoomat):-zoomat,!.
hipotesis(cañon_del_sumidero):-canon_del_sumidero,!.
hipotesis(convivencia_infantil):-convivencia_infantil,!.
hipotesis(un_mirador):-mirador,!.
/******HOTELES********/
hipotesis(best_western_palmareca):-best_western_palmareca,!.
hipotesis(camino_real):-camino_real,!.
hipotesis(city_express):-city_express,!.
hipotesis(crowne_plaza):-crowne_plaza,!.
hipotesis(fiesta_inn):-fiesta_inn,!.
hipotesis(holiday_inn):-holiday_inn,!.
hipotesis(maria_eugenia):-maria_eugenia,!.
hipotesis(maya_sol):-maya_sol,!.
hipotesis(quality_inn):-quality_inn,!.
/******PARQUES********/
hipotesis(plaza_civica):-plaza_civica,!.
hipotesis(parque_la_marimba):-parque_la_marimba,!.
hipotesis(parque_joyyo_mayu):-parque_joyyo_mayu,!.
/******ARQUITECTURAS********/
hipotesis(catedral_san_marcos):-catedral_san_marcos,!.
hipotesis(poliforum):-poliforum,!.
/******ANTROS********/
hipotesis(santa_diabla):-santa_diabla,!.
hipotesis(chamochelas):-chamochelas,!.
hipotesis(baby_rock):-baby_rock,!.
hipotesis(piñas_n_charlie):-piñas_n_charlie,!.
/******DESCONOCIDO********/
hipotesis(desconocido).
/********************************/
/*IDENTIFICACION*/
estadio_victor_manuel_reyna:-deporte,cancha_de_futbol_soccer,pista_de_atletismo ,
verifica(la_casa_del_equipo_jaguares_de_chiapas).
cana_hueca:-deporte,cancha_de_futbol_soccer,cancha_de_basquetb ol,pista_de_atletismo,cancha_de_futbol_rapido,
verifica(un_lugar_para_hacer_ejercicios).
parque_oriente:-deporte,cancha_de_futbol_soccer,cancha_de_futbol_r apido,aerobics,golfito,
verifica(un_lugar_ecologico).
centro_cultural_jaime_sabines:-cultura,hemeroteca,fonoteca,videoteca,cibersalas,
verifica(una_famosa_biblioteca).
jardín_botánico_faustino_miranda:-cultura,plantas,arboles,arbustos,
verifica(un_jardin_botanico).
museo_chiapas:-cultura,tecnologia,conferencias,
verifica(el_much).
museo_regional:-cultura,prehistoria,mayas,
verifica(la_historia_de_chiapas).
teatro_de_la_ciudad:-cultura,obras_de_teatro,
verifica(el_teatro).
cinepolis:-cine,peliculas,dulceria,palomitas,juegos,cafeteria ,
verifica(la_capital_del_cine).
cinemark:-cine,peliculas,dulceria,palomitas,
verifica(ver_peliculas).
zoomat:-aventura,naturaleza,aves,leones,cocodrilos,
verifica(ver_animales).
canon_del_sumidero:-aventura,naturaleza,ecoturismo,
verifica(acompañado_de_alberca),
verifica(un_lugar_para_kayaks).
convivencia_infantil:-aventura,juegos_mecanicos,
verifica(un_lugar_especial_para_niños).
mirador:-aventura,espectaculo_natural_impresionante,
verifica(un_lugar_para_ver_de_la_ciudad).
best_western_palmareca:-hotel,tv_por_cable,estacionamiento,lavanderia,rest aurante,estetica,tienda_de_regalos,alberca,jardin, clima,internet,
verifica(con_areas_verdes).
camino_real:-hotel,tv_por_cable,bar,estacionamiento,jacuzzi_en_ alberca,restaurante,tennis,ninera,gimnacio,alberca ,spa,jardin,clima,internet,
verifica(un_hotel_moderno_y_contemporaneo).
city_express:-hotel,tv_por_cable,estacionamiento,gimnacio,alberc a,internet,
verifica(un_hotel_con_tranquilidad).
crowne_plaza:-hotel,tv_por_cable,bar,lavanderia,restaurante,gimn acio,alberca,renta_de_autos,clima,internet,
verifica(un_hotel_para_relajarce).
fiesta_inn:-hotel,tv_por_cable,estacionamiento,lavanderia,rest aurante,alberca,renta_de_autos,clima,internet,
verifica(un_hotel_con_hospitalidad).
/*REGLAS DE CLASIFICACION*/
deporte:-verifica(un_lugar_para_practicar_deporte),!.
cancha_de_futbol_soccer:-verifica(un_lugar_con_canchas_de_futbol_soccer),!.
cancha_de_basquetbol:-verifica(un_lugar_con_canchas_de_basquetbol),!.
pista_de_atletismo:-verifica(un_lugar_con_pista_de_atletismo),!.
cancha_de_futbol_rapido:-verifica(un_lugar_con_cancha_de_futbol_rapido),!.
aerobics:-verifica(un_lugar_para_hacer_aerobics),!.
golfito:-verifica(un_lugar_con_golfito),!.
cultura:-verifica(cultura_chiapaneca),!.
hemeroteca:-verifica(un_lugar_con_hemeroteca),!.
fonoteca:-verifica(un_lugar_con_fonoteca),!.
videoteca:-verifica(un_lugar_con_videoteca),!.
cibersalas:-verifica(un_lugar_con_cibersalas),!.
plantas:-verifica(un_lugar_para_ver_plantas),!.
arboles:-verifica(un_lugar_para_ver_arboles),!.
arbustos:-verifica(un_lugar_para_ver_arbustos),!.
tecnologia:-verifica(un_lugar_para_ver_tecnologia),!.
conferencias:-verifica(un_lugar_para_escuchar_conferencias),!.
prehistoria:-verifica(un_lugar_para_conocer_la_prehistoria_chia paneca),!.
mayas:-verifica(un_lugar_para_conocer_la_historia_maya),! .
obras_de_teatro:-verifica(un_lugar_para_ver_obras_de_teatro),!.
cine:-verifica(cines),!.
peliculas:-verifica(un_lugar_para_ver_peliculas),!.
dulceria:-verifica(un_lugar_para_comer_dulces),!.
palomitas:-verifica(un_lugar_para_comer_palomitas),!.
juegos:-verifica(un_lugar_con_juegos),!.
cafeteria:-verifica(un_lugar_con_cafeteria),!.
aventura:-verifica(un_lugar_con_aventuras),!.
naturaleza:-verifica(un_lugar_con_naturaleza),!.
aves:-verifica(un_lugar_para_ver_aves),!.
leones:-verifica(un_lugar_para_ver_leones),!.
cocodrilos:-verifica(un_lugar_para_ver_cocodrilos),!.
ecoturismo:-verifica(un_lugar_con_ecoturismo),!.
juegos_mecanicos:-verifica(un_lugar_con_juegos_mecanicos),!.
espectaculo_natural_impresionante:-verifica(un_espectaculo_natural_impresionante),!.
hotel:-verifica(un_hotel),!.
tv_por_cable:-verifica(un_lugar_con_tv_por_cable),!.
estacionamiento:-verifica(un_hotel_con_estacionamiento),!.
lavanderia:-verifica(un_hotel_con_lavanderia),!.
restaurante:-verifica(un_hotel_con_restaurante),!.
estetica:-verifica(un_hotel_con_estetica),!.
tienda_de_regalos:-verifica(un_hotel_con_tienda_de_regalos),!.
alberca:-verifica(un_hotel_con_alberca),!.
jardin:-verifica(un_hotel_con_jardin),!.
clima:-verifica(un_hotel_con_clima),!.
internet:-verifica(un_hotel_con_internet),!.
jacuzzi_en_alberca:-verifica(un_hotel_con_jacuzzi_en_alberca),!.
tennis:-verifica(un_hotel_con_cancha_de_tenis),!.
ninera:-verifica(un_hotel_con_ninera),!.
gimnacio:-verifica(un_hotel_con_gimnacio),!.
spa:-verifica(un_hotel_con_spa),!.
bar:-verifica(un_hotel_con_bar),!.
renta_de_autos:-verifica(un_hotel_que_renta_autos),!.
parque:-verifica(los_parques),!.
kiosco:-verifica(un_lugar_con_kiosco),!.
estatua_de_joaquin_miguel_gutierrez:-verifica(la_estatua_de_joaquin_miguel_gutierrez),! .
reuniones_para_familias:-verifica(un_lugar_en_donde_puedas_reunirte_con_la_ familia),!.
bancas_de_tipo_colonial:-verifica(un_lugar_con_bancas_de_tipo_colonial),!.
danzon_con_marimba:-verifica(un_lugar_para_danzar_al_ritmo_de_la_marim ba),!.
tiene_puente_colgante:-verifica(un_lugar_con_puente_colgante),!.
relajacion:-verifica(un_lugar_para_relajarce),!.
arquitectura:-verifica(un_lugar_con_arquitectura),!.
epoca_colonial_chiapaneca:-verifica(arquitectura_de_la_epoca_colonial_chiapan eca),!.
figuras_de_los_apostoles:-verifica(un_lugar_con_las_figuras_de_los_apostoles ),!.
estilo_neoclasico:-verifica(un_lugar_con_estilo_neoclasico),!.
belleza_arquitectonica:-verifica(un_lugar_con_belleza_arquitectonica),!.
tecnologia_vanguardista:-verifica(un_lugar_con_tecnologia_vanguardista),!.
audio_e_iluminacion_computarizado:-verifica(un_lugar_con_audio_e_iluminacion_computar izado),!.
antro:-verifica(un_buen_antro),!.
musica:-verifica(con_musica),!.
ritmo_latino:-verifica(con_un_ritmo_latino),!.
ritmo_moderno:-verifica(con_un_ritmo_moderno),!.
/*PREGUNTAR*/
preguntar(PREGUNTA):-write('En Tuxtla te gustaria conocer '),
write(PREGUNTA),
write('?'),
read(RESPUESTA),nl,
((RESPUESTA==si; RESPUESTA==s)-> assert(si(PREGUNTA));
assert(no(PREGUNTA)),fail).
:-dynamic si/1, no/1.
/*Como verificar algo*/
verifica(S)
si(S)->true;(no(S)->fail;
preguntar(S))).
el codigo va incompleto pero contiene lo basico ya q no se permite enviar mas de 10000 caracteres, porfavor ayuda
