Averages/Pythagorean means: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix markup) |
|||
| Line 2,242: | Line 2,242: | ||
{{works with|Rakudo|2015.12}} |
{{works with|Rakudo|2015.12}} |
||
<lang |
<lang perl6>sub A { ([+] @_) / @_ } |
||
sub G { ([*] @_) ** (1 / @_) } |
sub G { ([*] @_) ** (1 / @_) } |
||
sub H { @_ / [+] 1 X/ @_ } |
sub H { @_ / [+] 1 X/ @_ } |
||