MRMCD12 write squared by z

use v5.10;@i=split//,<>;$t=int(@i/4+.5);push@i," ";say@i[0..$t];say@i[4*$t-$_]." "x($t-1).@i[$t+$_]for(1..$t-1);say reverse@i[2*$t..3*$t];

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

download

return to the top page