title: Perl 6 calculate the average of an int array at once using reduce
body: <p>I'm trying to calculate the average of an integer array using the reduce function in one step. I can't do this:</p>
  
  <pre><code>say (reduce {($^a + $^b)}, &lt;1 2 3&gt;) / &lt;1 2 3&gt;.elems;
  </code></pre>
  
  <p>because it calculates the average in 2 separate pieces.</p>
  
  <p>I need to do it like:</p>
  
  <pre><code>say reduce {($^a + $^b) / .elems}, &lt;1 2 3&gt;;
  </code></pre>
  
  <p>but it doesn't work of course. </p>
  
  <p>How to do it in one step? (Using map or some other function is welcomed.)</p>