Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|Tcl}}
m (→{{header|Icon and Unicon}}: Don't use header like this) |
|||
Line 982:
}
mean 3 1 4 1 5 9 ;# ==> 3.8333333333333335</lang>
<lang tcl>general purpose Tcl
proc mean args {
set num [llength $args]
if {$num == 0} {
set meanargs 0
} else {
set sum [expr [join $args +]]
set meanargs [expr $sum/$num]
}
}
=={{header|TI-89 BASIC}}==
| |||