Re: [golf] Tangled Tale Results

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/||push@a,"$_ $t"}$_,$_ for@a


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