Un problema en el que se muestra la capacidad deductiva de Prolog es el siguiente problema de Langford.<\/p>\n
Se dice que L es una sucesi\u00f3n de Langford si L es una lista de longitud 27 en la cual aparecen 3 veces cada uno de los d\u00edgitos del 1 al 9 y que adem\u00e1s cumple la propiedad de que entre dos 1 siempre hay un d\u00edgito, entre dos 2 hay dos d\u00edgitos, entre dos 3 hay tres d\u00edgitos, etc. Por ejemplo, <\/p>\n
\n[1,9,1,2,1,8,2,4,6,2,7,9,4,5,8,6,3,4,7,5,3,9,6,8,3,5,7]\n<\/p><\/blockquote>\n
es una sucesi\u00f3n de Langford.<\/p>\n
\r\n%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r\n% Definir la relaci\u00f3n langford tal que langford(?L) se verifique si\r\n% L es una sucesi\u00f3n de Langford. Por ejemplo,\r\n% ?- langford(L).\r\n% L = [1,9,1,2,1,8,2,4,6,2,7,9,4,5,8,6,3,4,7,5,3,9,6,8,3,5,7] ;\r\n% L = [1,8,1,9,1,5,2,6,7,2,8,5,2,9,6,4,7,5,3,8,4,6,3,9,7,4,3] \r\n%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r\n\r\nlangford(L) :-\r\n length(L,27),\r\n sublista([1,_,1,_,1],L),\r\n sublista([2,_,_,2,_,_,2],L),\r\n sublista([3,_,_,_,3,_,_,_,3],L),\r\n sublista([4,_,_,_,_,4,_,_,_,_,4],L),\r\n sublista([5,_,_,_,_,_,5,_,_,_,_,_,5],L),\r\n sublista([6,_,_,_,_,_,_,6,_,_,_,_,_,_,6],L),\r\n sublista([7,_,_,_,_,_,_,_,7,_,_,_,_,_,_,_,7],L),\r\n sublista([8,_,_,_,_,_,_,_,_,8,_,_,_,_,_,_,_,_,8],L),\r\n sublista([9,_,_,_,_,_,_,_,_,_,9,_,_,_,_,_,_,_,_,_,9],L).\r\n\r\n% sublista(?L1,+L2) se verifica si L1 es una sublista de L2.\r\nsublista(L1,L2):-\r\n append(_,L3,L2),\r\n append(L1,_,L3).\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Un problema en el que se muestra la capacidad deductiva de Prolog es el siguiente problema de Langford. Se dice que L es una sucesi\u00f3n de Langford si L es una lista de longitud 27 en la cual aparecen 3 veces cada uno de los d\u00edgitos del 1 al 9 y que adem\u00e1s cumple la…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"footnotes":"","_jetpack_memberships_contains_paid_content":false},"categories":[181],"tags":[294],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_likes_enabled":false,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/1568"}],"collection":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/comments?post=1568"}],"version-history":[{"count":4,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/1568\/revisions"}],"predecessor-version":[{"id":1572,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/posts\/1568\/revisions\/1572"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/media?parent=1568"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/categories?post=1568"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/vestigium\/wp-json\/wp\/v2\/tags?post=1568"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}