sandglass by shlomif

sub r{my$y=shift;@F,$y&&do{local@F[$y-1,-1-$y]=($")x2;&r},@F%2|$y?@F:()}print r 1,1,3..(@F=<>=~/./gs)/2-1

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

download

return to the top page