| Newsgroups |
perl.golf |
| Message-ID |
<[email protected]> |
(-ugene wrote:
> -l print$"x--$^F,map$^F&$_?$"x2:"/\\",0..$y++while$^F<<=pop
> is 3 strokes shorter than yours, but gives slightly different output.
Only two strokes shorter then me I think. Can't see an immediate way to give
the same output as the others with the same score.
-lX061 print$"x--$/,map$/&$_?$"x2:"/\\",0..$y++while$/<<=pop
Uses the same cunning idea, but is the same length as mtv's. The X is
necessary to stop perl assigning 061 to $\, silly perl switch names.