Дано три сторони трикутника, область друку цього трикутника.

Тестові приклади:

В: 2,3,4

Вихід: 2,90473750965556

В: 3,4,5

Вихід: 6

Припустимо, три сторони a, b, c завжди a> 0, b> 0, c> 0, a + b> c, b + c> a, c + a> b.

J, 23 19 символів

   (4%~2%:[:*/+/-0,+:)

   (4%~2%:[:*/+/-0,+:) 2 3 4
2.90474

   (4%~2%:[:*/+/-0,+:) 3,4,5
6

17-знакова версія, якщо введення i:4%~%:*/(+/,+/-+:)i

оригінальна 23-карткова версія: (%:@(+/**/@(+/-+:))%4:)

21 ЛІП 20

Здійснює введення екрана через ← ⎕

(×/(+/t÷2)-0,t←⎕)*.5

Пітон 2, 53

t=input()
s=a=sum(t)/2.
for x in t:a*=s-x
print a**.5

Вхід: 2,3,4

Вихід: 2.90473750966

Математика 23

√Times@@(+##/2-{0,##})&

Python 57 байт

a,b,c=input()
s=(a+b+c)*.5
print(s*(s-a)*(s-b)*(s-c))**.5

Використання формули Герона .

Використання зразка:

$ echo 2,3,4 | python triangle-area.py
2.90473750966

$ echo 3,4,5 | python triangle-area.py
6.0

Варіант 58 байт:

a,b,c=input()
print((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c))**.5/4

GolfScript, 38 символів

~].~++:d\{2*d\-*}/'"#{'\+'**0.5/4}"'+~

Оскільки питання не було визначено інакше, я вирішив працювати лише на цілі довжини. Сторони повинні бути вказані на STDIN, розділених пробілами.

Приклад:

> 2 3 4
2.9047375096555625

К, 23

{sqrt s**/(s:.5*+/x)-x}

Приклад

k){sqrt s**/(s:.5*+/x)-x} 2 3 4
2.904738

APL, 23 20 символів

{(×/(+/⍵÷2)-0,⍵)*÷2} 2 3 4

Приклад:

> {(×/(+/⍵÷2)-0,⍵)*÷2} 2 3 4
2.90474

R: 48 43 символи

f=function(...)prod(sum(...)/2-c(0,...))^.5

Використовуючи також формулу Герона, але скориставшись векторизацією R.
Завдяки @flodel за ідею еліпсису.

Використання:

f(2,3,4)
[1] 2.904738
f(3,4,5)
[1] 6

Javascript, 88 85

v=prompt().split(/,/g);s=v[0]/2+v[1]/2+v[2]/2;Math.sqrt(s*(s-v[0])*(s-v[1])*(s-v[2]))

Не добре, але весело :) Також чапля ... демонструє невирішеність простих проблем у JS lol

Примітка : запустіть з консолі, щоб побачити результат.

88-> 85: Вилучені a, bі c.

Mathematica 20 16 або 22 18 байт

З 4 байтами, збереженими @swish.

Це повертає точну відповідь:

Area@SSSTriangle@

Приклад

Area@SSSTriangle[2,3,4]

Щоб повернути відповідь у десятковій формі, потрібні два додаткові байти.

N@Area@SSSTriangle[2,3,4]

2.90474

Haskell: 51 (27) символів

readLn>>=(\l->print$sqrt$product$map(sum l/2-)$0:l)

Дуже пряма реалізація формули Герона. Приклад виконання:

Prelude> readLn>>=(\l->print$sqrt$product$map(sum l/2-)$0:l)
[2,3,4]
2.9047375096555625
Prelude>

Зауважте, що він приймає будь-яке числове введення, а не лише цілі числа. І якщо введення вже є l, рішення має бути лише 36 символів, а якщо ми не зацікавлені в друкуванні відповіді, рішення має бути лише 30 символів. Більше того, що якщо ми можемо дозволити собі змінити формат введення, ми можемо видалити ще 3 символи. Отже, якщо наш внесок виглядає як [2,3,4,0.0] і вже є l, ми можемо отримати відповідь лише:

sqrt$product$map(sum l/2-)l

Приклад виконання:

Prelude> let l = [2,3,4,0.0]
Prelude> sqrt$product$map(sum l/2-)l
2.9047375096555625
Prelude>

PHP, 78 77

<?=sqrt(($s=array_sum($c=fgetcsv(STDIN))/2)*($s-$c[0])*($s-$c[1])*$s-=$c[2]);

Використання:

php triangle.php
2,3,4

Вихід: 2.9047375096556

Я не думаю, що я можу скоротити її? Я все ще новачок у гольфі. Хто-небудь дасть мені знати, якщо я щось пропустив.

Дякую Примо, що врятував мене 1 байт, лол.

JavaScript (84 86 )

s=(eval('abc '.split('').join('=prompt()|0;'))+a+b)/2;Math.sqrt(s*(s-a)*(s-b)*(s-c))

Ще одне рішення JavaScript, засноване на формулі Герона, але намагається інший підхід для завантаження змінних. Потрібно запустити з консолі. Кожна сторона вводиться в окремому підказці.

EDIT : Використовуйте повернене значення, evalщоб зберегти 2 символи. Удари @tomsmeding, wahoo! :)

Excel, 42 байти

Спираючись на формулу Герона, середня шкільна алгебра з гольфу.

=SQRT(((A1+B1)^2-C1^2)*(C1^2-(A1-B1)^2))/4

Ungolfed / Unalgebra'ed

=SQRT((A1+B1+C1)/2*(((A1+B1+C1)/2)-A1)*(((A1+B1+C1)/2)-B1)*(((A1+B1+C1)/2)-C1))

Japt , 17 16 15 байт

½*Nx
NmnU ×*U q

Перевірте це

Збережено 2 байти завдяки ETH, що вказує на надмірний новий рядок та деякі альтернативні способи зменшення масиву.

Tcl, 74 ч.

proc R {a b c} {set s ($a+$b+$c)/2.
expr sqrt($s*($s-$a)*($s-$b)*($s-$c))}

Передайте сторони як аргумент.

Для вхідного 2 3 4значення значення sдорівнює (2+3+4)/2.як рядок. Подвійна оцінка FTW.

Джулія 0,6,0, 48 байт

В основному формула чаплі:

f(a,b,c)=(p=(a+b+c)/2;sqrt(p*(p-a)*(p-b)*(p-c)))

TI-BASIC, 14 12 байт

4⁻¹√(sum(Ansprod(sum(Ans)-2Ans

Починаючи з розпорядку формули Герона написаного Кеннетом Хаммоном (Weregoose) , я зіграв у два байти. Зауважте, що TI-BASIC є токенізованим, і кожен маркер, як Ansіprod( , є одним або двома байтами в пам'яті калькулятора.

Введіть через Ansтобто форму {a,b,c}:[program name].

Пояснили:

                   sum(Ans)-2*Ans   (a+b+c)-2{a,b,c}={b+c-a,c+a-b,a+b-c}
          Ans*prod(                 {a,b,c}*(b+c-a)(c+a-b)(a+b-c)
      sum(                          (a+b+c)(b+c-a)(c+a-b)(a+b-c)
4⁻¹*√(                              √((a+b+c)(b+c-a)(c+a-b)(a+b-c)/16)
                                    =√(s(s-a)(s-b)(s-c))

постійного струму , 34 байти

9ksssddlsld++2/d3R-rdls-rdld-***vp

Спробуйте в Інтернеті!

C (gcc) , 55 байт

#define f(a,b,c)sqrt((a+b+c)*(a+b-c)*(a-b+c)*(b+c-a))/4

Спробуйте в Інтернеті!

Ще одна реалізація формули Героя.

#include<stdio.h>
#include<math.h>
main()
{
  double a,b,c,s,area;
  scanf("%d %d %d" &a,&b,&c);
  s=sqrt((a*a)+(b*b)+(c*c));
  area=[sqrt(s*(s-a)*(s-b)*(s-c))]/2;
}

АРБЛЯ , 36 байт

sqrt(a*(a-b)*(a-c)*(a-d))((b+c+d)/2)

Формула Герона.

Спробуйте в Інтернеті!

Perl 5 -MList::Util=sum -ap , 40 байт

$r=$t=.5*sum@F;map$r*=$t-$_,@F;$_=sqrt$r

Спробуйте в Інтернеті!

Стакс , 10 байт

╝0∞♀»♦▓y╩╪

Запустіть і налагоджуйте його

Оперує трійками чисел з плаваючою комою. Використовує формулу чаплі

APL (NARS), 16 символів, 32 байти

{√×/(+/⍵÷2)-0,⍵}

Формулу Ерона треба провести по центру, якщо a, b, c - сторони трикутника

p   =(a+b+c)/2 
Area=√p*(p-a)(p-b)(p-c)

на мову APL ... тест

  f←{√×/(+/⍵÷2)-0,⍵}
  f 2 3 4
2.90473751
  f 3 4 5
6