avg ← {(+⌿⍵)÷⍬⍴⍴⍵}
⎕fx 'z←avg1 x' 'z←(+⌿x)÷⍬⍴⍴x'
x←(2*¯24)ׯ1e9+?10⍴2e9
cmpx 'avg x' 'avg1 x'
avg x → 2.24E¯6 | 0% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕
avg1 x → 2.86E¯6 | +28% ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕
rn←{(2*¯24)ׯ1e9+?⍵⍴2e9}
{÷/tm cmpx 'avg x' 'avg1 x' ⊣ x←rn ⍵}¨10*1 2 3 4
0.819495 0.824615 0.923944 1
|