Rosetta Code

Averages/Arithmetic mean: Difference between revisions

Page Discussion

Averages/Arithmetic mean (view source)

Revision as of 06:48, 14 June 2012

595 bytes removed ,  12 years ago
Removed the repetition of ooRexx in the wrong place
m (→‎{{header|REXX}}: change arg to parse arg. -- ~~~~)
(Removed the repetition of ooRexx in the wrong place)
Line 1,594:
Output:
<lang python>3.83333333333333</lang>
 
=={{header|ooRexx}}==
<lang ooRexx>
call testAverage .array~of(10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
call testAverage .array~of(10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, .11)
call testAverage .array~of(10, 20, 30, 40, 50, -100, 4.7, -11e2)
call testAverage .array~new
 
::routine testAverage
use arg numbers
say "numbers =" numbers~toString("l", ", ")
say "average =" average(numbers)
say
 
::routine average
use arg numbers
-- return zero for an empty list
if numbers~isempty then return 0
 
sum = 0
do number over numbers
sum += number
end
return sum/numbers~items
</lang>
 
=={{header|R}}==
Walterpachl
2,299

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/50224"