Bir üçgenin üç tarafı göz önüne alındığında, bu üçgenin yazdırma alanı.

Test senaryoları:

İçinde: 2,3,4

Çıkan: 2.90473750965556

İçinde: 3,4,5

Çıkan: 6

Üç tarafın a, b, c daima a> 0, b> 0, c> 0, a + b> c, b + c> a, c + a> b olduğunu varsayın.

J, 23 19 karakter

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

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

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

Giriş ise 17 karakterlik sürüm i:4%~%:*/(+/,+/-+:)i

orijinal 23 karakterlik sürüm: (%:@(+/**/@(+/-+:))%4:)

APL 21 20

← ⎕ üzerinden ekran girişi yapar

(×/(+/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

Giriş: 2,3,4

Çıktı: 2.90473750966

Mathematica 23

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

Python 57 bayt

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

Heron Formülü'nü kullanarak .

Örnek kullanım:

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

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

58 baytlık bir varyant:

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

GolfScript, 38 karakter

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

Soru aksi belirtilmediği için sadece tamsayı uzunluklarında çalışmayı seçtim. Taraflar boşluklarla ayrılmış STDIN üzerinde verilmelidir.

Misal:

> 2 3 4
2.9047375096555625

K, 23

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

Misal

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

APL, 23 20 karakter

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

Misal:

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

R: 48 43 karakter

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

Heron'un formülünü de kullanmak, ancak R'nin vektörleşmesinden faydalanmak.
Üç nokta fikri için @ flodel'e teşekkürler.

Kullanımı:

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

İyi değil ama eğlenceli :) Ayrıca Heron ... JS lol basit sorunların çözülemezliğini gösterir

Not : sonucu görmek için konsoldan çalıştırın.

88-> 85: Kaldırılması a, bve c.

Mathematica 20 16 veya 22 18 bayt

@Swish tarafından kaydedilen 4 bayt ile.

Bu kesin bir cevap verir:

Area@SSSTriangle@

Misal

Area@SSSTriangle[2,3,4]

Cevabı ondalık biçimde döndürmek için iki ek bayt gerekir.

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

2,90474

Haskell: 51 (27) karakter

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

Heron formülünün çok basit bir uygulaması. Örnek çalışma:

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

Yalnızca tamsayıları değil, herhangi bir sayısal girişi kabul ettiğini unutmayın. Ve eğer giriş zaten l ise çözümün sadece 36 karakter uzunluğunda olması gerekiyorsa ve cevabı yazdırmak istemiyorsak, çözümün sadece 30 karakter uzunluğunda olması gerekir. Dahası, giriş biçimini değiştirmemize izin verebilirsek, 3 karakteri daha kaldırabiliriz. Yani girdimiz [2,3,4,0.0] gibi görünüyorsa ve zaten l ise, cevabımızı sadece şu şekilde alabiliriz:

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

Örnek çalışma:

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

kullanımı:

php triangle.php
2,3,4

Çıktı: 2.9047375096556

Daha kısa yapabileceğimi sanmıyorum? Hâlâ golf oynama konusunda yeniyim. Bir şey göz ardı edersem herkes bana haber verdi.

Beni 1 bayt kurtardığın için teşekkürler Primo, lol.

JavaScript (84 86 )

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

Heron'un formülüne dayanan, ancak değişkenleri yüklemek için farklı bir yaklaşım deneyen başka bir JavaScript çözümü. Konsoldan çalıştırılması gerekiyor. Her taraf ayrı bir isteme girilir.

EDIT : eval2 karakter kaydetmek için dönüş değerini kullanın . @Tomsmeding yener, wahoo! :)

Excel, 42 bayt

Heron'un formülüne dayanan lise golfü cebiridir.

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

Kurtulmamış / Cebirsiz

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

Japt , 17 16 15 bayt

½*Nx
NmnU ×*U q

Dene

ETH , gereksiz bir yeni satıra ve diziyi azaltmanın bazı alternatif yollarına işaret ederek 2 bayt tasarruf etti.

Tcl, 74 karakter.

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

Tarafları argüman olarak iletin.

Girişi için 2 3 4değeri solan (2+3+4)/2.dize olarak. Çift değerlendirme FTW.

Julia 0.6.0, 48 bayt

Temelde balıkçıl formülü:

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

TI-BASIC, 14 12 bayt

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

Kenneth Hammond (Weregoose) tarafından yazılan Heron'un Formula rutininden başlayarak iki bayt çıkardım. TI-BASIC simgeleþtirilmiþ ve benzeri her belirteç olduğunu Not Ansve prod(, hesap makinesinin belleğinde bir veya iki bayt.

AnsYani formda girdi{a,b,c}:[program name] .

Açıklaması:

                   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 bayt

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

Çevrimiçi deneyin!

C (gcc) , 55 bayt

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

Çevrimiçi deneyin!

Yet another implementation of Hero's formula.

#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 bytes

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

Heron's formula.

Try it online!

Perl 5 -MList::Util=sum -ap, 40 bytes

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

Try it online!

Stax, 10 bytes

╝0∞♀»♦▓y╩╪

Run and debug it

Operates triples of floating point numbers. Uses Heron's Formula

APL(NARS), 16 chars, 32 bytes

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

One has to cenvert the Erone formula if a, b, c are sides of triangle

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

to APL language... test

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