Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Averages in bowling

by graq (Curate)
on Mar 21, 2006 at 17:01 UTC ( [id://538230]=note: print w/replies, xml ) Need Help??


in reply to Averages in bowling

I am still perplexed as to what you actually are trying to do. So, I have modified your code to the following:
#!perl use strict; use warnings; my( $k, $i, $j ) = ( 0, 0, 0 ); until($k==2){ # @averages[$k]=int((@scores[$i][$j]+@scores[$i][$j+1]+@scores[$i][$ +j+2]+@scores[$i][$j+3])/3); print "AVERAGE [$k] = (scores[$i][$j] + scores[$i][".($j+1); print "] + scores[$i][".($j+2); print "] + scores[$i][".($j+3); print "]) /3)\n"; $i++; $j++; $k++; }

Now, it isn't very pretty, but it takes your snippet, makes it work, and produces some debug info to match against your desired result.

> perl test.pl AVERAGE [0] = (scores[0][0] + scores[0][1] + scores[0][2] + scores[0][ +3]) /3) AVERAGE [1] = (scores[1][1] + scores[1][2] + scores[1][3] + scores[1][ +4]) /3)

Is this really what you wanted?

-=( Graq )=-

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://538230]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (6)
As of 2024-03-28 15:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found