An ineffective skyscraper by rsFalse

$_="- -";
for$i(1..3){$_=join' 'x length,($_)x 2}
for$i(0..3){
$n=3**$i;
unshift@_,s/- {1,$n}(?=-)/'-'x length$&/ger.$/
}
print@_,$_

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page