Haskell-功能不使用无限列表

Question

我写了一个功能，将清单以各种可能的方式将列表切成一半。 我的问题是我使用了“ lenght”功能，因此无法与无限列表一起使用。 我想不出任何实际修复的东西。 知道我该如何解决这个问题？

示例：

splitList "home"= [("","home"),("h","ome"),("ho","me"),("hom","e"),("home","")]

我的代码：

splitList :: [a] -> [([a],[a])]
splitList a = splitList' a

splitList' ::  [a] -> [([a],[a])]
splitList' a =  take ((length a)+1)  (splitList'' 0 a)

splitList'' :: Int -> [a] -> [([a],[a])]
splitList'' i a = (splitAt i a) : splitList'' (i+1) a 

Answer 1

长度a将被困在无限列表上的无限循环中。因此，您将需要以另一种方式进行重复。您可以在列表上重复出现，直到到达列表的末尾，例如：

splitList :: [a] -> [([a],[a])]
splitList [] = [([], [])]
splitList xa@(x:xs) = ([], xa) : map … (splitList xs)

在这里您需要填写…零件，splitlist xs xs您用x将每个2键盘的第一项准备。