{"id":4393,"date":"2018-12-10T06:00:46","date_gmt":"2018-12-10T04:00:46","guid":{"rendered":"http:\/\/www.glc.us.es\/~jalonso\/exercitium\/?p=4393"},"modified":"2019-01-17T15:44:28","modified_gmt":"2019-01-17T13:44:28","slug":"menor-contenedor-de-primos","status":"publish","type":"post","link":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/menor-contenedor-de-primos\/","title":{"rendered":"Menor contenedor de primos"},"content":{"rendered":"<p>El n-\u00e9simo menor contenenedor de primos es el menor n\u00famero que contiene como subcadenas los primeros n primos. Por ejemplo, el 6\u00ba menor contenedor de primos es 113257 ya que es el menor que contiene como subcadenas los 6 primeros primos (2, 3, 5, 7, 11 y 13).<\/p>\n<p>Definir la funci\u00f3n<\/p>\n<pre lang=\"text\">\n   menorContenedor :: Int -> Int\n<\/pre>\n<p>tal que (menorContenedor n) es el n-\u00e9simo menor contenenedor de primos. Por ejemplo,<\/p>\n<pre lang=\"text\">\n   menorContenedor 1  ==  2\n   menorContenedor 2  ==  23\n   menorContenedor 3  ==  235\n   menorContenedor 4  ==  2357\n   menorContenedor 5  ==  112357\n   menorContenedor 6  ==  113257\n<\/pre>\n<h4>Soluciones<\/h4>\n<pre lang=\"haskell\">\nimport Data.List           (isInfixOf)\nimport Data.Numbers.Primes (primes)\n\n-- 1\u00aa soluci\u00f3n\n-- ===========\n\nmenorContenedor :: Int -> Int\nmenorContenedor n =\n  head [x | x <- [2..]\n          , and [contenido y x | y <- take n primes]]\n\ncontenido :: Int -> Int -> Bool\ncontenido x y =\n  show x `isInfixOf` show y\n\n-- 2\u00aa soluci\u00f3n\n-- ===========\n\nmenorContenedor2 :: Int -> Int\nmenorContenedor2 n =\n  head [x | x <- [2..]\n          , all (`contenido` x) (take n primes)]\n<\/pre>\n<h4>Pensamiento<\/h4>\n<blockquote><p>\n\u00a1Ya hay hombres activos!<br \/>\nSo\u00f1aba la charca<br \/>\ncon sus mosquitos.<\/p>\n<p>Antonio Machado\n<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"<p>El n-\u00e9simo menor contenenedor de primos es el menor n\u00famero que contiene como subcadenas los primeros n primos. Por ejemplo, el 6\u00ba menor contenedor de primos es 113257 ya que es el menor que contiene como subcadenas los 6 primeros primos (2, 3, 5, 7, 11 y 13). Definir la funci\u00f3n menorContenedor :: Int ->&#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":[41,100,8,316,11,173,33,47],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/4393"}],"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=4393"}],"version-history":[{"count":4,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/4393\/revisions"}],"predecessor-version":[{"id":4579,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/4393\/revisions\/4579"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/media?parent=4393"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/categories?post=4393"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/tags?post=4393"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}