4 lines
86 B
Forth
4 lines
86 B
Forth
: avg ( x -- avg )
|
|
x sum
|
|
x size dup ifZero: [ 2drop null ] else: [ >float / ]
|
|
;
|