4 lines
87 B
Text
4 lines
87 B
Text
|
: mean dup empty? [drop 0] [dup [+] foldl1 swap length /] branch ;
|
||
|
|
|
||
|
|
[3 1 4 1 5 9] mean
|