Directions of the star road by nn

$(i=FS=_)=$0{for(j+=20-j%20;$++i;)r[j++]=$i}END{for(k=20;l<9;k=n){for($(r[k]=l=FS=" ")="20 -20 1 -1 19 -19 21 -21 | - / \\";l++<9&&r[n=k+$l]!="*";);printf$(l/2+8.5)}}

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

download

return to the top page