Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|Tcl}}: A mot
(→{{header|Tcl}}: A mot) |
|||
Line 613:
=={{header|Tcl}}==
<lang tcl>
proc mean args {
if {[set num [llength $args]] == 0} {return 0}
expr
}
mean 3 1 4 1 5 9 ;# ==> 3.8333333333333335</lang>
| |||