学习Haskell:字符串操作问题

Question

如何在Haskell中编写一个函数,它采用格式为a1a2a3的输入字符串并扩展为a1a2a2a3a3a3.例如,输入字符串"code"将扩展为"coodddeeee"

Answer 1

所以你希望nth角色重复n一次.

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

我确信有一种更简单的方法可以做到这一点.

说明:首先我们得到字符串并将其与列表中的位置配对(从1开始).这是zip的作用:

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

现在该函数g (x,y)使用复制函数,它复制你想要的任何y次.所以我们复制x,y次.

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

如果我们将这个函数映射到生成的列表上,你会得到结果:

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

如果您有一个字符串列表,可以使用它们将它们连接在一起concat.concatMap将函数g应用于每对字母和数字,然后将字符串连接到最终结果.

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

基本上:concat $ map g- >concatMap g

编辑:现在它工作,它也可以在一行中完成:

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

输出:

Prelude> f "lambda"
"laammmbbbbdddddaaaaaa"

Answer 2

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

产量

Main> f "code"
"coodddeeee"

Answer 3

可能非常低效:)

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"