--- Stephen Turner <[EMAIL PROTECTED]> wrote:
> On Wed, 29 May 2002, Jonathan E. Paton wrote:
> >
> > And the 5 byte solution:
> >
> > $x$
> >
> > I'll be impressed with the man who shows me the four byte solution.
>
> 1x$^T
Oops... I'm a fool. The truely shortest solution is 0 bytes:
root@delta:/ > perl -e' '
Out of memory!
root@delta:/ >
Okay, okay... I admit it , I just turned off the swapfile and ate the
remaining memory with another perl script. [1]
Jonathan Paton
[1] Hmm... the 0 byte version doesn't really "leak memory". However,
Perl DOESN'T leak memory on any of these solutions - it just fails to
find you more to satisify your greed. On systems with near infinite
memory these will work, not fail.
The *only* way to suceed is to infinitely loop, using more memory
per iteration. On the refined rules, you need:
$a.=1while 1
Anyone able to do better, assuming memory is so plentiful that in
infinite time infinite memory would be required by the solution?
Jonathan Paton
=====
$_=q|.,&@$$. ,.@$&@$. .&$$@. ,,$ ....!$_=$p.'&$@.',y'&$@' .,';for(/\S+/g){
!|.q| .$ .,@, ,$, .,.. @, ,$ ,,@ .,,.!++$.<22?${'y'.$_}=chr$.+64:[$$=${'y'
!|.q| ,@$@&.,. $$$&, ..@&&$,,, $., ..!.$_},$y.=($.=~/22\|26\|3(3\|7)/x?' '
!|.q|. @ ., ,.&,,, , .$..&. .,$ .,,!.$$:"\l$$")]};$y=~/ (.*)/;warn"$1\n"
!|.q|. $ .,. .,$$&&$...&., @.,.&@$@ .|,map{-$|--?$r:$p.=$_}split'!';eval$r
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
