パスカルの三角形そのものは，単純なルールで作れます．ルールはちょっと考えてみてください．詳しくは，ネットで検索してみてください．


triangle :: [[Integer]]
triangle = [1] : [zipWith (+) ([0]++t) (t++[0]) | t <- triangle]


それぞれの数に対応して，奇数なら黒，偶数なら白にして，各段左寄せて描く(1024段)と以下のようなパターンがあらわれます．おもしろいパターンですね．これをシェルピンスキーのガスケットといいます．

＊ブログテーマ一覧はこちらから