{"id":3600,"date":"2018-01-10T06:00:43","date_gmt":"2018-01-10T04:00:43","guid":{"rendered":"http:\/\/www.glc.us.es\/~jalonso\/exercitium\/?p=3600"},"modified":"2018-02-19T08:24:12","modified_gmt":"2018-02-19T06:24:12","slug":"numeros-somirp","status":"publish","type":"post","link":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/numeros-somirp\/","title":{"rendered":"N\u00fameros somirp"},"content":{"rendered":"<p>Un n\u00famero omirp es un n\u00famero primo que forma un primo distinto al invertir el orden de sus d\u00edgitos.<\/p>\n<p>Definir las funciones<\/p>\n<pre lang=\"text\">\n  esOmirp            :: Integer -> Bool\n  omirps             :: [Integer]\n  nOmirpsIntermedios :: Int -> Int\n<\/pre>\n<p>tales que<\/p>\n<ul>\n<li>(esOmirp n) se verifica si n es un n\u00famero omirp. Por ejemplo,<\/li>\n<\/ul>\n<pre lang=\"text\">\n     esOmirp 13      ==  True\n     esOmirp 11      ==  False\n     esOmirp 112207  ==  True\n<\/pre>\n<ul>\n<li>omirps es la lista de los n\u00fameros omirps. Por ejemplo,<\/li>\n<\/ul>\n<pre lang=\"text\">\n     take 15 omirps  ==  [13,17,31,37,71,73,79,97,107,113]\n     omirps !! 2000  ==  112207\n<\/pre>\n<ul>\n<li>(nOmirpsIntermedios n) es la cantidad de n\u00fameros omirps entre el n-\u00e9simo n\u00famero omirp y el obtenido al invertir el orden de sus d\u00edgitos. Por ejemplo,<\/li>\n<\/ul>\n<pre lang=\"text\">\n     nOmirpsIntermedios 2000  ==  4750\n<\/pre>\n<p><strong>Nota<\/strong>: Este ejercicio ha sido propuesto por \u00c1ngel Ruiz Campos.<\/p>\n<h4>Soluciones<\/h4>\n<pre lang=\"haskell\">\nimport Data.Numbers.Primes (isPrime,primes)\n\nesOmirp :: Integer -> Bool\nesOmirp n = n \/= rn && isPrime rn\n  where rn = read . reverse . show $ n\n\nomirps :: [Integer]\nomirps = filter esOmirp primes\n\nnOmirpsIntermedios :: Int -> Int\nnOmirpsIntermedios n =\n  length\n  . filter esOmirp\n  . takeWhile (< rx)\n  . dropWhile (<= x) $ primes\n  where x  = omirps !! n\n        rx = read . reverse . show $ x\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Un n\u00famero omirp es un n\u00famero primo que forma un primo distinto al invertir el orden de sus d\u00edgitos. Definir las funciones esOmirp :: Integer -> Bool omirps :: [Integer] nOmirpsIntermedios :: Int -> Int tales que (esOmirp n) se verifica si n es un n\u00famero omirp. Por ejemplo, esOmirp 13 == True esOmirp 11&#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":[5],"tags":[59,38,174,28,11,173,95,32,33,34],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3600"}],"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=3600"}],"version-history":[{"count":3,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3600\/revisions"}],"predecessor-version":[{"id":3781,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3600\/revisions\/3781"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/media?parent=3600"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/categories?post=3600"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/tags?post=3600"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}