Sea f la siguiente funci\u00f3n, aplicable a cualquier n\u00famero entero positivo:<\/p>\n
La carrera de Collatz consiste en, dada una lista de n\u00fameros ns, sustituir cada n\u00famero n de ns por f(n) hasta que alguno sea igual a 1. Por ejemplo, la siguiente sucesi\u00f3n es una carrera de Collatz<\/p>\n
\n [ 3, 6,20, 49, 73]\n [10, 3,10,148,220]\n [ 5,10, 5, 74,110]\n [16, 5,16, 37, 55]\n [ 8,16, 8,112,166]\n [ 4, 8, 4, 56, 83]\n [ 2, 4, 2, 28,250]\n [ 1, 2, 1, 14,125]\n<\/pre>\nEn esta carrera, los ganadores son 3 y 20.<\/p>\n
Definir la funci\u00f3n<\/p>\n
\n ganadores :: [Int] -> [Int]\n<\/pre>\ntal que (ganadores ns) es la lista de los ganadores de la carrera de Collatz a partir de la lista inicial ns. Por ejmplo,<\/p>\n
\n ganadores [3,6,20,49,73] == [3,20]\n<\/pre>\nSoluciones<\/h4>\n\nganadores :: [Int] -> [Int]\nganadores xs = selecciona xs (final xs)\n\n-- (final xs) es el estado final de la carrera de Collatz a partir de\n-- xs. Por ejemplo,\n-- final [3,6,20,49,73] == [1,2,1,14,125]\nfinal :: [Int] -> [Int]\nfinal xs | elem 1 xs = xs\n | otherwise = final [siguiente x | x <- xs]\n\n-- (siguiente x) es el siguiente de x en la carrera de Collatz. Por\n-- ejemplo, \n-- siguiente 3 == 10\n-- siguiente 6 == 3\nsiguiente :: Int -> Int\nsiguiente x | even x = x `div` 2\n | otherwise = 3*x+1\n\n-- (selecciona xs ys) es la lista de los elementos de xs cuyos tales que\n-- los elementos de ys en la misma posici\u00f3n son iguales a 1. Por ejemplo,\n-- selecciona [3,6,20,49,73] [1,2,1,14,125] == [3,20]\nselecciona :: [Int] -> [Int] -> [Int]\nselecciona xs ys =\n [x | (x,y) <- zip xs ys, y == 1]\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Sea f la siguiente funci\u00f3n, aplicable a cualquier n\u00famero entero positivo: Si el n\u00famero es par, se divide entre 2. Si el n\u00famero es impar, se multiplica por 3 y se suma 1. La carrera de Collatz consiste en, dada una lista de n\u00fameros ns, sustituir cada n\u00famero n de ns por f(n) hasta que…<\/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":[8,30,26,6,9],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3938"}],"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=3938"}],"version-history":[{"count":2,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3938\/revisions"}],"predecessor-version":[{"id":3971,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/posts\/3938\/revisions\/3971"}],"wp:attachment":[{"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/media?parent=3938"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/categories?post=3938"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.glc.us.es\/~jalonso\/exercitium\/wp-json\/wp\/v2\/tags?post=3938"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}