You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

Rev

Required fields*

Rosetta Stone Challenge: What's Average Anyways?

The goal of a Rosetta Stone Challenge is to write solutions in as many languages as possible. Show off your programming multilingualism!

The Challenge

When people use the term "average," they generally mean the arithmetic mean, which is the sum of the numbers divided by the number of numbers. There are, however, many more meanings to the word "mean," including the harmonic mean, the geometric mean, the arithmetic mean, the quadratic mean, and the contraharmonic mean.

Your challenge is to write a program which inputs a list of numbers and outputs those 5 different means. Additionally, you are trying to write programs in as many languages as possible. You are allowed to use any sort of standard library function that your language has, since this is mostly a language showcase.

Input

Input will be a list of positive numbers.

1,2,3,4,5
1.7,17.3,3.14,24,2.718,1.618
8.6
3,123456
10.1381,29.8481,14.7754,9.3796,44.3052,22.2936,49.5572,4.5940,39.6013,0.9602
3,4,4,6.2,6.2,6.2

Output

Output will be the five means in the order listed above (harmonic, geometric, arithmetic, quadratic, contraharmonic). Conveniently, this is the same as increasing order.

2.18978,2.6052,3,3.31662,3.66667
3.01183,4.62179,8.41267,12.2341,17.7915
8.6,8.6,8.6,8.6,8.6
5.99985,608.579,61729.5,87296.6,123453.
5.95799,14.3041,22.5453,27.9395,34.6243
4.5551,4.74682,4.93333,5.10425,5.28108

There will be some reasonable leniency in I/O format, but I do want several decimal places of accuracy. Since I want floating-point output, you can assume floating-point input.

The Objective Winning Criterion

As for an objective winning criterion, here it is: Each language is a separate competition as to who can write the shortest entry, but the overall winner would be the person who wins the most of these sub-competitions. This means that a person who answers in many uncommon languages can gain an advantage. Code-golf is mostly a tiebreaker for when there is more than one solution in a language: the person with the shortest program gets credit for that language.

If there is a tie, the winner would be the person with the most second-place submissions (and so on).

Rules, Restrictions, and Notes

Your program can be written in any language that existed prior to September 2th, 2014. I will also have to rely on the community to validate some responses written in some of the more uncommon/esoteric languages, since I am unlikely to be able to test them.

Please keep all of your different submissions contained within a single answer.

Also, no shenanigans with basically the same answer in a slightly different language dialects. I will be the judge as to what submissions are different enough.

Current Leaderboard

This section will be periodically updated to show the number of languages and who is leading in each.

Algoid (337) - Beta Decay
APL (42) - algorithmshark
Awk (78) - Dennis
BBC BASIC (155) - Beta Decay
C (136) - Dennis
C++ (195) - Zeta
C# (197) - Martin Büttner
CJam (43) - Dennis
Clojure (324) - Michael Easter
Cobra (132) - Ourous
CoffeeScript (155) - Martin Büttner
Commodore BASIC (104) - Mark
Common Lisp (183) - DLosc
Erlang (401) - Mark
Fortran (242) - Kyle Kanos
Fortran 77 (286) - Beta Decay
GNU bc (78) - Dennis
GolfScript (83) - Dennis
Groovy (157) - Michael Easter
Haskell (140) - Zeta
J (28) - algorithmshark
Java (235) - Michael Easter
JavaScript (ES6) (112) - Dennis
JRuby (538) - Michael Easter
Julia (79) - Martin Büttner
Lua (113) - AndoDaan
Mathematica (65) - Martin Büttner
Matlab (63) - Martin Büttner
Octave (68) - Dennis
Openscript (849?) - COTO
Pascal (172) - Mark
Perl (76) - Grimy
PHP (135) - Dennis
POV-Ray 3.7 (304) - Mark
Prolog (235) - DLosc
Pyth (52) - Dennis
Python 2 (96) - Dennis
Python 3 (103) - DLosc
Q (53) - algorithmshark
Q'Nial (68) - algorithmshark
QBasic (96) - DLosc
R (91) - plannapus
Ruby (118) - Martin Büttner
Rust (469) - Vi.
Scala (230) - Michael Easter
T-SQL (122) - MickyT
TI-Basic (85) - Ypnypn
TypeScript (393) - rink.attendant.6
VBA (Excel) (387) - Stretch Maniac
wxMaxima (134) - Kyle Kanos

Current User Rankings

Dennis (10)
Martin Büttner (6)
Michael Easter (5)
Mark, DLosc, algorithmshark (4)
Beta Decay (3)
Zeta, Kyle Kanos (2)
Ourous, AndoDaan, COTO, Grimy, plannapus, Vi., MickyT, Ypnypn, rink.attendant.6, Stretch Maniac (1)

(If I made a mistake in the above rankings, let me know and I'll fix it. Also, the tiebreaker has not been applied yet.)

Answer*

If this is an answer to a challenge…

…Be sure to follow the challenge specification. However, please refrain from exploiting obvious loopholes. Answers abusing any of the standard loopholes are considered invalid. If you think a specification is unclear or underspecified, comment on the question instead.
…Try to optimize your score. For instance, answers to code-golf challenges should attempt to be as short as possible. You can always include a readable version of the code in addition to the competitive one. Explanations of your answer make it more interesting to read and are very much encouraged.
…Include a short header which indicates the language(s) of your code and its score, as defined by the challenge.

More generally…

…Please make sure to answer the question and provide sufficient detail.
…Avoid asking for help, clarification or responding to other answers (use comments instead).

Draft saved

Draft discarded

Edit Summary*

Cancel

\$\begingroup\$ Can you add the sample output for Java? How many decimal places of accuracy does it give compared to the output in OP? \$\endgroup\$

Michael Easter
– Michael Easter

2014年09月03日 09:21:05 +00:00
Commented Sep 3, 2014 at 9:21
\$\begingroup\$ Trivially shorter for TI-BASIC is {dim(Ans)/sum(Ansֿ¹),dim(Ans)√(prod(Ans)),mean(Ans),√(mean(Ans²)),mean(Ans²)/mean(Ans \$\endgroup\$

lirtosiast
– lirtosiast

2015年06月08日 01:56:47 +00:00
Commented Jun 8, 2015 at 1:56

Add a comment |

How to Edit

Correct minor typos or mistakes
Clarify meaning without changing it
Add related resources or links
Always respect the author’s intent
Don’t use edits to reply to the author

How to Format

create code fences with backticks ` or tildes ~
```
like so
```
add language identifier to highlight code
```python
def function(foo):
print(foo)
```
put returns between paragraphs
for linebreak add 2 spaces at end
_italic_ or **bold**
indent code by 4 spaces
backtick escapes `like _so_`
quote by placing > at start of line
to make links (use https whenever possible)

<https://example.com>

[example](https://example.com)

<a href="https://example.com">example</a>
MathJax equations \$\sin^2 \theta\$

formatting help »
answering help »

MathJax help »

How to Tag

A tag is a keyword or label that categorizes your question with other, similar questions. Choose one or more (up to 5) tags that will help answerers to find and interpret your question.

complete the sentence: my question is about...
use tags that describe things or concepts that are essential, not incidental to your question
favor using existing popular tags
read the descriptions that appear below the tag

If your question is primarily about a topic for which you can't find a tag:

combine multiple words into single-words with hyphens (e.g. code-golf), up to a maximum of 35 characters
creating new tags is a privilege; if you can't yet create a tag you need, then post this question without it, then ask the community to create it for you

popular tags »