In article <ac3otl$rr2$[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Ton Hospel) writes:
> In article <[EMAIL PROTECTED]>,
> Lolly Pop <[EMAIL PROTECTED]> writes:
>> #!perl -l
>> print$n-map$n+=@a%$_?0:$_,@a=1..pop
>>
>
> Yup, you found the 38 (don't you dare to enter the next TPR
> as beginner).
>
> So, that leaves the 37.
Nobody seems to have been evil enough, so here's the 37:
-l print$0-map${@n%-$_}+=$_,@n=1..pop
The problem with this solution is that the program may for example
be in a directory called 123/, and be started by perl 123/program_name,
in which case $0 will behave like a number and the program will fail.
Probably the judges should clarify this kind of stuff for the TPR rules.
This is not the first time I've been wondering about the exact form of $0.
I'd also like a judgement if `$0 args` is allowed (probably not ok),
and even `$^X $0 args` (probably ok).
