Öğrenme Haskell: String manipülasyon sorusu

Question

Haskell'de, a1a2a3 biçiminde bir girdi dizesi alan ve a1a2a2a3a3a3'e genişleyen bir işlevi nasıl yazabilirim. Örneğin, giriş dizgisi "kod", "coodddeeee"

Answer 1

Muhtemelen çok verimsiz :)

f :: Int -> [Char] -> [Char] 
f _ [] = [] 
f n (c:s) = (replicate n c) ++ (f (n+1) s) 

g :: [Char] -> [Char] 
g s = f 1 s 

.

*Main> g "code" 
"coodddeeee" 

Answer 2

'a genişletilecektir. Böylece karakterinin n kez tekrarlanmasını istiyorsunuz.

f :: String -> String 
f x = concatMap g (zip x [1..]) 
    where 
     g (x,y) = replicate y x 

Bunun için daha kolay bir yol olduğundan eminim.

Açıklama: Önce dizeyi alıp listedeki yeriyle eşleştirelim (1'den başlayarak). Bu ne fermuar geçerli:

Prelude> zip "code" [1..] 
[('c',1),('o',2),('d',3),('e',4)] 

Şimdi fonksiyon g (x,y) Eğer y defa istediğini kopyalayan çoğaltmak işlevini kullanır. Yani x, y kere çoğaltırız.

Prelude> map g $ zip "code" [1..] 
["c","oo","ddd","eeee"] 

Dizgilerde bir listesi varsa, bunları concat kullanarak birlikte arada kullanabilirsiniz: ürettiğimiz liste üzerinde bu işlevi eşlerseniz

Prelude> g ('z',4) 
"zzzz" 

sonuç almak. concatMap, her bir harf ve sayı çiftine g işlevini uygular ve ardından dizeyi son sonuca birleştirir.

Prelude> concat $ map g $ zip "code" [1..] 
"coodddeeee" 

Temelde: concat $ map g ->concatMap g

DÜZENLEME: çalıştığını şimdi, o da thusly bir satırda yapılabilir:

f x = concatMap (\(a,b)->replicate b a) $ zip x [1..] 

Çıktı:

Prelude> f "lambda" 
"laammmbbbbdddddaaaaaa" 

Answer 3

import Control.Monad 
f = zip [1..] >=> uncurry replicate 

Main> f "code" 
"coodddeeee" 

Answer 4

Prelude> let l = "code" in concat $ [take y $ repeat (last $ take y l) | y <- [1..length l]] 
"coodddeeee" 

Answer 5

İnsanlar neden Liste comprehensions nefret ediyorsun verir?

Prelude> let f s = concat [ replicate x y | (x,y) <- zip [1..] s] 
Prelude> f "code" 
"coodddeeee" 

veya uzantıları

Prelude> :set -XParallelListComp 
Prelude> let f s = concat [ replicate x y | x <- [1..] | y <- s] 
Prelude> f "code" 
"coodddeeee"