MRMCD12 write squared by clock

puts gets[0,n=6+~/$/>>2]
$_+=' '
(m=n-2).times{|i|puts$_[n*4-5-i,1]+' '*m<<$_[n+i]}
puts$_[2*n-2,n].reverse

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

download

return to the top page