Cho ba cạnh của một tam giác, diện tích in của tam giác này.

Các trường hợp thử nghiệm:

Trong: 2,3,4

Hết: 2.90473750965556

Trong: 3,4,5

Hết: 6

Giả sử ba cạnh a, b, c luôn a> 0, b> 0, c> 0, a + b> c, b + c> a, c + a> b.

J, 23 19 ký tự

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

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

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

Phiên bản 17-char nếu đầu vào ở i:4%~%:*/(+/,+/-+:)i

phiên bản 23-char gốc: (%:@(+/**/@(+/-+:))%4:)

APL 21 20

Đưa màn hình vào qua ←

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

Con trăn 2, 53

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

Đầu vào: 2,3,4

Đầu ra: 2.90473750966

Toán học 23

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

Python 57 byte

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

Sử dụng công thức của Heron .

Sử dụng mẫu:

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

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

Một biến thể 58 byte:

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

GolfScript, 38 ký tự

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

Vì câu hỏi không chỉ định nếu không, tôi đã chọn chỉ làm việc trên độ dài số nguyên. Các mặt phải được đưa ra trên STDIN cách nhau bởi khoảng trắng.

Thí dụ:

> 2 3 4
2.9047375096555625

K, 23

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

Thí dụ

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

APL, 23 20 ký tự

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

Thí dụ:

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

R: 48 43 ký tự

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

Cũng sử dụng công thức của Heron nhưng tận dụng lợi thế của vector hóa R.
Cảm ơn @flodel cho ý tưởng về dấu chấm lửng.

Sử dụng:

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

Không tốt nhưng vui vẻ :) Cũng là Heron ... Thể hiện sự vô dụng của các vấn đề đơn giản trong JS lol

Lưu ý : chạy từ bàn điều khiển để xem kết quả.

88-> 85: Removed a, bvà c.

Toán học 20 16 hoặc 22 18 byte

Với 4 byte được lưu bởi @swish.

Điều này trả về một câu trả lời chính xác:

Area@SSSTriangle@

Thí dụ

Area@SSSTriangle[2,3,4]

Để trả về câu trả lời ở dạng thập phân, cần có hai byte bổ sung.

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

2,90474

Haskell: 51 (27) ký tự

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

Việc thực hiện rất đơn giản công thức của Heron. Chạy ví dụ:

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

Lưu ý rằng nó chấp nhận bất kỳ đầu vào số nào, không chỉ số nguyên. Và nếu đầu vào đã có trong l, giải pháp chỉ cần dài 36 ký tự và nếu chúng ta không quan tâm đến việc in câu trả lời thì giải pháp chỉ cần dài 30 ký tự. Hơn nữa, nếu chúng ta có thể cho phép chính mình thay đổi định dạng đầu vào, chúng ta có thể xóa thêm 3 ký tự. Vì vậy, nếu đầu vào của chúng tôi trông giống như [2,3,4,0.0] và đã có trong l, chúng tôi chỉ có thể nhận được câu trả lời của mình:

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

Chạy ví dụ:

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

Sử dụng:

php triangle.php
2,3,4

Đầu ra: 2.9047375096556

Tôi không nghĩ rằng tôi có thể làm cho nó ngắn hơn? Tôi vẫn chưa quen với việc chơi golf. Bất cứ ai cho tôi biết nếu tôi bỏ qua một cái gì đó.

Cảm ơn Primo đã tiết kiệm cho tôi 1 byte, lol.

JavaScript (84 86 )

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

Một giải pháp JavaScript khác dựa trên công thức của Heron, nhưng thử một cách tiếp cận khác để tải các biến. Cần phải được chạy từ bàn điều khiển. Mỗi bên được nhập vào một dấu nhắc riêng biệt.

EDIT : Sử dụng giá trị trả về của evalđể lưu 2 ký tự. Nhịp đập @tomsmeding, wahoo! :)

Excel, 42 byte

Dựa trên công thức của Heron, đại số trung học để chơi gôn.

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

Ungolfed / Unacheebra'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 byte

½*Nx
NmnU ×*U q

Kiểm tra nó

Đã lưu 2 byte nhờ ETH chỉ ra một dòng mới dư thừa và một số cách khác để giảm mảng.

Tcl, 74 ký tự.

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

Vượt qua các bên như tranh luận.

Đối với đầu vào 2 3 4, giá trị slà (2+3+4)/2.dưới dạng chuỗi. Đánh giá kép FTW.

Julia 0,6.0, 48 byte

Về cơ bản công thức của diệc:

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

TI-BASIC, 14 12 byte

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

Bắt đầu từ thói quen Công thức của Heron được viết bởi Kenneth Hammond (Weregoose) , tôi đã đánh gôn hai byte. Lưu ý rằng TI-BASIC được mã hóa và mỗi mã thông báo, như Ansvà prod(, là một hoặc hai byte trong bộ nhớ của máy tính.

Nhập thông qua Anstức là trong mẫu {a,b,c}:[program name].

Giải thích:

                   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 byte

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

Hãy thử trực tuyến!

C (gcc) , 55 byte

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

Hãy thử trực tuyến!

Một cách thực hiện khác trong công thức của 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;
}

CẠNH , 36 byte

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

Công thức của Heron.

Hãy thử trực tuyến!

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

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

Hãy thử trực tuyến!

Stax , 10 byte

╝0∞♀»♦▓y╩╪

Chạy và gỡ lỗi nó

Vận hành bộ ba số dấu phẩy động. Sử dụng công thức của Heron

APL (NARS), 16 ký tự, 32 byte

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

Người ta phải chuyển công thức Erone nếu a, b, c là các cạnh của tam giác

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

sang ngôn ngữ APL ... kiểm tra

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