Re: Re: Re: space saving wanted!

Well demerphq already gave you 99.9% of the code, just test to see if each variable is greater than zero:

my ($calc1, $calc2, $calc3, $calc4);
foreach my $calc ( $calc1, $calc2, $calc3, $calc4   )   {
  print "$calc\n" if ($calc > 0);
}
[download]

-- vek --

Comment on Re: Re: Re: space saving wanted! Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: space saving wanted! by demerphq (Chancellor) on Apr 23, 2003 at 19:44 UTC
It seems to me that annonymok should review perlsyn. What do you think? --- demerphq _{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...}	[reply] [d/l]
Re: Re: Re: Re: Re: space saving wanted! by vek (Prior) on Apr 23, 2003 at 22:19 UTC
Absolutely, by the looks of things it certainly wouldn't hurt would it :-) demerphq++ -- vek --	[reply]