Ingo Blechschmidt wrote:
> And:
>   my @ones = gather { take 1 while 1 };
>   my $ones = join "", @ones; # does not burn out!
>   say length $ones;          # Inf

s/length/chars/ of course.


--Ingo

-- 
Linux, the choice of a GNU | God said: tar xvjf universe.tar.gz - and
generation on a dual AMD   | the Universe was! -- Thomas Watz
Athlon!                    | <[EMAIL PROTECTED]>  

Reply via email to