string - 如何制作子字符串列表？

Question

我正在尝试制作一个所有子串的列表，其中每个子串都少了一个原始字符串的元素。

例如“1234”将导致 ["1234","123","12","1"]

我只想使用序曲(不导入)来实现这一点，所以不能使用子序列。

我是 Haskell 的新手，我知道我的代码存在一些问题，但目前不知道如何解决它们。

slist :: String -> [String]
slist (x:xs) = (take (length (x:xs)) (x:xs)) ++ slist xs

我怎样才能递归地使用

编辑:希望递归地使用 init

Answer 1

slist :: String -> [String]
slist [] = []
-- slist xs = [xs] ++ (slist $ init xs)
slist xs = xs : (slist $ init xs)

main = do 
    print $ slist "1234"