O objetivo do Rosetta Stone Challenge é escrever soluções no maior número possível de idiomas. Mostre seu multilinguismo de programação!
O desafio
Quando as pessoas usam o termo "média", geralmente significam a média aritmética, que é a soma dos números divididos pelo número de números. Há, no entanto, muitos outros significados para a palavra "média", incluindo a média harmônica , a média geométrica , a média aritmética , a média quadrática e a média contra- harmônica .
Seu desafio é escrever um programa que insira uma lista de números e produza esses 5 meios diferentes. Além disso, você está tentando escrever programas no maior número possível de idiomas . Você tem permissão para usar qualquer tipo de função de biblioteca padrão que seu idioma possua, pois essa é principalmente uma demonstração de idioma.
Entrada
A entrada será uma lista de números positivos.
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
Saída
A saída será as cinco médias na ordem listada acima (harmônica, geométrica, aritmética, quadrática, contra-harmônica). Convenientemente, isso é o mesmo que aumentar a ordem.
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
Haverá alguma tolerância razoável no formato de E / S, mas quero várias casas decimais de precisão. Como eu quero saída de ponto flutuante, você pode assumir a entrada de ponto flutuante.
O Critério de Vencimento Objetivo
Quanto a um critério de vitória objetivo, aqui está: Cada idioma é uma competição separada sobre quem pode escrever a entrada mais curta, mas o vencedor geral será a pessoa que vencer a maioria dessas subcompetições. Isso significa que uma pessoa que responde em muitos idiomas incomuns pode obter uma vantagem. O código-golfe é principalmente um desempate para quando há mais de uma solução em um idioma: a pessoa com o programa mais curto recebe crédito por esse idioma.
Se houver empate, o vencedor será a pessoa com o maior número de finalizações em segundo lugar (e assim por diante).
Regras, restrições e notas
Seu programa pode ser escrito em qualquer idioma que existia antes de 2 de setembro de 2014. Também terei que confiar na comunidade para validar algumas respostas escritas em alguns dos idiomas mais incomuns / esotéricos, pois é improvável que eu possa testar eles.
Mantenha todos os seus diferentes envios contidos em uma única resposta.
Além disso, não há travessuras com basicamente a mesma resposta em um dialeto de idioma ligeiramente diferente. Eu serei o juiz sobre quais submissões são diferentes o suficiente.
Classificação atual
Esta seção será atualizada periodicamente para mostrar o número de idiomas e quem lidera em cada um.
- Algoid (337) - Deterioração beta
- APL (42) - algoritmshark
- Awk (78) - Dennis
- BBC BASIC (155) - Deterioração beta
- C (136) - Dennis
- C ++ (195) - Zeta
- C # (197) - Martin Büttner
- CJam (43) - Dennis
- Clojure (324) - Michael Páscoa
- Cobra (132) - Ourous
- CoffeeScript (155) - Martin Büttner
- Commodore BASIC (104) - Marca
- Lisp comum (183) - DLosc
- Erlang (401) - Mark
- Fortran (242) - Kyle Kanos
- Fortran 77 (286) - Decaimento Beta
- GNU bc (78) - Dennis
- GolfScript (83) - Dennis
- Groovy (157) - Michael Páscoa
- Haskell (140) - Zeta
- J (28) - algoritmos
- Java (235) - Michael Páscoa
- JavaScript (ES6) (112) - Dennis
- JRuby (538) - Michael Páscoa
- Julia (79) - Martin Büttner
- Lua (113) - AndoDaan
- Mathematica (65) - Martin Büttner
- Matlab (63) - Martin Büttner
- Oitava (68) - Dennis
- Openscript (849?) - COTO
- Pascal (172) - Marcos
- Perl (76) - Sujo
- PHP (135) - Dennis
- POV-Ray 3.7 (304) - Marca
- Prolog (235) - DLosc
- Pitão (52) - Dennis
- Python 2 (96) - Dennis
- Python 3 (103) - DLosc
- Q (53) - algoritmshark
- Q'Nial (68) - algoritmshark
- QBasic (96) - DLosc
- R (91) - plannapus
- Rubi (118) - Martin Büttner
- Ferrugem (469) - Vi.
- Scala (230) - Michael Páscoa
- T-SQL (122) - MickyT
- TI-Básico (85) - Ypnypn
- TypeScript (393) - rink.attendant.6
- VBA (Excel) (387) - maníaco por alongamento
- wxMaxima (134) - Kyle Kanos
Classificação do usuário atual
- Dennis (10)
- Martin Büttner (6)
- Michael Easter (5)
- Mark, DLosc, algoritmshark (4)
- Deterioração beta (3)
- Zeta, Kyle Kanos (2)
- Ourous, AndoDaan, COTO, Grimy, plannapus, Vi., MickyT, Ypnypn, rink.attendant.6, Stretch Maniac (1)
(Se eu cometi um erro nas classificações acima, informe-me e eu o corrigirei. Além disso, o desempate ainda não foi aplicado.)
(a-b)/ln(a/b)
. Admito que só hoje descobri como ele se generaliza para um conjunto de amostras de mais de dois :-) en.wikipedia.org/wiki/Logarithmic_mean
bc
, você considera awk
"idiomas" ou "comandos" - então as diferentes maneiras de implementar isso a partir de um shell são contadas em idiomas diferentes?