Haskell中从字符串生成特定字符串列表的实现求助

嘿，这个问题挺有意思的！我来帮你理清楚怎么用Haskell实现这个需求~

思路分析 #

观察你给出的例子：

• 输入长度为4的字符串"1234"，输出4个长度为3的子串，每个子串都是原字符串循环移位后截取的前3个字符
• 输入"azer"同理，输出循环移位后的4个长度为3的子串

核心技巧是将原字符串与自身拼接，这样就能轻松获取循环移位后的连续字符序列。比如"1234"拼接后变成"12341234"，我们只需要从这个拼接后的字符串中，依次截取不同起始位置、长度为原字符串长度-1的子串即可。

实现代码 #

这里提供两种等价的实现方式，你可以根据喜好选择：

方式1：使用map函数（符合你提到的思路）

cyclicSubstrings :: String -> [String]
cyclicSubstrings s = let n = length s
                         doubled = s ++ s  -- 拼接原字符串，方便获取循环移位序列
                     in take n $ map (\i -> take (n-1) $ drop i doubled) [0..]

方式2：使用列表推导式（可读性更强）

cyclicSubstrings :: String -> [String]
cyclicSubstrings s = let n = length s
                         doubled = s ++ s
                     in [ take (n-1) $ drop i doubled | i <- [0..n-1] ]

代码解释 #

1. 计算长度：先获取原字符串的长度n，后续的子串长度为n-1，需要生成的子串数量为n
2. 拼接字符串：s ++ s生成循环移位的基础序列，比如"azer"变成"azerazer"
3. 截取子串：
   • 对于起始索引i从0到n-1的每个位置，从拼接后的字符串中跳过i个字符，再截取前n-1个字符
   • 最终取前n个结果，正好对应所有循环移位的情况

测试验证 #

• 输入cyclicSubstrings "1234"，输出：["123", "234", "341", "412"]
• 输入cyclicSubstrings "azer"，输出：["aze", "zer", "era", "raz"]

完全符合你的需求哦！

内容的提问来源于stack exchange，提问作者Maximepzv