9 lines
163 B
Text
9 lines
163 B
Text
: avg \ a -- avg(a)
|
|
dup ' n:+ 0 a:reduce
|
|
swap a:len nip n:/ ;
|
|
|
|
\ test:
|
|
[ 1.0, 2.3, 1.1, 5.0, 3, 2.8, 2.01, 3.14159 ] avg . cr
|
|
[ ] avg . cr
|
|
[ 10 ] avg . cr
|
|
bye
|