http://www.perlmonks.org?node_id=166708


in reply to Caffeine and its delivery to monks in need

++broquaint

I love this node! This really amused me how much this great community of Perl hackers are determined to make everything possible with Perl.

I had to add to this thread, so here's my attempt: 
my $i = $caffeine_level;

for ($i = 0; $i < 100; ++$i) {
    push (@monk_needs,$caffiene);
}

[download]

- wil

Replies are listed 'Best First'.
Re: Re: Caffeine and its delivery to monks in need
by Juerd (Abbot) on May 16, 2002 at 06:57 UTC

    my $i = $caffeine_level; for ($i = 0; $i < 100; ++$i) {

    The first assignment is useless, as $i's value is immediately overwritten. The loop is inefficient, as for simple loops like this, a Perlish loop is faster and easier to write: for (1..100). Yes, I changed it from 0..99 to 1..100, because 1..100 looks better and you're not using the iterator variable anyway. 

    - Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

[reply]
[d/l]
[select]

In Section Meditations