in reply to Printing Some Output

my $one = 0; while ($one <= 100_000) { print $one += 500, "\n"; }

Abigail

Replies are listed 'Best First'.
Re: Re: Printing Some Output
by CountZero (Bishop) on Aug 01, 2003 at 16:01 UTC

    Very funny, but not entirely what the OP had in mind I might guess.

    CountZero

    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Re: Re: Printing Some Output
by Limbic~Region (Chancellor) on Aug 01, 2003 at 16:03 UTC
    Abigail,
    One minor nit - ellem asked "to print say every 500th addition?". Your solutions prints every addition - it just adds 500 each time.

    Cheers - L~R

    Update: CountZero beat me to the punch :-(