Brad Greenlee wrote:
>
> Finally, the [possibly] fun part for you non-golfers.
Here's a 102 that's quite different from the other solutions:
#!perl -l
@a='';s/ / /g>>4?print:map{$t=1+vec'
�����~B��~E��v��',$'*2+$|--,4;/ $t/||[EMAIL PROTECTED],"$_ $t"}$_,$_ [EMAIL PROTECTED]
Deparse show the vec string to be
"\n\267\307\360\350\312\202\352\264\355\205\303\361v\265\251"
in case mailers munge it up.
For real perl fun, note the s/ / /g which, while not seeming to do much,
both counts the numbers in a string AND gives me the last number in the
string in $'.
Another fun aspect is the $|--.
--
Rick Klement
