11 lines
179 B
Text
11 lines
179 B
Text
#
|
|
# arithmetic mean
|
|
#
|
|
|
|
decl int<> input
|
|
decl int i
|
|
for (set i 1) (< i (size args)) (inc i)
|
|
append (int args<i>) input
|
|
end for
|
|
|
|
out (/ (+ input) (size input)) endl console
|