Rosetta Code

Averages/Arithmetic mean: Difference between revisions

Page Discussion

Averages/Arithmetic mean (view source)

Revision as of 11:08, 4 November 2010

212 bytes removed ,  13 years ago
→‎{{header|Tcl}}: remove poor-quality implementation
No edit summary
(→‎{{header|Tcl}}: remove poor-quality implementation)
Line 1,166:
}
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}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/50154"