Целью Rosetta Stone Challenge является написание решений на максимально возможном количестве языков. Покажите свое программирование многоязычия!
Соревнование
Когда люди используют термин «среднее», они обычно означают среднее арифметическое, которое представляет собой сумму чисел, деленную на число чисел. Есть, однако, гораздо больше значения к слову «среднее» , включая гармоническое среднее , в среднем геометрическом , на среднем арифметическом , в среднем квадратичном , и contraharmonic среднего .
Ваша задача - написать программу, которая вводит список чисел и выводит эти 5 различных средств. Кроме того, вы пытаетесь писать программы на максимально возможном количестве языков . Вам разрешается использовать любую стандартную библиотечную функцию, имеющуюся в вашем языке, поскольку это в основном демонстрация языка.
вход
На входе будет список положительных чисел.
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
Выход
Выходными данными будут пять средних в указанном выше порядке (гармоническое, геометрическое, арифметическое, квадратичное, контрагармоническое). Удобно, это то же самое, что и увеличение порядка.
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
Будет некоторое разумное снисхождение в формате ввода / вывода, но я действительно хочу несколько десятичных знаков точности. Поскольку я хочу вывод с плавающей запятой, вы можете предполагать ввод с плавающей запятой.
Объективный критерий победы
Что касается объективного критерия выигрыша, то вот он: каждый язык - это отдельное соревнование в отношении того, кто может написать самую короткую запись, но общим победителем будет тот, кто выиграет большинство из этих субконкурсов. Это означает, что человек, который отвечает на многих необычных языках, может получить преимущество. Code-golf - это, в основном, тай-брейк, когда на языке существует более одного решения: человек с самой короткой программой получает кредит на этом языке.
Если будет ничья, победителем станет тот, у кого больше всего постов (и т. Д.).
Правила, ограничения и примечания
Ваша программа может быть написана на любом языке, существовавшем до 2 сентября 2014 года. Мне также придется полагаться на сообщество для проверки некоторых ответов, написанных на некоторых из более необычных / эзотерических языков, поскольку я вряд ли смогу протестировать их.
Пожалуйста, сохраняйте все ваши различные материалы, содержащиеся в одном ответе.
Кроме того, нет махинаций с в основном одинаковым ответом на несколько разных языковых диалектах. Я буду судить о том, какие представления достаточно разные.
Текущий список лидеров
Этот раздел будет периодически обновляться, чтобы показать количество языков и лидирующих в каждом.
- Алгоид (337) - бета-распад
- APL (42) - алгоритм
- Авк (78) - Денис
- BBC BASIC (155) - бета-распад
- С (136) - Деннис
- С ++ (195) - дзета
- C # (197) - Мартин Бюттнер
- CJam (43) - Деннис
- Clojure (324) - Майкл Пасха
- Кобра (132)
- CoffeeScript (155) - Мартин Бюттнер
- Коммодор Бейсик (104) - Марк
- Common Lisp (183) - DLosc
- Эрланг (401) - Марк
- Фортран (242) - Кайл Канос
- Фортран 77 (286) - бета-распад
- GNU bc (78) - Денис
- GolfScript (83) - Деннис
- Groovy (157) - Майкл Пасха
- Хаскелл (140) - Зета
- J (28) - алгоритм
- Ява (235) - Майкл Пасха
- JavaScript (ES6) (112) - Денис
- JRuby (538) - Майкл Пасха
- Юлия (79) - Мартин Бюттнер
- Луа (113) - AndoDaan
- Математика (65) - Мартин Бюттнер
- Матлаб (63) - Мартин Бюттнер
- Октава (68) - Деннис
- Openscript (849?) - COTO
- Паскаль (172) - Марк
- Perl (76) - Grimy
- PHP (135) - Деннис
- POV-Ray 3,7 (304) - Марк
- Пролог (235) - DLosc
- Пиф (52) - Денис
- Питон 2 (96) - Денис
- Питон 3 (103) - DLosc
- Q (53) - алгоритм
- Q'Nial (68) - алгоритм
- QBasic (96) - DLosc
- R (91) - планапус
- Рубин (118) - Мартин Бюттнер
- Руст (469) - Vi.
- Скала (230) - Майкл Пасха
- T-SQL (122) - MickyT
- TI-Basic (85) - Ипныпн
- TypeScript (393) - rink.attendant.6
- VBA (Excel) (387) - эластичный маньяк
- wxMaxima (134) - Кайл Канос
Рейтинг текущих пользователей
- Деннис (10)
- Мартин Бюттнер (6)
- Майкл Пасха (5)
- Марк, DLosc, алгоритм алгоритма (4)
- Бета-распад (3)
- Зета, Кайл Канос (2)
- Ourous, AndoDaan, COTO, Grimy, plannapus, Vi., MickyT, Ypnypn, rink.attendant.6, Stretch Maniac (1)
(Если я допустил ошибку в приведенном выше рейтинге, дайте мне знать, и я исправлю это. Кроме того, тай-брейк еще не применен.)
(a-b)/ln(a/b)
. Я признаю, что только сегодня я узнал, как это обобщается на выборочный набор из более чем двух :-) en.wikipedia.org/wiki/Logarithmic_mean
bc
и awk
т. Д. «Языками» или «командами», - можно ли считать разные способы реализации этого из оболочки на разных языках?