Haskell中的每个字符都分成6个部分的字符串

Question

我希望能够将字符串拆分为6个独立的字符串，每个字符。

因此，例如IAMABADPROGRAMMER

会导致：IDA，APM，MRM，AOE，BGR，AR

有一个Haskell函数来做到这一点？

感谢

Answer 1

没有一个函数来做到这一点了，但它可以很容易地写：

import Data.List (transpose) 

chunk :: Int -> [a] -> [[a]] 
chunk _ [] = [] 
chunk n xs = first : chunk n rest where (first, rest) = splitAt n xs 

splitSkip :: Int -> [a] -> [[a]] 
splitSkip n xs = transpose $ chunk n xs 

main :: IO() 
main = print $ splitSkip 6 "IAMABADPROGRAMMER" 

我的第一直觉是它推广到所有列表，不只是名单Char s。当您记得类型[String]与[[Char]]相同时，您会看到最后会得到一个Char s的二维矩阵，如果您沿着从左到右的每列向下移动，则会返回原始列表。那么，这与转置矩阵并从上到下每行向下一样，这与将原始列表首先拆分为大块n元素相同。在这一点上，我有解决方案，只是后退。我写了一个快速函数来分块列表，然后使用Data.List中的transpose函数完成它。

Answer 2

我相信这可能是与列表内涵并没有什么超出了基本的功能前奏做...

groupNth :: Int -> [a] -> [[a]] 
    groupNth n [] = [] 
    groupNth n xs = take n $ [ y | y <- everyNth xs ] : groupNth n (tail xs) 
      where 
      everyNth [] = [] 
      everyNth l@(y:ys) = y : everyNth (drop n l) 

似乎工作，我觉得是比使用转更有效。