我怎样才能建一座哈斯克尔山？

Question

定义了一个名为right的函数，它绘制一个可以从东(右)爬的高度、n和宽度的山。把山从上到下每一行加宽一个字符。这座山应该由“#”字组成，不同层次的山应该用换行符隔开。没有新的线字符在山的尽头。负高度的山应该等于0，所以在这种情况下，结果应该是空列表。你知道我能在其他情况下写什么吗？

mountain :: Int -> String
mountain a 
 | a < 1 = ""
 | a == 1 = "#"
 | a == 2 == "#\n##"
 | otherwise = ???

Answer 1

您可以使用累加器:一个包含需要写入的#字符数的变量，然后对这些项进行递归调用。

然后，mountain函数看起来如下：

mountain :: Int -> String
mountain n = go 1
    where go i 
              |  i <= n = … ++ go (i+1)
              | otherwise = …

您需要在其中填写…部件。

一种更优雅的方法可能是使用map，其中我们从1创建一个列表到n，每次映射到一个字符串上，然后使用将这些字符串连接在一起：

mountain :: Int -> String
mountain = unlines (map (…) [1 .. n])