haskell 基础题解（11）

打印金字塔2

【问题】打印出如下图的金字塔

这个题目与【问题10】很类似。
如果你用其它语言解决过类似的问题，请回议一下：
当已经完成了 10题，再来解这个题的时候，有多少东西可以重用呢？
我看到很多人都几乎是从头开始了。

为什么？ 因为星号的模式很不同啊，原来的算星号位置、数量的东西都没用了啊，至于输出那点代码重写没什么大工作量啊。
看出问题不？ 解法的核心逻辑缺少通用性！！！

来看看 haskell 的解法吧：

import Data.List (intersperse)

xing' = intersperse ' ' $ repeat '*' 
xing  = [ take i xing' | i<-[1,3..] ]
kong  = [ replicate i ' ' | i<-[0..] ]

ok :: Int -> [String]
ok n = zipWith (++) (reverse $ take n kong) (take n xing) 

out :: [String] -> String
out xs = concat $ intersperse "\n" xs

main = putStrLn $ out (ok 9)

与【问题10】比较，代码基本不动，唯一改的是 xing 这个函数，它生成的东西不是全星号，是星号与空格的间隔组成的。
你可以把这三角形，想象成一块布。它上面换换花纹，你就重写所有代码，不是很悲哀吗？

如果你仔细去安排每个星号位置，那我把它换成 ABCDABCDAB… 这样的花纹，你不是很苦恼吗？

从这个代码中，发现 haskell 特有的强大地方吗？ 构造无限的序列，用的时候截一段，省心省力，优美难以言表。。。。。
xing’ 就是一个 星号和空格相间的 无限序列而已
xing 用 xing’ 来构建自己的小花布。

函数式语言应该在高校推广，对我国软件工程水平会大有好处。。。。不能太急功近利啊，哪怕这种语言一辈子都没有用的机会。它的思想、方法论太重要了！！