Starburst by Ivan Wills

#!perl -nlaF
map{@a=$_-$#F/2?(' ')x@F:@F;@a[$_,$#F/2,$#F-$_]=($F[$_])x3;print@a}0..$#F

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

download

return to the top page