sub i_spend($loot)
{
   for (1 .. $credit){
      $loot -= $bills;
   }
   shift @ours;
}


@$mine = ();
@ours = map {i_spend($_)} @yours;

unless (@ours){
  print "someday...\n";
}

Re: poverty

ciderpunx

created: 2006-03-15 07:39:00

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

*heh* ++
however:

my $wallet=='empty' until $day==$payday;

--
charlieharvey.org.uk