{"id":4965,"date":"2019-04-29T06:00:37","date_gmt":"2019-04-29T04:00:37","guid":{"rendered":"http:\/\/www.glc.us.es\/~jalonso\/exercitium\/?p=4965"},"modified":"2019-05-19T19:13:50","modified_gmt":"2019-05-19T17:13:50","slug":"emparejamiento-de-amigos","status":"publish","type":"post","link":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/emparejamiento-de-amigos\/","title":{"rendered":"Emparejamiento de amigos"},"content":{"rendered":"<p>El <strong>problema de emparejamiento de amigos<\/strong> consiste en calcular las formas de emparejar n amigos teniendo en cuenta que  cada uno puede permanecer soltero o puede ser emparejado con alg\u00fan otro amigo y que cada amigo puede ser emparejado s\u00f3lo una vez. Por ejemplo, los 4 posibles emparejamientos de 3 amigos son<\/p>\n<pre lang=\"text\"> \n   {1}, {2}, {3} \n   {1}, {2, 3} \n   {1, 2}, {3} \n   {1, 3}, {2}\n<\/pre>\n<p>Definir la funci\u00f3n<\/p>\n<pre lang=\"text\"> \n   emparejamientos :: Integer -> [[[Integer]]]\n<\/pre>\n<p>tal que (emparejamientos n) es la lista de los posibles emparejamientos de los n amigos (numerados del 1 al n). Por ejemplo,<\/p>\n<pre lang=\"text\"> \n   \u03bb> emparejamientos 2\n   [[[1],[2]],[[1,2]]]\n   \u03bb> emparejamientos 3\n   [[[1],[2],[3]],[[1],[2,3]],[[1,2],[3]],[[1,3],[2]]]\n<\/pre>\n<h4>Soluciones<\/h4>\n<pre lang=\"haskell\">\nimport Data.List (delete)\n\nemparejamientos :: Integer -> [[[Integer]]]\nemparejamientos n = aux [1..n]\n  where aux [] = [[]]\n        aux (x:xs) = [[x] : ps | ps <- aux xs] ++\n                     [[x,y] : ps | y <- xs, ps <- aux (delete y xs)]\n<\/pre>\n<h4>Pensamiento<\/h4>\n<blockquote><p>\nCrea el alma sus riberas;<br \/>\nmontes de ceniza y plomo,<br \/>\nsotillos de primavera.<\/p>\n<p>Antonio Machado\n<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"<p>El problema de emparejamiento de amigos consiste en calcular las formas de emparejar n amigos teniendo en cuenta que cada uno puede permanecer soltero o puede ser emparejado con alg\u00fan otro amigo y que cada amigo puede ser emparejado s\u00f3lo una vez. Por ejemplo, los 4 posibles emparejamientos de 3 amigos son {1}, {2}, {3}&#8230;<\/p>\n","protected":false},"author":1,"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":[7],"tags":[8,25,6],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/4965"}],"collection":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/comments?post=4965"}],"version-history":[{"count":5,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/4965\/revisions"}],"predecessor-version":[{"id":5027,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/4965\/revisions\/5027"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/media?parent=4965"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/categories?post=4965"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/tags?post=4965"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}