使用Haskell在元组中以长度为2 ^ 0，2 ^ 1，…，2 ^ N的列表分割列表

Question

我正在尝试解决Haskell问题，但是我不知道从哪里开始。 我需要将列表拆分成长度为2 ^ 0、2 ^ 1、2 ^ 3 ..个元素的列表。 因此，如果在使用函数后获得列表[1,2,3,4,5,6,7,8,9,10,11,12,13] ，我们应该得到结果[[1],[2,3],[4,5,6,7],[8,9,10,11,12,13]]

Answer 1

您可以使用以下函数： splitAt :: Int -> [a] -> ([a],[a]) ，然后使用递归：

blocks :: Int -> [a] -> [[a]]
blocks _ [] = []
blocks n ls = la : blocks (2*n) lb
    where ~(la,lb) = splitAt n ls

因此，在我们有一个blocks 1 [1,2,3,4,5,6]的情况下，我们将获得[[1],[2,3],[4,5,6]] 。 在第一种情况下，我们查看提供给块的列表是否为空，在这种情况下，没有要分割的内容，因此我们返回空列表。 在递归的情况下，我们splitAt的ls列表到la和lb 。 la是我们的第一个列表，而lb我们需要进一步lb列表。 我们使用n*2作为新的分割长度进行递归，以确保列表的长度将像2的幂一样增加。

Answer 2

也许您也可以使用zip和groupBy 。 似乎正在工作，但不是那么简单。

import Data.List
a="Hello World!"
p=[2^n| n<-[0..]]
pa=take (length a) p
b=[elem n pa| n<-[1..length a]]
c=zip a b
d=groupBy (\x y->snd y==False) c
e=map (map (\x->fst x)) d