{"id":3055,"date":"2017-03-07T06:00:02","date_gmt":"2017-03-07T04:00:02","guid":{"rendered":"http:\/\/www.glc.us.es\/~jalonso\/exercitium\/?p=3055"},"modified":"2017-03-14T20:10:25","modified_gmt":"2017-03-14T18:10:25","slug":"la-codificacion-de-luka","status":"publish","type":"post","link":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/la-codificacion-de-luka\/","title":{"rendered":"La codificaci\u00f3n de Luka"},"content":{"rendered":"<p>En el problema <a href=\"http:\/\/bit.ly\/2n7pU4P\">Kemija<\/a> se utiliza la codificaci\u00f3n de Luka consistente en a\u00f1adir detr\u00e1s de cada vocal la letra &#8216;p&#8217; seguida de la vocal. Por ejemplo, la palabra \u00abelena\u00bb se codifica como \u00abepelepenapa\u00bb y \u00abluisa\u00bb por \u00ablupuipisapa\u00bb.<\/p>\n<p>Definir las funciones<\/p>\n<pre lang=\"text\">\n   codifica   :: String -> String\n   decodifica :: String -> String\n<\/pre>\n<p>tales que<br \/>\n+ (codifica cs) es la codificaci\u00f3n de Luka de la cadena cs. Por ejemplo,<\/p>\n<pre lang=\"text\">\n     \u03bb> codifica \"elena admira a luisa\"\n     \"epelepenapa apadmipirapa apa lupuipisapa\"\n     \u03bb> codifica \"todo para nada\"\n     \"topodopo paparapa napadapa\"\n<\/pre>\n<ul>\n<li>(decodifica cs) es la decodificaci\u00f3n de Luka de la cadena cs. Por ejemplo,<\/li>\n<\/ul>\n<pre lang=\"text\">\n     \u03bb> decodifica \"epelepenapa apadmipirapa apa lupuipisapa\"\n     \"elena admira a luisa\"\n     \u03bb> decodifica \"topodopo paparapa napadapa\"\n     \"todo para nada\"\n<\/pre>\n<h4>Soluciones<\/h4>\n<pre lang=\"haskell\">\ncodifica :: String -> String\ncodifica \"\" = \"\"\ncodifica (c:cs) | esVocal c = c : 'p' : c : codifica cs\n                | otherwise = c : codifica cs\n\nesVocal :: Char -> Bool\nesVocal c = c `elem` \"aeiou\"\n\ndecodifica :: String -> String\ndecodifica \"\" = \"\"\ndecodifica (c:cs) | esVocal c = c : decodifica (drop 2 cs)\n                  | otherwise = c : decodifica cs\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>En el problema Kemija se utiliza la codificaci\u00f3n de Luka consistente en a\u00f1adir detr\u00e1s de cada vocal la letra &#8216;p&#8217; seguida de la vocal. Por ejemplo, la palabra \u00abelena\u00bb se codifica como \u00abepelepenapa\u00bb y \u00abluisa\u00bb por \u00ablupuipisapa\u00bb. Definir las funciones codifica :: String -> String decodifica :: String -> String tales que + (codifica cs)&#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":[4],"tags":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3055"}],"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=3055"}],"version-history":[{"count":3,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3055\/revisions"}],"predecessor-version":[{"id":3094,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3055\/revisions\/3094"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/media?parent=3055"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/categories?post=3055"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/tags?post=3055"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}