哈斯克尔 - 解释了一些

Question

我公司拥有一批9877342931235.使用哈斯克尔，我需要将其显示为：

987-734293-123-5

我试过点缀列表中，但当然是在每个数字之间放置' - '。我怎么做才能得到实际的结果？

Answer 1

下面是一个分裂成列表指定长度的部分，然后用指定的分隔符一起加入他们一个简单通用的解决方案：

splitercalate :: [Int] -> [a] -> [a] -> [a] 
splitercalate (x:[]) _  s = take x s 
splitercalate (x:xs) delim s = 
    case splitAt x s of 
    (a, []) -> a 
    (a, bs) -> a ++ delim ++ splitercalate xs delim bs 

在你的情况splitercalate [3, 6, 3, 1] "-" $ show 9877342931235会给你想要的东西。

UPDATE：

splitercalate chunks sep = intercalate sep . splitPlaces chunks 

您需要安装split包（可能是这样做的：作为Antal S-Z笔记在下面留言，您可以通过使用功能从Data.List和Data.List.Split更简洁实现这个功能像cabal install split），并导入intercalate和splitPlaces功能：

import Data.List (intercalate) 
import Data.List.Split (splitPlaces) 

这两个版本应该是等效的。如果您不介意额外的import和对split程序包的依赖，请使用Antal S-Z，它更好。

Answer 2

OK，如果你不希望使用Data.List.Split ...

import Data.List (intercalate)

splitPlaces (n:ns) x = let (h, t) = splitAt n x in h : splitPlaces ns t splitPlaces _ x = []

splitercalate chunks sep = intercalate sep . splitPlace chunks

你的回答是那么concat . splitercalate [3,5,3,1] "-" $ show 9877342931235