Фильтр по длине

Question

Как я могу сделать здесь фильтр (x:xs) = (x, length (x:xs)), который ставит длину, когда длина> 1?

В настоящее время, если входной номер abcaaabbb Выход [('a',1),('b',1),('c',1),('a',3),('b',3)], но я ищу abca3b3.

Мой код:

import Data.List 

encode :: [Char] -> [(Char, Int)] 
encode s = map go (group s) 
       where go (x:xs) = (x, length (x:xs)) 

main = do 
    s <- getLine 
    print (encode s) 

Последняя строка будет putStrLn (concat (map (\(x,y) -> x : [y]) (encode s))) для списка Преобразовать в строку.

Answer 1

Как я новичок сам, это, вероятно, не очень haskellian. Но вы можете сделать это примерно так (хз, как бы список [('a', 1), ('b', 2), ('a', 3)]):

Создать "a1b2a3":

concat $ map (\(c, l) -> c:(show l)) xs 

Фильтр из 1s:

filter (\x -> x /= '1') "a1b2a3" 

даст вам «ab2a3 "

Answer 2

Вы не можете иметь список, как это в Haskell:

[('a'),('b'),('c'),('a',3),('b',3)] 

Каждый элемент, если список должен иметь тот же тип в Haskell, и («с») [(«а»): : Char] и ('b', 3) [('a', 1) :: Num t => (Char, t)] - разные типы.

Может также взглянуть на List of different types?

Я хотел бы предложить, что вы изменили свой список на Char (структура данных, Может быть, NUM).

Edit:

Ваш новый вопрос, я думаю, что вы искали это:

import Data.List 

encode :: [Char] -> [(Char, Int)] 
encode s = map go (group s) 
       where go (x:xs) = (x, length (x:xs)) 

f :: (Char, Int) -> String 
f (a, b) = if b == 1 then [a] else [a] ++ show b 

encode2 :: [(Char, Int)] -> String 
encode2 [] = [] 
encode2 (x:xs) = f(x) ++ encode2 xs 

main = do 
    s <- getLine 
    putStrLn $ encode2 $ encode s 

Answer 3

Не уверен, что это соответствует вашим потребностям, но если вам не нужна фильтрация, это делает работу:

encode::String -> String 
encode "" = "" 
encode (x:xs) = doIt0 xs x 1 where 
     doIt0 [] ch currentPos = [ch]++showPos currentPos 
     doIt0 (x:xs) ch currentPos 
       |x==ch = doIt0 xs ch $ currentPos+1 
       |otherwise= [ch]++ (showPos currentPos) ++ (doIt0 xs x 1) 
     showPos pos = if pos> 1 then show pos else "" 

main = do 
     s <- getLine 
     print (encode s)