哈斯克爾

Question

元組功能我具備的功能

getCode :: [(a, Int)] -> [a] 
getCode = concatMap (uncurry replicate)` 

我希望

getCode [(‘a’,4),(‘b’,1),(‘a’,3),(‘b’,1)] 

輸出

「aaaabaaab」 

相反，我得到一個錯誤，它不匹配與預期數據類型[(a,Int)]，實際數據類型爲[(Int,a)]。我如何改變它使其工作？或者其他方式？

Answer 1

可以與flip功能互換的replicate的參數：

flip :: (a -> b -> c) -> b -> a -> c 

flip f取其（第一）兩個參數中的f相反的順序。

getCode :: [(a, Int)] -> [a] 
getCode = concatMap (uncurry (flip replicate)) 

---

，或是使用Data.Tupleswap做同樣的事情用一個元組，而不是功能參數：

getCode :: [(a, Int)] -> [a] 
getCode = concatMap (uncurry replicate . swap)