haskell在字符串中重复所有字符

Question

我刚从Haskell开始，想要做一个小函数，该函数需要一个整数和一个String，以整数暗示的频率重复String中的每个字符。

例如：乘以3“ hello”将输出“ hhheeelllooo”

我现在的问题是我不确定如何遍历所有字符。

multiply::Int->String->String
multiply 1 s = s
multiply i s = multiply (i-1) (take 1 s ++ s)

所以我会得到的是“ hhhello”。 所以基本上我需要做类似的事情：

mult::Int->String->String
mult 0 s = []
mult 1 s = s
mult i s = "iterate over s, take each char and call a modified version of the multiply method that only takes chars above"

谢谢你帮我

Answer 1

当您使用标准库时，这变得更加容易。 首先，重复一个项目是通过replicate完成的：

Prelude> replicate 3 'h'
"hhh"

然后，您可以部分应用此函数并将其map到字符串上：

Prelude> map (replicate 3) "hello"
["hhh", "eee", "lll", "lll", "ooo"]

最后concat字符串该名单成一个字符串：

Prelude> concat (map (replicate 3) "hello")
"hhheeellllllooo"

concat和map可以缩写为concatMap （这是一个库函数，而不是语言功能）。

Prelude> concatMap (replicate 3) "hello"
"hhheeellllllooo"

所以你的功能变成

mult n s = concatMap (replicate n) s

为了简洁起见，请以无点样式写成：

mult = concatMap . replicate

Answer 2

有许多方法可以达到与其他语言中的循环相同的效果，并且larsmans使用map展示了一种方法。 另一个常见的方法是递归。 您已经知道如何处理第一个字符，因此可以像这样遍历列表：

multiply n [] = []
multiply n (x:xs) = replicate n x ++ multiply n xs

larsmans解释了replicate是如何工作的。 为了您的家庭作业，也许你不应该使用的库功能，如replicate ，这样你就可以调用替换到replicate与您自己的版本。

Answer 3

基于monadic的list性质的另一种方法。
您想要将一个函数应用于列表的每个元素。
为此，只需将列表绑定到函数，就像这样

# "hello" >>= replicate 3

要么，

# let f = flip (>>=) . replicate 

要删除翻转，

# let g = (=<<) . replicate

Answer 4

您可以为此使用应用函子：

import Control.Applicative

multiply n = (<* [1..n])

--- multiply 3 "hello" --> "hhheeellllllooo"