Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) (Removed the repetition of ooRexx in the wrong place) |
m (→{{header|REXX}}: changed TO --> FOR, expanded first comment. -- ~~~~) |
||
Line 1,634: | Line 1,634: | ||
=={{header|REXX}}== |
=={{header|REXX}}== |
||
<lang rexx>/*REXX*/ |
<lang rexx>/*REXX program to find averages/arithmetic mean of several lists. */ |
||
test1='10 9 8 7 6 5 4 3 2 1' |
test1='10 9 8 7 6 5 4 3 2 1' |
||
say 'numbers='test1 |
say 'numbers='test1 |
||
Line 1,664: | Line 1,664: | ||
avg: procedure; parse arg y |
avg: procedure; parse arg y |
||
s=0 |
s=0 |
||
do j=1 |
do j=1 for words(y) |
||
x=word(y,j) |
x=word(y,j) |
||
if \datatype(x,'N') then return '*error* non-numeric' x |
if \datatype(x,'N') then return '*error* non-numeric' x |