: 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