อีกหนึ่งความท้าทายที่ง่ายสำหรับคุณ

งานของคุณ

เขียนโปรแกรมหรือฟังก์ชั่นที่รับอินพุตซึ่งมี x- และ y-พิกัด 3 คู่และคำนวณพื้นที่ของสามเหลี่ยมที่เกิดขึ้นภายใน สำหรับผู้ที่ไม่สามารถจำวิธีการคำนวณนั้นคุณสามารถค้นหาได้ที่นี่

ตัวอย่าง:

1,2,4,2,3,7       # input as x1,y1,x2,y2,x3,y3
7.5               # output

ดูได้ที่Wolfram Alpha

ข้อควรพิจารณาบางประการ:

• อินพุตจะเป็นจำนวนเต็มหกฐาน 10 จำนวนเต็มหกฐาน
• คุณอาจจะสมมติใส่เป็นในรูปแบบที่เหมาะสมใด ๆ
• คะแนนจะเป็นรูปสามเหลี่ยมที่ถูกต้องเสมอ
• tคุณสามารถสันนิษฐานได้ว่าการป้อนข้อมูลจะถูกจัดเก็บอยู่ในตัวแปรเช่น
• รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ!

แก้ไข: เพื่อหลีกเลี่ยงความสับสนใด ๆ ฉันได้ลดความซับซ้อนของวิธีการป้อนข้อมูลโดยไม่ทำลายรหัสปัจจุบันใด ๆ

โปรดจำไว้ว่าโปรแกรม / ฟังก์ชั่นของคุณจะต้องออกพื้นที่ที่ถูกต้องดังนั้นจึงไม่สามารถให้จำนวนลบเป็นเอาท์พุท

CJam, 18 16 ไบต์

T(f.-~(+.*:-z.5*

ลองใช้ออนไลน์ในล่าม CJam

ความคิด

ตามที่กล่าวถึงในWikipediaพื้นที่ของรูปสามเหลี่ยม[[0 0] [x y] [z w]]สามารถคำนวณ|det([[x y] [z w]])| / 2 = |xw-yz| / 2ได้ดังนี้

สำหรับสามเหลี่ยมทั่วไป[[a b] [c d] [e f]]เราสามารถแปลจุดยอดแรกเป็นจุดกำเนิดได้เพื่อให้ได้สามเหลี่ยม[[0 0] [c-a d-b] [e-a f-b]]ซึ่งสามารถคำนวณพื้นที่โดยสูตรด้านบน

รหัส

T                  e# Push T.
                   e# [[a b] [c d] [e f]]
   (               e# Shift out the first pair.
                   e# [[c d] [e f]] [a b]
    f.-            e# For [c d] and [e f], perform vectorized
                   e# subtraction with [a b].
                   e# [[c-a d-b] [e-a f-b]]
       ~           e# Dump the array on the stack.
                   e# [c-a d-b] [e-a f-b]
        (+         e# Shift and append. Rotates the second array.
                   e# [c-a d-b] [f-b e-a]
          .*       e# Vectorized product.
                   e# [(c-a)(f-b) (d-b)(e-a)]
            :-     e# Reduce by subtraction.
                   e# (c-a)(f-b) - (d-b)(e-a)
              z    e# Apply absolute value.
                   e# |(c-a)(f-b) - (d-b)(e-a)|
               .5* e# Multiply by 0.5.
                   e# |(c-a)(f-b) - (d-b)(e-a)| / 2

Mathematica ขนาด 27 ไบต์

Area@Polygon@Partition[t,2]

JavaScript (ES6) 42 .44

แก้ไขรูปแบบการป้อนข้อมูลมีการเปลี่ยนแปลงฉันสามารถบันทึก 2 ไบต์

ฟังก์ชันที่ไม่ระบุชื่อที่รับอาร์เรย์เป็นพารามิเตอร์และส่งคืนค่าที่คำนวณได้

(a,b,c,d,e,f)=>(a*(d-f)+c*(f-b)+e*(b-d))/2

ทดสอบการเรียกใช้ตัวอย่างข้อมูลด้านล่างในเบราว์เซอร์ที่สอดคล้องกับ EcmaScript 6

f=(a,b,c,d,e,f)=>(a*(d-f)+c*(f-b)+e*(b-d))/2

function test()
{
  var v=I.value.match(/\d+/g)
  I.value = v
  R.innerHTML=f(...v)
}

<input id=I onchange="test()"><button onclick="test()">-></button><span id=R></span>

จูเลีย 32 ไบต์

abs(det(t[1:2].-t[[3 5;4 6]]))/2

สร้างเมทริกซ์ของเงื่อนไขที่เหมาะสมของผลิตภัณฑ์ข้ามใช้detเพื่อรับค่าผลลัพธ์ใช้ค่าสัมบูรณ์เพื่อจัดการกับเนกาทีฟแล้วหารด้วย 2 เพราะมันเป็นรูปสามเหลี่ยมและไม่ใช่รูปสี่เหลี่ยมด้านขนาน

Matlab / Octave ขนาด 26 ไบต์

ฉันไม่รู้เกี่ยวกับสิ่งนี้ในตัว =)

polyarea(t(1:2:5),t(2:2:6))

Java, 79 88 ไบต์

float f(int[]a){return Math.abs(a[0]*(a[3]-a[5])+a[2]*(a[5]-a[1])+a[4]*(a[1]-a[3]))/2f;}

เพียงใช้สูตรพื้นฐานไม่มีอะไรพิเศษ

แก้ไข: ลืมใช้ค่าสัมบูรณ์ :(

Minkolang 0.8 , 34 ไบต์

ndndn0g-n1g-n0g-n0g-1R*1R*-$~2$:N.

ทุกคนต้องการ egg- บางn0g?

คำอธิบาย

ตรงไปตรงมามาก |(x2-x1)(y3-y1) - (x3-x1)(y2-y1)|/2ใช้สูตร

nd      x1, x1
nd      x1, x1, y1, y1
n0g-    x1, y1, y1, x2-x1
n1g-    x1, y1, x2-x1, y2-y1
n0g-    y1, x2-x1, y2-y1, x3-x1
n0g-    x2-x1, y2-y1, x3-x1, y3-y1
1R*     y3-y1, x2-x1, (y2-y1)(x3-x1)
1R*     (y2-y1)(x3-x1), (y3-y1)(x2-x1)
-       (y2-y1)(x3-x1) - (y3-y1)(x2-x1)
$~      |(y2-y1)(x3-x1) - (y3-y1)(x2-x1)|
2$:     |(y2-y1)(x3-x1) - (y3-y1)(x2-x1)|/2 (float division)
N.      Output as integer and quit.

JayScript 58 ไบต์

ประกาศฟังก์ชั่นที่ไม่ระบุชื่อ:

function(a,b,c,d,e,f){return (a*(d-f)+c*(f-b)+e*(b-d))/2};

ตัวอย่าง:

var nFunct = function(a,b,c,d,e,f){return (a*(d-f)+c*(f-b)+e*(b-d))/2};
print(nFunct(1,2,4,2,3,7));

ทับทิม, 45

->a,b,p,q,x,y{((a-x)*(q-y)-(p-x)*(b-y)).abs/2}

PHP - 68 88 89ไบต์

ขอบคุณ Martjin สำหรับพอยน์เตอร์ที่ยอดเยี่ยม!

<?=.5*abs(($t[1]-$t[5])*($t[4]-$t[2])-($t[1]-$t[3])*($t[6]-$t[2]))?>

หากต้องการใช้งานให้สร้างไฟล์ area.phpมีเนื้อหานี้บรรทัดเพิ่มเติมตรงตามข้อมูลที่บันทึกไว้ในtส่วนตัวแปรของข้อมูลจำเพาะและ␍ที่ส่วนท้ายจะเพิ่มการขึ้นบรรทัดใหม่เพื่อให้เอาต์พุตดีและแยกออก:

<?php $t = $argv; ?>
<?=.5*abs(($t[1]-$t[5])*($t[4]-$t[2])-($t[1]-$t[3])*($t[6]-$t[2]))?>
␍

จากนั้นให้ระบุพิกัดบนบรรทัดคำสั่งx₁ y₁ x₂ y₂ x₃ y₃เช่น

$ php area.php 1 2 4 2 3 7
7.5

Pyth, 34 30 ไบต์

KCcQ2c.asm*@hKd-@eKhd@eKtdU3 2

ลองออนไลน์

ทำงานโดยการคำนวณ abs (a * (df) + c * (fb) + e * (bd)) / 2 จากอินพุต a, b, c, d, e, f

R, 37 ไบต์

cat(abs(det(rbind(matrix(t,2),1))/2))

แปลงเวกเตอร์ของพิกัดเป็นเมทริกซ์และ tacks ในแถวที่ 1
คำนวณดีเทอร์มิแนนต์และหารด้วย 2
ส่งคืนผลลัพธ์แบบสัมบูรณ์ หากการสั่งซื้อตามเข็มนาฬิกาอยู่เสมอabsจะไม่จำเป็น

> t = c(1,2,4,2,3,7)
> cat(det(rbind(matrix(t,2),1))/2)
7.5

Python 2, 48 47 50 ไบต์

ง่ายมาก; ตามสมการมาตรฐาน:

lambda a,b,c,d,e,f:abs(a*(d-f)+c*(f-b)+e*(b-d))/2.

วิธีอื่น ๆ ที่คล้ายกันนั้นมีความยาวมากกว่า:

def a(a,b,c,d,e,f):return abs(a*(d-f)+c*(f-b)+e*(b-d))/2. # 57
lambda t:abs(t[0]*(t[3]-t[5])+t[2]*(t[5]-t[1])+t[4]*(t[1]-t[3]))/2. # 67
def a(t):return abs(t[0]*(t[3]-t[5])+t[2]*(t[5]-t[1])+t[4]*(t[1]-t[3]))/2. # 74

การเข้าถึง Python ไปยังฟังก์ชันที่กำหนดได้ผ่าน numpy

ขอบคุณmuddyfishสำหรับ 1 ไบต์และxnorสำหรับการจับข้อผิดพลาด

PHP, 77

จากคำตอบของ @Yimin Rong ฉันรู้สึกว่าฉันสามารถปรับปรุงให้ดีขึ้นได้ด้วยการใช้เพียงไม่กี่ไบต์list()แทนที่จะใช้$argvคำสั่งสั้น ๆ เพื่อย่อตัวแปรบางตัว นอกจากนี้ยังechoไม่จำเป็นต้องใช้พื้นที่ถ้ามีตัวคั่นระหว่างก้องและสิ่งที่ถูกสะท้อน

echo$variable;, echo(4+2);และecho'some string';ใช้ได้อย่างเท่าเทียมกันในขณะที่echofunction($variable) PHP สับสน

ในทางกลับกันฉันยังเพิ่มabs()ความแม่นยำทางคณิตศาสตร์ด้วยเนื่องจากการรวมกันของจุดยอดบางอย่างให้ "พื้นที่เชิงลบ"

list($t,$a,$b,$c,$d,$e,$f)=$argv;echo.5*abs(($a-$e)*($d-$b)-($a-$c)*($f-$b));

คุณสามารถเรียกใช้ผ่าน CLI

php -r "list($t,$a,$b,$c,$d,$e,$f)=$argv;echo.5*abs(($a-$e)*($d-$b)-($a-$c)*($f-$b));" 1 2 4 2 3 7
7.5

AWK - 51 42ไบต์

AWK ไม่มีอุปกรณ์ในตัวabsเพื่อใช้sqrt(x^2)ทดแทน

{print sqrt((($1-$5)*($4-$2)-($1-$3)*($6-$2))^2)/2}

บันทึกเป็นarea.awkและใช้เป็นecho x₁ y₁ x₂ y₂ x₃ y₃ | awk -f area.awkเช่น

$ echo 1 2 4 2 3 7 | awk -f area.awk
7.5

PowerShell, 70 ไบต์

[math]::Abs(($t[0]-$t[4])*($t[3]-$t[1])-($t[0]-$t[2])*($t[5]-$t[1]))/2

ใช้สูตรมาตรฐานเดียวกันกับโซลูชันอื่น ๆ ต่อคำถามที่ถือว่าอาร์เรย์เป็น $t=(1,2,4,2,3,7)pre-ประชากรเช่น แต่ooof , $และ[]ไวยากรณ์จะฆ่าอันนี้หรือไม่ ...

กระแสตรง , 52 ไบต์

ถือว่าอินพุตอยู่ในการลงทะเบียนt เป็น: x1 y1 x2 y2 x3 y3โดยx1ที่ด้านบนสุดของtสแต็ก

1kLtLtsaLtsbLtdscLtltrlalclbltla-*sd-*se-*leld++2/p

1 2 4 2 3 7stStStStStSt #puts coordinates into register t (closest thing dc has to variables) 1kLtLtsaLtsbLtdscLtltrlalclbltla-*sd-*se-*leld++2/p 7.5

สิ่งนี้ใช้สูตรต่อไปนี้สำหรับพื้นที่:

(x1(y2-y3) + x2(y3-y1) + x3(y1 - y2))/2

และสำหรับการแยกย่อยของกระบวนการอย่างรวดเร็ว:

• 1k Lt Lt sa Lt sb Lt d sc Lt lt r: ความแม่นยำทศนิยมชุดไปยังสถานที่ 1, ชิ้นส่วนย้ายของสแต็คในtการกองหลักและย้ายส่วนต่างๆของกองหลักในการลงทะเบียนอื่น ๆ สำหรับการจัดเก็บ ( dซ้ำด้านบนของสแต็หลักrกลับด้านบนสององค์ประกอบของสแต็หลักL/lย้าย / คัดลอกจากการลงทะเบียนที่กำหนดไปยังหลักsย้ายด้านบนสุดของสแต็กหลักไปยังการลงทะเบียนที่กำหนด)

  หลัก: y3 x3 y2 x1

  a y1:, b x2:, c y2:, t:y3

• la lc lb lt la: คัดลอกด้านบนของสแต็คในทะเบียนที่a, c, b, tและaการกองหลักในลำดับที่

  หลัก: y1 y3 x2 y2 y1 y3 x3 y2 x1

  a y1:, b x2:, c y2:, t:y3

• - * sd: การคำนวณ((y3-y1)*x2)และนำผลd(ลงทะเบียนa, b, cและtไม่ใช้ดังนั้นฉันจะวางพวกเขาจากรายการของสแต็คในขณะนี้)

  หลัก: y2 y1 y3 x3 y2 x1

  d:((y3-y1)*x2)

• - * se - *: คำนวณ((y1-y2)*y3)และ((y2-x3)*x1); เก็บอดีตในeและปล่อยให้หลังในกองหลัก

  หลัก: ((y2-x3)*x1)

  d:, ((y3-y1)*x2)e:((y1-y2)*y3)

• le ld + +: คัดลอกด้านบนของรีจิสเตอร์eและdไปยังสแต็กหลักคำนวณผลรวมของค่าสแต็ค 2 อันดับแรก (ผลักผลลัพธ์กลับไปที่สแต็กหลัก) สองครั้ง

  หลัก: (((y3-y1)*x2)+((y1-y2)*y3)+((y2-x3)*x1))

  d:, ((y3-y1)*x2)e:((y1-y2)*y3)

• 2 /: กด 2 ไปยังสแต็กหลักแบ่งค่าที่ 2 ในสแต็กด้วยอันดับที่ 1 ( dและeไม่ได้ใช้งานอีกต่อไปโดยปล่อยจากรายการสแต็ค)

  หลัก: (((y3-y1)*x2)+((y1-y2)*y3)+((y2-x3)*x1))/2

การจัดเรียงค่าใหม่บนสแต็กเราจะเห็นว่ามันเทียบเท่ากับสูตรที่ด้านบนของคำอธิบายนี้: (x1(y2-y3) + x2(y3-y1) + x3(y1 - y2))/2

• p: พิมพ์ด้านบนของสแต็กหลักไปยังเอาต์พุต