生成代表门铃系统的列表

Question

我正在尝试从两个Ints 和另一个元组列表生成一个列表，以表示公寓楼的门铃系统。第一个数字是楼层数，第二个数字是“不存在”/我们跳的楼层，列表是楼层的公寓分布。例如：

geneList 10 4 [("Rgt", 10), ("Lft", 8), ("Cent", 3)]

（在本例中，我们将有 10 层，而第 4 层不存在。只有前三层有 'Cent' 'Rgt' 和 'Lft' 公寓。从 5 到 9 层只有 'Rgt' 和 '左”公寓。10 到 11 层只有“右”公寓。）

返回值必须是：

["1Rgt","1Lft","1Cent","2Rgt","2Lft","2Cent","3Rgt","3Lft","3Cent","5Rgt","5Lft","6Rgt","6Lft","7Rgt","7Lft","8Rgt","8Lft","9Rgt","9Lft","10Rgt","11Rgt"]

我尝试了不同的方法，但始终没有达到结果。

我最后一次尝试是：

geneList :: Int -> Int -> [(Char, Int)] -> [Char]
geneList 0 _ _ = []
geneList x y xs = [a++b | a <- [1..x+1], b <- xs, (\=) a y]

有人可以帮帮我吗？

Answer 1

首先让我们计算一个楼层的数字：

floorNum skip n = if n < skip then n else n + 1

现在让我们获取楼层名称的公寓名称

apartments :: [(String, Int)] -> Int -> Int -> [String]
apartments spec skip floor = [f ++ name | (name, max) <- spec, floor <= max]
  where f = show $ floorNum skip floor

我们可以为所有楼层收集这些：

geneList floors skip spec = [name | floor <- [1..floors], name <- apartments spec skip floor]

Answer 2

这些是您的代码中的问题：

1. "Rgt" 的类型是String（又名[Char]），而不是Char。
2. 不等比较运算符写成/=，而不是\=。 （仔细阅读文档！）
3. 您没有确保当前楼层最多为每间公寓的高度。
4. 当您编写b <- xs 时，b 是一个(String, Int) 元组。你应该改写(apartment_name, apartment_height) <- xs。