可不可以用perl寫
map { printf "%s\n", $i = $_ < 5 ? '*' x ++$j : '*' x --$j; } (0..8);