กำหนดรูปสามเหลี่ยมสามด้านให้พื้นที่การพิมพ์ของรูปสามเหลี่ยมนี้

กรณีทดสอบ:

ใน: 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-char ดั้งเดิม: (%:@(+/**/@(+/-+:))%4:)

APL 21 20

ใช้อินพุตหน้าจอผ่าน←⎕

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

การป้อนข้อมูล: 2,3,4

เอาท์พุท: 2.90473750966

Mathematica 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

K, 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

ใช้สูตรของนกกระสา แต่ใช้ประโยชน์จาก vectorization ของ 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, และbc

Mathematica 20 16 หรือ22 18 bytes

บันทึกด้วย 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]);

useage:

php triangle.php
2,3,4

เอาท์พุท: 2.9047375096556

ฉันไม่คิดว่าฉันจะทำให้มันสั้นกว่านี้? ฉันยังใหม่กับการเล่นกอล์ฟ ทุกคนแจ้งให้เราทราบหากฉันมองข้ามบางสิ่ง

ขอบคุณ Primo ที่ช่วยฉันด้วย 1 ไบต์ฮ่า ๆ

JavaScript (84 86 )

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

โซลูชัน JavaScript อื่นตามสูตรของนกกระสา แต่ลองใช้วิธีอื่นในการโหลดตัวแปร จำเป็นต้องเรียกใช้จากคอนโซล แต่ละด้านถูกป้อนในพร้อมต์แยกต่างหาก

แก้ไข : ใช้ประโยชน์จากค่าส่งคืนของ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))

Japtap , 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 สองครั้ง

Julia 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

เริ่มจากสูตรประจำของ Heron ที่เขียนโดย Kenneth Hammond (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))

dc , 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;
}

ARBLEขนาด 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

ลองออนไลน์!

Stax , 10 ไบต์

╝0∞♀»♦▓y╩╪

เรียกใช้และแก้ไขข้อบกพร่อง

ดำเนินการอเนกประสงค์ของตัวเลขจุดลอย ใช้สูตรของเฮรอน

APL (NARS), 16 ตัวอักษร, 32 ไบต์

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

หนึ่งมีการแปลงสูตร Erone ถ้า 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