in reply to Perl Help

Hmmm. I'm not sure, but I think you would need to use java or Visual Basic to solve this sort of problem. The perl solution would be too short, and would look like modem line noise.

Replies are listed 'Best First'.
Re^2: Perl Help
by inman (Curate) on Jun 16, 2005 at 08:50 UTC 
    while(@_<10){s;;<>;e;push @_,$1 if/(\d+)/}$_=join ' ',@_,$a++;
s;(\d+) (\d+);$a*=$1,$b+=$2;ge;print"$a, $b\n";

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom