Re: [FWP] Re: PerlOS

[Sean McAfee <mcafee@umich.edu> (by way of Vicki Brown)]

Message-Id: <199908030353.XAA23520@waits.facilities.med.umich.edu>
>From vlb@cfcl.com  Mon Aug  2 20:53:48 1999

>On Thu, Jul 29, 1999 at 10:07:55AM -0400, John Porter wrote:
>> > @s = ("fate", "anoints", "idle", "coders"); @a = ("kill", "apropos",
>> > "pico", "ispell");print join(' ', ($s[0]..$a[0])[83813],
>> > ($s[1]..$a[1])[188889], ($s[2]..$a[2])[123871],
>> > ($s[3]..$a[3])[52995357]);

>That is really, truly horrible. It runs out of memory on my 288Mb machine.
>I assume that it prints `whfg nabgure crey unpxre | rot13`...

Yep, as one can verify with the command:

perl -lne '($str, $n) = split; $str++ while $n--; print $str'

...and the input:

fate 83813
anoints 188889
idle 123871
coders 52995357

-- 
Sean McAfee                                                mcafee@umich.edu
print eval eval eval eval eval eval eval eval eval eval eval eval eval eval
q!q@q#q$q%q^q&q*q-q=q+q|q~q:q? Just Another Perl Hacker ?:~|+=-*&^%$#@!

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe