Starburst by clock

<?for($l=strlen($s=fgets(STDIN));$c=$s[$i];$n[$i++]=$n[$l-$i]=$c,print"$n
")$n=$i*2-$l+1?str_pad($c,$l,~\xdf,2):$s;

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

download

return to the top page