5 lines
73 B
Verilog
5 lines
73 B
Verilog
[mean
|
|
[sum 0 [+] fold].
|
|
dup sum
|
|
swap size [[1 <] [1]] when /
|
|
].
|