整數字符串列表 - haskell？

Question

我想獲取一個整數列表並重復它們多次，但作爲haskell中的字符串。預期的輸出是：

> nnn [3,1,5] = ["3-3-3","1","5-5-5-5-5"] 
> nnn [10,2,4] = ["10-10-10-10-10-10-10-10-10-10","2-2","4-4-4-4"] 

現在我覺得我靠近......但我不能完全把整數列表爲String，絕對不知道該怎麼辦了連字符。這裏是我的代碼，到目前爲止，輸出：

nnn :: [Int] -> [[Char]] 
nnn list = map show (map (\x -> take x $ repeat x) list) 

，這讓我：

> nnn [3,1,5] = ["[3,3,3]","[1]","[5,5,5,5,5]"] 

（我關閉至少！）任何人都可以點我在正確的方向在這裏看？ :)

Answer 1

A 單獨函數重複一個數字成連字符分隔的字符串似乎很有用。轉換爲數字的字符串第一，複製它，並使用intercalate插入各元素之間的連字符和加入他們的行列：

repeatNumber :: Int -> String 
repeatNumber n = intercalate "-" $ replicate n $ show n 

然後nnn是好的和簡單：

nnn :: [Int] -> [String] 
nnn = map repeatNumber 

（replicate a b爲take a $ repeat b ）