January 2015 - haskell-br

Tradução do livro Real World Haskell
by Sergio costa 19 Jan '15

19 Jan '15

Prezados Há alguns anos atrás inicie a tradução do livro Real World Haskell com Nick Rudnick, um excelente livro sobre Haskell. Principalmente motivado pela carência de bibliografia na nossa lingua. Já tenho alguns capitulos traduzidos mais não revisados. Queria saber se alguém tem interesse em participar, queria reiniciar este projeto agora em janeiro de 2015. O autor respondeu meu email, dizendo que logo que concluirmos, poderiamos divulgar para ele o link, para colocar no site do livro Atenciosamente -- Prof. Sérgio Souza Costa https://sites.google.com/site/skosta/

8 56

Re: [haskell-br] HackerRank
by Álvaro Pereira 06 Jan '15

06 Jan '15

Pro Jean, que tava pedindo umas dicas... tô aprendendo haskell ainda, mas deixa eu tentar ajudar no que consigo no código haeuhea, vamo lá: import Data.Char > import Control.Monad > > intDigits :: Integer -> [Int] > intDigits n = map (\x -> read [x] :: Int) (show n) > > Aqui o " :: Int " é desnecessário, porque como você declarou o tipo da função (que retorna [Int]), a linguagem já se vira sozinha. Além disso, o haskell tem o currying pronto, então "map (\x -> read [x])" já é uma função (que "tá faltando" receber o último argumento), então dá pra você compor ela com o show. Podendo escrever só assim: intDigits = map (\x -> read [x]) . show (daí nem precisa do n) > charDigits :: [Int] -> [Char] > charDigits = map (\x -> intToDigit x) > > digits :: Integer -> [Char] > digits = charDigits . intDigits > > [Char] e String são as mesmas coisas, você tá convertendo um int pra uma lista com os digitos e passando eles pra char, mas não tinha necessidade (isso é a mesma coisa que dar show já). Tipo, se você fizer: digits = show O código continua fazendo a mesma coisa :P > > divide :: Integer -> Char -> Bool > divide _ '0' = False > divide n c = isMultiple > where digit = toInteger $ digitToInt c > nModDigit = n `mod` digit > isMultiple = nModDigit == 0 > > > findDigit :: Integer -> Int > findDigit n = foldl (\a b -> a + (if div b then 1 else 0)) 0 list > where div = divide n > list = digits n > > getStrings :: Integer -> [IO String] > getStrings n > | n <= 0 = [] > | otherwise = getLine : getStrings (n - 1) > > Aqui acho q era mais negócio c usar pattern matching do que as guards (que nem fez embaixo), mas só pq fica menor/mais bonitim msm > > getIntegers :: [String] -> [Integer] > getIntegers [] = [] > getIntegers (x:xs) = readInteger x : getIntegers xs > > Aqui c podia fazer algo como: getIntegers = map read > > readInteger :: String -> Integer > readInteger = read > > Aqui, c só deu outro nome pro "read". Se a intenção foi forçar o tipo, é mei bobera, no sentido que se na outra função que c vai usar ela (a getIntegers por exemplo) já tem o tipo declarado, a linguagem já vai converter pro tipo certo com o read. > > main = do > qtd <- getLine > valStr <- sequence $ getStrings (readInteger qtd) > let valores = getIntegers valStr > digitsFound = map (findDigit) valores > mapM (print) digitsFound > > E no geral c tá usando Integer, sendo que no problema não estouraria o Int, daí não tem pq usar. (Integer é mais pesadinho). Dá uma olhada depois em coisas como forever, getContents e interact, que ajuda em muitos casos na I/O. Vô botar meu código aqui pro mesmo problema, talvez c tira algumas ideias tb: main = do _ <- getLine interact $ unlines . map (show . solve) . lines solve :: String -> Int solve line = let n = read line in countDiv n $ digits n digits :: Int -> [Int] digits = map (\x -> read [x]) . show divides :: Int -> Int -> Bool divides _ 0 = False divides n d = (n `mod` d == 0) countDiv :: Int -> [Int] -> Int countDiv n nums = let divisors = filter (divides n) nums in length divisors (Se alguém tiver algumas dicas pra dar em cima dele, é bem vindo tb :D)

3 2

Re: [haskell-br] HackerRank
by hawuvajo 06 Jan '15

06 Jan '15

Muito obrigado pelo retorno, e principalmente aos pontos levantados... hoje de noite vou fazer alterações com base na suas dicas! --- Mensagem Original --- De: "Álvaro Pereira" <alvaro.bruno(a)gmail.com> Enviado: 6 de janeiro de 2015 04:10 Para: haskell-br(a)haskell.org Assunto: Re: [haskell-br] HackerRank Pro Jean, que tava pedindo umas dicas... tô aprendendo haskell ainda, mas deixa eu tentar ajudar no que consigo no código haeuhea, vamo lá: import Data.Char > import Control.Monad > > intDigits :: Integer -> [Int] > intDigits n = map (\x -> read [x] :: Int) (show n) > > Aqui o " :: Int " é desnecessário, porque como você declarou o tipo da função (que retorna [Int]), a linguagem já se vira sozinha. Além disso, o haskell tem o currying pronto, então "map (\x -> read [x])" já é uma função (que "tá faltando" receber o último argumento), então dá pra você compor ela com o show. Podendo escrever só assim: intDigits = map (\x -> read [x]) . show (daí nem precisa do n) > charDigits :: [Int] -> [Char] > charDigits = map (\x -> intToDigit x) > > digits :: Integer -> [Char] > digits = charDigits . intDigits > > [Char] e String são as mesmas coisas, você tá convertendo um int pra uma lista com os digitos e passando eles pra char, mas não tinha necessidade (isso é a mesma coisa que dar show já). Tipo, se você fizer: digits = show O código continua fazendo a mesma coisa :P > > divide :: Integer -> Char -> Bool > divide _ '0' = False > divide n c = isMultiple > where digit = toInteger $ digitToInt c > nModDigit = n `mod` digit > isMultiple = nModDigit == 0 > > > findDigit :: Integer -> Int > findDigit n = foldl (\a b -> a + (if div b then 1 else 0)) 0 list > where div = divide n > list = digits n > > getStrings :: Integer -> [IO String] > getStrings n > | n <= 0 = [] > | otherwise = getLine : getStrings (n - 1) > > Aqui acho q era mais negócio c usar pattern matching do que as guards (que nem fez embaixo), mas só pq fica menor/mais bonitim msm > > getIntegers :: [String] -> [Integer] > getIntegers [] = [] > getIntegers (x:xs) = readInteger x : getIntegers xs > > Aqui c podia fazer algo como: getIntegers = map read > > readInteger :: String -> Integer > readInteger = read > > Aqui, c só deu outro nome pro "read". Se a intenção foi forçar o tipo, é mei bobera, no sentido que se na outra função que c vai usar ela (a getIntegers por exemplo) já tem o tipo declarado, a linguagem já vai converter pro tipo certo com o read. > > main = do > qtd <- getLine > valStr <- sequence $ getStrings (readInteger qtd) > let valores = getIntegers valStr > digitsFound = map (findDigit) valores > mapM (print) digitsFound > > E no geral c tá usando Integer, sendo que no problema não estouraria o Int, daí não tem pq usar. (Integer é mais pesadinho). Dá uma olhada depois em coisas como forever, getContents e interact, que ajuda em muitos casos na I/O. Vô botar meu código aqui pro mesmo problema, talvez c tira algumas ideias tb: main = do _ <- getLine interact $ unlines . map (show . solve) . lines solve :: String -> Int solve line = let n = read line in countDiv n $ digits n digits :: Int -> [Int] digits = map (\x -> read [x]) . show divides :: Int -> Int -> Bool divides _ 0 = False divides n d = (n `mod` d == 0) countDiv :: Int -> [Int] -> Int countDiv n nums = let divisors = filter (divides n) nums in length divisors (Se alguém tiver algumas dicas pra dar em cima dele, é bem vindo tb :D) _______________________________________________ haskell-br mailing list haskell-br(a)haskell.org http://www.haskell.org/mailman/listinfo/haskell-br

1 0

Time no Hackerrank
by Leandro Cerencio 06 Jan '15

06 Jan '15

Pessoal, vocês comentaram sobre o Hackerrank. Que vocês acham de criar um time com os usuários do grupo? Eu vi a opção de criar times... Leandrolemoce

1 0

Re: [haskell-br] HackerRank
by hawuvajo 04 Jan '15

04 Jan '15

Não sabia desses detalhes, dica importante --- Mensagem Original --- De: "Leandro Cerencio" <cerencio(a)yahoo.com.br> Enviado: 4 de janeiro de 2015 20:10 Para: "Grupo Brasileiro de Usuá rios de Haskell" <haskell-br(a)haskell.org> Assunto: Re: [haskell-br] HackerRank E ai galera, eu já resolvi alguns problemas no Hacker Rank. Achei muito bom para aprender novas linguagens. Completei alguns desafios em C++11, Haskell e Scala. Utilizei Haskell na parte de algoritmos e de fp. Somente prestem atenção no ambiente disponível: Haskell Platform 2013.2Time limit: 5s (tempo para execução do programa)Memory limit: 512 Mb (tamanho máximo de memória)Libraries provided: logict lens pipes mwc-random hashtables regex-pcre hmatrix aeson and hashmap libraries are available. https://www.hackerrank.com/environment twitter: lemoceleandro.cerencio at gmail.comcerencio at yahoo.com.br Em Domingo, 4 de Janeiro de 2015 17:42, Jean Lopes <hawu.bnu(a)gmail.com> escreveu: problema: https://www.hackerrank.com/challenges/find-digitsimport Data.Char import Control.Monad intDigits :: Integer -> [Int]intDigits n = map (\x -> read [x] :: Int) (show n) charDigits :: [Int] -> [Char]charDigits = map (\x -> intToDigit x) digits :: Integer -> [Char]digits = charDigits . intDigits divide :: Integer -> Char -> Booldivide _ '0' = Falsedivide n c = isMultiple where digit = toInteger $ digitToInt c nModDigit = n `mod` digit isMultiple = nModDigit == 0 findDigit :: Integer -> IntfindDigit n = foldl (\a b -> a + (if div b then 1 else 0)) 0 list where div = divide n list = digits n getStrings :: Integer -> [IO String]getStrings n | n <= 0 = [] | otherwise = getLine : getStrings (n - 1) getIntegers :: [String] -> [Integer]getIntegers [] = []getIntegers (x:xs) = readInteger x : getIntegers xs readInteger :: String -> IntegerreadInteger = read main = do qtd <- getLine valStr <- sequence $ getStrings (readInteger qtd) let valores = getIntegers valStr digitsFound = map (findDigit) valores mapM (print) digitsFound Em 4 de janeiro de 2015 17:41, Jean Lopes <hawu.bnu(a)gmail.com> escreveu: Legal esse site, finalmente consegui resolver o primeiro de lógica em Haskell! tive bastante trabalho com a parte de IO (não sabia nada ainda, agora sei quase nada kk)tive que pesquisar também sobre como transformar um número em string.. pelo que vi da pra melhorar bastante ainda! alguem tem dicas ?? segue o código Em 29 de dezembro de 2014 21:14, Luis Fernando Milano Oliveira <luismilanooliveira(a)gmail.com> escreveu: Legal, Sérgio! Eu não conhecia não, valeu pela dica! [ ] s Em 29 de dezembro de 2014 18:19, Sergio costa <skosta(a)gmail.com> escreveu: sim, por isso achei legal :) quase não passava em estrutura de dados, rs... Em 29 de dezembro de 2014 17:02, Rafael Barros Félix <rafaelbfs1(a)gmail.com> escreveu: simum entrevistador da Inglaterra até me mandou tarefas desse site. E eu descobri que eu sei bem menos do haskell do que eu achava Em 29 de dezembro de 2014 16:26, Sergio costa <skosta(a)gmail.com> escreveu: Prezados Conhecem este site ? Tem diversos desafios em programação funcional. https://www.hackerrank.com/ abs-- Prof. Sérgio Souza Costahttps://sites.google.com/site/skosta/ _______________________________________________ haskell-br mailing list haskell-br(a)haskell.org http://www.haskell.org/mailman/listinfo/haskell-br _______________________________________________ haskell-br mailing list haskell-br(a)haskell.org http://www.haskell.org/mailman/listinfo/haskell-br -- Prof. Sérgio Souza Costahttps://sites.google.com/site/skosta/ _______________________________________________ haskell-br mailing list haskell-br(a)haskell.org http://www.haskell.org/mailman/listinfo/haskell-br _______________________________________________ haskell-br mailing list haskell-br(a)haskell.org http://www.haskell.org/mailman/listinfo/haskell-br _______________________________________________ haskell-br mailing list haskell-br(a)haskell.org http://www.haskell.org/mailman/listinfo/haskell-br _______________________________________________ haskell-br mailing list haskell-br(a)haskell.org http://www.haskell.org/mailman/listinfo/haskell-br

1 0

HackerRank
by Sergio costa 04 Jan '15

04 Jan '15

Prezados Conhecem este site ? Tem diversos desafios em programação funcional. https://www.hackerrank.com/ abs -- Prof. Sérgio Souza Costa https://sites.google.com/site/skosta/

5 6