{"id":2512,"date":"2016-06-01T07:23:54","date_gmt":"2016-06-01T05:23:54","guid":{"rendered":"http:\/\/www.glc.us.es\/~jalonso\/exercitium\/?p=2512"},"modified":"2016-06-01T07:23:54","modified_gmt":"2016-06-01T05:23:54","slug":"numeros-con-un-segmento-divisible-por-su-longitud","status":"publish","type":"post","link":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/numeros-con-un-segmento-divisible-por-su-longitud\/","title":{"rendered":"N\u00fameros con un segmento divisible por su longitud"},"content":{"rendered":"<p>El n\u00famero 5671 tiene la curiosa propiedad de tener un \u00fanico segmento divisible por su longitud. En efecto, los segmentos de 5671 son 5, 6, 7, 1, 56, 67, 71, 567, 671 y 5671 y de ellos s\u00f3lo el 56 es divisible por 4 (que es la longitud de 5671).<\/p>\n<p>Un n\u00famero de 3 d\u00edgitos con la misma propiedad es el 104, ya que su \u00fanico segmento divisible por 3 es 0.<\/p>\n<p>Un n\u00famero de 7 d\u00edgitos con la misma propiedad es el 1132451, ya que su \u00fanico segmento divisible por 7 es 245.<\/p>\n<p>Definir las funciones<\/p>\n<pre lang=\"text\">\n   conUnicoSegmentoDivisible :: Integer -> Bool\n   sucUnicoSegmentoDivisible :: [Integer]\n<\/pre>\n<p>tales que<\/p>\n<ul>\n<li>(conUnicoSegmentoDivisible x) se verifica si x tiene un \u00fanico segmento divisible por la longitud de x. Por ejemplo,<\/li>\n<\/ul>\n<pre lang=\"text\">\n     conUnicoSegmentoDivisible 5671     ==  True\n     conUnicoSegmentoDivisible 104      ==  True\n     conUnicoSegmentoDivisible 1132451  ==  True\n     conUnicoSegmentoDivisible 15       ==  False\n     conUnicoSegmentoDivisible 16       ==  False\n     conUnicoSegmentoDivisible 2016     ==  False\n<\/pre>\n<ul>\n<li>sucUnicoSegmentoDivisible es la sucesi\u00f3n de los n\u00fameros x tales que x tiene un \u00fanico segmento divisible por la longitud de x. Por ejemplo,  <\/li>\n<\/ul>\n<pre lang=\"text\">\n     \u03bb> take 25 sucUnicoSegmentoDivisible\n     [1,2,3,4,5,6,7,8,9,21,23,25,27,29,41,43,45,47,49,61,63,65,67,69,81]\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>El n\u00famero 5671 tiene la curiosa propiedad de tener un \u00fanico segmento divisible por su longitud. En efecto, los segmentos de 5671 son 5, 6, 7, 1, 56, 67, 71, 567, 671 y 5671 y de ellos s\u00f3lo el 56 es divisible por 4 (que es la longitud de 5671). Un n\u00famero de 3 d\u00edgitos&#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":[2],"tags":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/2512"}],"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=2512"}],"version-history":[{"count":1,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/2512\/revisions"}],"predecessor-version":[{"id":2513,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/2512\/revisions\/2513"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/media?parent=2512"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/categories?post=2512"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/tags?post=2512"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}