RosettaCodeData/Task/Averages-Arithmetic-mean/Icon/averages-arithmetic-mean.icon

5 lines
92 B
Plaintext

procedure main(args)
every (s := 0) +:= !args
write((real(s)/(0 ~= *args)) | 0)
end