Jump to content

Averages/Arithmetic mean: Difference between revisions

Averages/Arithmetic mean (view source)

Revision as of 00:37, 8 June 2009

71 bytes added ,  15 years ago
m
→‎{{header|UnixPipes}}: Lang tags
m (Lang tags)
Line 686:
 
=={{header|UnixPipes}}==
<lang bash>term() {
b=$1;res=$2
echo "scale=5;$res+$b" | bc
}</lang>
}
 
<lang bash>sum() {
(read B; res=$1;
test -n "$B" && (term $B $res) || (term 0 $res))
}</lang>
}
 
<lang bash>fold() {
func=$1
(while read a ; do
fold $func | $func $a
done)
}</lang>
}
 
<lang bash>mean() {
tee >(wc -l > count) | fold sum | xargs echo "scale=5;(1/" $(cat count) ") * " | bc
}</lang>
}
 
<lang bash>(echo 3; echo 1; echo 4) | mean</lang>▼
 
▲ (echo 3; echo 1; echo 4) | mean
 
=={{header|V}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/50074"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information