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