sugyan https://blog.hatena.ne.jp/sugyan/ すぎゃーんメモ https://memo.sugyan.com/ Perl OneLiner Sierpinski triangleワンライナー - すぎゃーんメモの続き。 アルゴリズムの意味を自分なりに汲み取って書き換えてみた。 $ perl -le 'print map { ~$n & $_ ? "." : "#" } 0..($n = $_ - 1) for 1..2**pop' 6 # ## #.# #### #...# ##..## #.#.#.# ######## #.......# ##......## #.#.....#.# ####....#### #...#...#...# ##..##..##..## #.#.#.#.#.#.#.# ###############… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmemo.sugyan.com%2Fentry%2F20090228%2F1235797042" title="Sierpinski triangleワンライナー その２ - すぎゃーんメモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-02-28 13:57:22 rich https://memo.sugyan.com/entry/20090228/1235797042 1.0 100%