Biorąc pod uwagę trzy boki trójkąta, wydrukuj obszar tego trójkąta.

Przypadki testowe:

W: 2,3,4

Out: 2.90473750965556

W: 3,4,5

Out: 6

Załóżmy, że trzy strony a, b, c zawsze a> 0, b> 0, c> 0, a + b> c, b + c> a, c + a> b.

J, 23 19 znaków

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

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

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

Wersja 17-znakowa, jeśli wejście jest w i:4%~%:*/(+/,+/-+:)i

oryginalna wersja 23-znakowa: (%:@(+/**/@(+/-+:))%4:)

APL 21 20

Odbiera dane z ekranu za pomocą ← ⎕

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

Python 2, 53

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

Wejście: 2,3,4

Wynik: 2.90473750966

Mathematica 23

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

Python 57 bajtów

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

Korzystanie z formuły Herona .

Przykładowe użycie:

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

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

58-bajtowy wariant:

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

GolfScript, 38 znaków

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

Ponieważ pytanie nie określiło inaczej, zdecydowałem się pracować tylko na długościach całkowitych. Strony muszą być podane na STDIN oddzielone spacjami.

Przykład:

> 2 3 4
2.9047375096555625

K, 23

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

Przykład

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

APL, 23 20 znaków

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

Przykład:

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

R: 48 43 znaków

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

Korzystając również ze wzoru Herona, ale korzystając z wektoryzacji R.
Dzięki @flodel za pomysł na elipsę.

Stosowanie:

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]))

Nie dobrze, ale fajnie :) Również Czapla ... Demonstruje niemożność rozwiązywania prostych problemów w JS lol

Uwaga : uruchom z konsoli, aby zobaczyć wynik.

88-> 85: Usunięty a, bi c.

Mathematica 20 16 lub 22 18 bajtów

Z 4 bajtami zapisanymi przez @swish.

To zwraca dokładną odpowiedź:

Area@SSSTriangle@

Przykład

Area@SSSTriangle[2,3,4]

Aby zwrócić odpowiedź w postaci dziesiętnej, wymagane są dwa dodatkowe bajty.

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

2,90474

Haskell: 51 (27) znaków

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

Bardzo prosta implementacja formuły Herona. Przykładowy przebieg:

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

Zauważ, że akceptuje dowolne dane liczbowe, nie tylko liczby całkowite. A jeśli dane wejściowe są już w l, rozwiązanie musi mieć tylko 36 znaków, a jeśli nie jesteśmy zainteresowani wydrukowaniem odpowiedzi, rozwiązanie musi mieć tylko 30 znaków. Co więcej, jeśli możemy pozwolić sobie na zmianę formatu wejściowego, możemy usunąć jeszcze 3 znaki. Więc jeśli nasze dane wejściowe wyglądają na [2,3,4,0,0] i są już w l, możemy uzyskać odpowiedź tylko:

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

Przykładowy przebieg:

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]);

Wykorzystanie:

php triangle.php
2,3,4

Wynik: 2.9047375096556

Nie sądzę, że mogę to skrócić? Nadal jestem nowy w golfa. Daj mi znać, jeśli coś przeoczyłem.

Dzięki Primo za uratowanie mnie 1 bajt, lol.

JavaScript (84 86 )

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

Inne rozwiązanie JavaScript oparte na formule Herona, ale próbujące innego podejścia do ładowania zmiennych. Musi być uruchamiany z konsoli. Każda strona jest wprowadzana w osobnym monicie.

EDYCJA : Użyj wartości zwracanej, evalaby zapisać 2 znaki. Beats @tomsmeding, wahoo! :)

Excel, 42 bajty

Oparty na formule Herona, algebry szkolnej do golfa.

=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 bajtów

½*Nx
NmnU ×*U q

Sprawdź to

Zaoszczędzono 2 bajty dzięki ETH wskazującemu nadmiarową nową linię i kilka alternatywnych sposobów na zmniejszenie tablicy.

Tcl, 74 znaki.

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

Podaj boki jako argument.

Dla danych wejściowych 2 3 4wartością sjest (2+3+4)/2.ciąg znaków. Podwójna ocena FTW.

Julia 0.6.0, 48 bajtów

Zasadniczo formuła czapli:

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

TI-BASIC, 14 12 bajtów

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

Zaczynając od rutynowej formuły Herona napisanej przez Kennetha Hammonda (Weregoose) , grałem w golfa o dwa bajty. Zauważ, że TI-BASIC jest tokenizowany, a każdy token, jak Ansiprod( , ma jeden lub dwa bajty w pamięci kalkulatora.

Dane wejściowe Ansnp. W formularzu {a,b,c}:[program name].

Wyjaśniono:

                   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))

dc , 34 bajty

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

Wypróbuj online!

C (gcc) , 55 bajtów

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

Wypróbuj online!

Kolejna implementacja formuły Hero.

#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;
}

ARBLE , 36 bajtów

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

Formuła Herona.

Wypróbuj online!

Perl 5 -MList::Util=sum -ap , 40 bajtów

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

Wypróbuj online!

Stax , 10 bajtów

╝0∞♀»♦▓y╩╪

Uruchom i debuguj

Działa trzykrotnie liczb zmiennoprzecinkowych. Wykorzystuje formułę Herona

APL (NARS), 16 znaków, 32 bajty

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

Trzeba przekształcić wzór Erone, jeśli a, b, c są bokami trójkąta

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

na język APL ... test

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