在Haskell中至少用1个元音生成所有3个字母单词

如何解决在Haskell中至少用1个元音生成所有3个字母单词

我需要至少用1个元音生成所有3个字母的单词。 我已经编写了一个代码来生成所有3个字母的单词，但是我找不到如何用1个或多个元音来制作每个单词的方法。 这是我的代码：

alfabeto = ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"]
alfabeto2 = ["a","z"]
alfabeto3 = ["a","z"]

small = [alfabeto ++ alfabeto2 ++ alfabeto3 | alfabeto <- alfabeto,alfabeto2 <- alfabeto2,alfabeto3 <- alfabeto3]

解决方法

我们可以定义两个字母，一个仅带有元音，另一个带有所有字符：

vowels :: [Char]
vowels = "aeiouy"

letters :: [Char]
letters = [ 'a' .. 'z' ]

现在要获得结果，可以从letters列表中选择两个首字母，因为无论我们选择什么，对于最后一个字符，我们可以选择两个元音都不是元音。

因此，我们可以定义一个函数，给定前两个字符，该函数返回一个元音列表（如果两个字符都不是元音）或一个字母列表（如果至少一个字符是元音）。该函数看起来像：

pickThird :: Char -> Char -> [Char]
pickThird la lb
    | … = letters
    | otherwise = vowels

您仍需要填写…部分。

现在，我们可以在类似于以下内容的列表理解中使用它：

words3 :: [String]
words3 = [ [la,lb,lc] | la <- letters,lb <- letters,lc <- pickThird la lb ]

pickThird将根据la和lb的选择返回所有字母的列表或仅返回元音。