Cho ba độ dài của một tam giác, đánh giá AR tỷ lệ khung hình của nó theo công thức sau:

Ở đâu

Một tam giác càng gần với tam giác thì càng gần với 1tỷ lệ khung hình của nó. Tỷ lệ khung hình lớn hơn hoặc bằng với 1các hình tam giác hợp lệ.

Đầu vào

Đầu vào là ba số dương thực sự có thể được gói gọn trong một danh sách hoặc bất cứ thứ gì tương tự nếu cần.

Chương trình của bạn phải xuất ra cùng một giá trị bất kể thứ tự mà ba bước sóng được nhập là gì.

Những ba số sẽ luôn luôn được sidelengths hợp lệ của một tam giác (tam giác thoái hóa như một với sidelengths 1, 1và 2sẽ không được cung cấp như là đầu vào). Bạn không cần lo lắng về sự thiếu chính xác của dấu phẩy động khi các giá trị trở nên cực kỳ gần với một tam giác suy biến (ví dụ: có thể chấp nhận rằng chương trình của bạn sẽ bị lỗi division by 0cho đầu vào [1, 1, 1.9999999999999999]).

Đầu vào có thể được đưa ra thông qua STDIN, như là một đối số chức năng, hoặc bất cứ điều gì tương tự.

Đầu ra

Đầu ra là một số thực lớn hơn hoặc bằng 1với độ chính xác tiêu chuẩn có thể chấp nhận được trong ngôn ngữ của bạn.

Đầu ra có thể được in tới STDOUT, trả về từ một chức năng hoặc bất cứ thứ gì tương tự.

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

Inputs                   Output

  1      1      1         1
  3      4      5         1.25
 42     42   3.14         ≈ 6.9476
 14      6     12         1.575
  6     12     14         1.575
0.5    0.6    0.7         ≈ 1.09375

Chấm điểm

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng.

Thạch , 6 byte

Câu trả lời này dựa trên câu trả lời 05AB1E của Emigna . Rất cám ơn Dennis và Lynn đã giúp đỡ trong việc tìm ra câu trả lời này. Gợi ý chơi golf chào mừng! Hãy thử trực tuyến!

S_Ḥ⁸÷P

Ungolfing

           Implicit argument [a, b, c].
S          Take the sum, a+b+c or 2*s
  Ḥ        Take the double, [2*a, 2*b, 2*c].
 _         Vectorized subtract, giving us [2*(s-a), 2*(s-b), 2*(s-c)].
   ⁸÷      Vectorized divide the initial left argument, the input [a, b, c],
             by [2*(s-a), 2*(s-b), 2*(s-c)].
     P     Take the product giving us the aspect ratio, abc/8(s-a)(s-b)(s-c).

Thạch , 7 byte

SH_÷@HP

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

Giải trình

Hãy đọc chuỗi này:

• Đối số ngầm là một danh sách [a, b, c].

• Đầu tiên chúng tôi đọc S. Điều này có tổng : a + b + c.

• Sau đó, chúng tôi đọc H. Điều này giảm một nửa : (a + b + c)/2. (Đây là s.)

• Sau đó, chúng tôi đọc một dyad _(trừ), tiếp theo là một dyad khác. Đây là một cái móc : nó thiếu một đối số đúng, vì vậy nó nhận được đối số cho chuỗi này [a, b, c], mang lại cho chúng ta [s-a, s-b, s-c]. (Đây là mẫu chuỗi thứ năm trong bảng ở đây .)

• Sau đó, chúng tôi đọc cặp dyad-monad ÷@H. Đây là một ngã ba : ÷@là sự phân chia với các đối số được lật và Hgiảm một nửa, vì vậy giá trị làm việc của chúng ta sẽ làm Hcho đối số của chuỗi này ÷bị thay đổi. Điều này vector hóa; chúng ta còn lại với [(a/2)/(s-a), (b/2)/(s-b), (c/2)/(s-c)]. (Đây là mẫu chuỗi thứ hai trong bảng ở đây .)

• Cuối cùng, chúng tôi mang sản phẩm đến P, nhận chúng tôi abc/(8(s-a)(s-b)(s-c)).

Xem biểu đồ giống như cây về cách các liên kết khớp với nhau.

Thạch , 6 byte

S÷_2Pİ

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

Làm thế nào nó hoạt động

S÷_2Pİ  Main link. Argument: [a, b, c]

S       Sum; compute 2s := a + b + c.
 ÷      Divide; yield [2s ÷ a, 2s ÷ b, 2s ÷ c].
  _2    Subtract 2; yield [2s ÷ a - 2, 2s ÷ b - 2, 2s ÷ c - 2].
    P   Product; yield (2s ÷ a - 2)(2s ÷ b - 2)(2s ÷ c - 2).
     İ  Invert; yield 1 ÷ (2s ÷ a - 2)(2s ÷ b - 2)(2s ÷ c - 2).

JavaScript, 38 byte

Đây là một lambda ( cà ri ):

a=>b=>c=>a*b*c/(b+c-a)/(a+c-b)/(a+b-c)

(Nếu bạn gán nó cho một biến fbạn cần gọi nó như thế nào f(3)(4)(5))

05AB1E , 11 7 byte

05AB1E sử dụng mã hóa CP-1252 .

O¹·-¹/P

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

Giải trình

O         # sum input
 ¹        # push input again
  ·       # multiply by 2
   -      # subtract from sum
    ¹/    # divide by input
      P   # product

MATL , 8 7 byte

tsGE-/p

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

Giải trình

Hãy sử dụng đầu vào [3 4 5]làm ví dụ

t    % Take input implicitly. Duplicate
     % STACK: [3 4 5], [3 4 5]
s    % Sum of array
     % STACK: [3 4 5], 12
G    % Push input again
     % STACK: [3 4 5], 12, [3 4 5]
E    % Multiply by 2, element-wise
     % STACK: [3 4 5], 12, [6 8 10]
-    % Subtract, element-wise
     % STACK: [3 4 5], [6 4 2]
/    % Divide, element-wise
     % STACK: [0.5 1 2.5]
p    % Product of array. Implicitly display
     % STACK: 1.25

R, 34 29 byte

x=scan();prod(x/(sum(x)-2*x))

Đọc đầu vào từ stdin và lưu trữ như R-vector x. Sau đó, sử dụng vector hóa của R để tạo thành mẫu số.

Haskell, 36 byte

Điều này xác định hàm #có ba đối số.

(a#b)c=a*b*c/(b+c-a)/(a+c-b)/(a+b-c)

Bạn phải gọi nó như sau: (3#4)5

Một chút lâu hơn nhưng có lẽ nhiều golf hơn:

p=product
f v=p v/p((sum v-).(2*)<$>v)

MATLAB, 64 38 25 byte

Đây là một hàm bất biến thực hiện công thức như được cung cấp:

@(v)prod(v./(sum(v)-2*v))

Nó giả sử đầu vào là một danh sách gồm ba giá trị, vd [3,4,5]. Ví dụ này được sử dụng trong giải thích sau:

             sum(v)        = 3+4+5 = 12
             sum(v)-2*v    = 12 - 2*[3,4,5] = 12 - [6,8,10] = [6,4,2]
         v./(sum(v)-2*v))  = [3,4,5] ./ [6,4,2] = [0.5,1,2.5]
    prod(v./(sum(v)-2*v))  = 0.5 * 1 * 2.5 = 1.25

Toán học, 20 byte

1##&@@(#/(Tr@#-2#))&

Lấy đầu vào là một danh sách gồm ba giá trị, được gọi là #bên trong hàm. Tr@là con đường ngắn nhất để tổng hợp một danh sách (để có được 2s) và 1##&@@(...)nhân lên ba yếu tố i/(2s-2i)cho itrong a, b, c.

Nếu đầu vào là số nguyên hoặc số hữu tỷ, bạn sẽ nhận được kết quả chính xác.

Python 3 , 42 byte

lambda a,b,c:a*b*c/(b+c-a)/(a+c-b)/(a+b-c)

Dùng thử trực tuyến!

OCaml, 51 byte

fun a b c->a*.b*.c/.(b+.c-.a)/.(a+.c-.b)/.(a+.b-.c)

Yay, các nhà khai thác riêng cho phao ...

Kỳ quan , 48 byte

@@@prod[#0#1#2/1- +#1#0#2/1- +#2#0#1/1- +#2#1#0]

YÊN NGHỈ

Sử dụng:

(((@@@prod[#0#1#2/1* * - +#1#0#2- +#2#0#1- +#2#1#0])3)4)5

Giải trình

Các cuộc gọi chức năng rất tốn kém trong Wonder khi so sánh với các toán tử infix trong các ngôn ngữ khác. Bởi vì điều này, tôi chứa tất cả các điều khoản trong một mảng và nhận được kết quả của kết quả thay vì nhân mọi thuật ngữ. Mã này sẽ tương đương với một cái gì đó như:

(a,b,c)=>product([a,b,c,1/(b+c-a),1/(a+c-b),1/(a+b-c)])

Trên thực tế , 10 8 byte

Câu trả lời này dựa trên câu trả lời Jelly tuyệt vời của Dennis . Gợi ý chơi golf chào mừng! Hãy thử trực tuyến!

;Σ♀/♂¬πì

Ungolfing

     Implicit input [a, b, c].
;    Duplicate [a, b, c].
Σ    sum() to get twice the semiperimeter, 2*s.
♀/   Vectorized divide 2*s by [a, b, c] to get [2*s/a, 2*s/b, 2*s/c].
♂¬   Vectorized subtract 2 to get [2*s/a-2, 2*s/b-2, 2*s/c-2].
π    Get the product of the above to get 8*(s/a-1)*(s/b-1)*(s/c-1).
     This is the same as 8(s-a)(s-b)(s-c)/abc.
ì    Invert to get the aspect ratio, abc/8(s-a)(s-b)(s-c).
     Implicit return.

Minecraft 1.8, 1607 byte + 85 khối = 1692 blyte

Cảnh báo: Không được đánh gôn. Golfed sẽ mất đến ¹ / ₃ ít blytes.

Dưới đây là một ảnh chụp màn hình bình luận:

• Các đầu vào là a, bvà c, và đầu ra làfin

• finvà tất cả các biến khác trong Minecraft là số nguyên, vì vậy độ chính xác của Minecraft là 0 điểm thập phân

• Đường viền màu xanh lá cây: các khối lệnh bên trái sẽ kích hoạt sau các khối bên phải, chỉ là các khởi tạo biến.

• Cần gạt (hình chữ nhật màu nâu xám ở phía dưới bên phải) là bộ kích hoạt

• Nó chiếm quá nhiều vì cách Minecraft xử lý các biến . Một tổng quan rất đơn giản:

  • /scoreboard objectives add name dummytạo một biến mới có tên " name"

  • /scoreboard players set @p name numberđặt biến namethành number. Số phải là số thực, không phải là biến.

  • /scoreboard players operation @p name += @p name2gia tăng nametheo name2. name2phải là một biến, không phải là một số.

    • -=, /=, *=, =Và nhiều hơn nữa có thể được sử dụng thay +=cho sụt lần, nhân, chia, vv

• Tôi sẽ không đăng tất cả 43 lệnh ở đây. Nó sẽ giúp chơi golf này, nhưng cũng sẽ giúp tôi sao chép điên cuồng

• Nếu khối lệnh 1.9 được sử dụng, giải pháp sẽ (ít nhất) sử dụng ít hơn 42 khối. Nếu các biến một chữ cái sẽ được sử dụng, gần 200 byte sẽ được lưu.

Java, 38 byte

(a,b,c)->a*b*c/(b+c-a)/(a-b+c)/(a+b-c)

Kiểm tra và không có người

public class Pcg101234 {
  interface F {
    double f(double a, double b, double c);
  }
  public static void main(String[] args) {
    F f = (a,b,c)->a*b*c/(b+c-a)/(a-b+c)/(a+b-c);

    System.out.println(f.f(1,1,1));
    System.out.println(f.f(3,4,5));
    System.out.println(f.f(42,42,3.14));
    System.out.println(f.f(14,6,12));
    System.out.println(f.f(6,12,14));
    System.out.println(f.f(0.5,0.6,0.7));
  }
}

Kiểm tra nó!

Đầu ra

1.0
1.25
6.947606226693615
1.575
1.575
1.09375

Sứa , 17 16 byte

Cảm ơn Zgarb vì đã tiết kiệm 1 byte.

p%/*-)/+i
    2%

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

Giải trình

Điều này dựa trên cùng một công thức đối ứng như câu trả lời của Dennis .

Trong ký hiệu chức năng truyền thống hơn, chương trình trên có nội dung như sau:

print(
  1 / fold(
    multiply,
    fold(add, i) / i - 2
  )
)

Nơi iđây là danh sách đầu vào. Lưu ý rằng fold(multiply, ...)chỉ cần tính toán sản phẩm và fold(add, ...)tổng, vì vậy chúng tôi có thể đơn giản hóa hơn nữa để:

print(1 / product(sum(i) / i - 2))

Việc sum(i) / inày được thực hiện thông qua hook )/+xác định hàm unary mới để thực hiện cả hai bước cùng một lúc.

APL Dyalog , 10 9 byte

×/⊢÷+/-+⍨

Đây là một hàm chức năng ẩn danh (trên đỉnh của một ngã ba của một ngã ba), có nghĩa là mọi hàm phụ được áp dụng cho đối số, bên trong cấu trúc sau:

 ┌─┴─┐          
×/ ┌─┼───┐      
   ⊢ ÷ ┌─┼──┐  
      +/ - +⍨

Dùng thử trực tuyến!

×/ sản phẩm của

⊢ các đối số

÷ chia

+/ tổng của các đối số

- dấu trừ

+⍨ các đối số tăng gấp đôi (thêm vào chính họ)

Nền toán học.

ngn cạo một byte.

2sable , 6 byte

Một cổng câu trả lời của Dennis 'Jelly .

Os/ÍPz

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến!

dc, 49 byte

5k?dsa?dsb?dsc++2/sslalblc**lsla-lslb-lslc-8***/p

Một thực hiện trực tiếp của công thức được đưa ra. Nhắc nhở ba đầu vào khi gọi trên ba dòng riêng biệt và xuất giá trị dấu phẩy động có 5 chữ số sau dấu thập phân sang dòng tiếp theo.

Giải trình

5k                                                # Set the output precision to 5 digits after the decimal
  ?dsa                                            # Prompt for first input value on first line, duplicate it, and then store it in register `a`
      ?dsb                                        # Prompt for second input, duplicate it, and store it in register `b`
          ?dsc                                    # Prompt for third input, duplicate it, and store it in register `c`
              ++2/ss                              # Sum up the 3 values on the main stack, then divide sum by 2 and store the result in register `s`
                    lalblc**                      # Copy all three values from registers `a`,`b`,`c` onto the main stack, find their product, and push result to top of main stack
                            lsla-                 # Copy value from register `s` onto main stack, subtract register `a`'s value from it, and push result to main stack
                                 lslb-            # Copy value from register `s` onto main stack, subtract register `b`'s value from it, and push result to main stack
                                      lslc-       # Copy value from register `s` onto main stack, subtract register `c`'s value from it, and push result to main stack
                                           8***   # Find the product of the top three values and 8 and then push the result to main stack
                                               /p # Divide the second to top value (a*b*c) by the top of stack value (8*(s-a)*(s-b)*(s-c)), push the result to the main stack, and then output the result to STDOUT

TI-Basic, 11 byte

Đầu vào phải ở dạng danh sách, như thế nào {A B C}.

prod(Ans)/prod(sum(Ans)-2Ans

Có lẽ hình ảnh này sẽ giúp (nhớ rằng 2s = a+b+c):

      abc abc abc prod (Ans)
---------------- = --------------------- = ----------- -------- = -------------------
8 (sa) (sb) (sc) (2s-2a) (2s-2b) (2s-2c) (a + b + c) (1-2 {a, b, c}) prod (sum (Ans) -2Ans)

Perl 6 , 44 byte

->\a,\b,\c{a*b*c/(b+c -a)/(a+c -b)/(a+b -c)}

Python, 55 byte

def f(x,y,z):s=x+y+z;return 1/((s/x-2)*(s/y-2)*(s/z-2))

Tín dụng cho Dennis . Tôi vừa port. Trong Python, một ngôn ngữ bị bỏ quên nhiều.

Forth, 83 byte

Giả sử các tham số dấu phẩy động bắt đầu trên ngăn xếp dấu phẩy động. Để lại kết quả trên ngăn xếp điểm nổi. Sử dụng ngăn xếp cho params / return là tiêu chuẩn cho Forth.

: p 3 fpick ;
: T p p p ;
: f 0 s>f T f- f+ f- T f+ f- f* T f- f- f* 1/f f* f* f* ;

Dùng thử trực tuyến - chứa tất cả các trường hợp thử nghiệm

Sử dụng công thức a*b*c * 1/ ( -(a+b-c) * -(b+c-a) * (a+c-b) ). Khá nhiều toàn bộ chương trình chỉ sử dụng ngăn xếp dấu phẩy động. Ngoại lệ là 3trong 3 fpick. Chương trình này yêu cầu một trình thông dịch hỗ trợ fpick(Ideone hoạt động, repl.it không).

Giải thích: hơi ít chơi golf

\ 3 fpick takes the 3rd element (0-indexed) and pushes a copy
\ Used to copy parameters on the stack over another number 'x' ( a b c x -> a b c x a b c )
: f3p 3 fpick 3 fpick 3 fpick ;

: f                     \ define a function f
0 s>f f3p f- f+ f-      \ push a zero, copy params, compute 0-(a+b-c)
                        \ the zero allows me to copy (I need an 'x' to jump over)
f3p f+ f- f*            \ copy params and compute -(b+c-a), multiply by previous result
                        \ the negatives miraculously cancel
f3p f- f- f*            \ copy and compute (a+c-b), multiply by previous result
1/f f* f* f* ;          \ take the reciprocal and multiply by a*b*c
                        \ the result is left on the floating point stack

ised : 19 byte

@*$1/@*{@+$1-2.*$1}

Gọi nó là ised --l 'inputfile.txt' '@*$1/@*{@+$1-2.*$1}' nơi inputfile.txtcó thể là một tệp có mảng được phân tách bằng dấu cách hoặc -để nhận từ pipe / stdin.

Phiên bản Unicode (cùng mã byte nhưng ít hơn 3 ký tự):

Π$1/Π{Σ$1-2.*$1}

Thật không may, isedlãng phí rất nhiều ký tự cho cú pháp đối số đầu vào của nó.

vba, 76

Function r(a,b,c)
s=(a+b+c)/2:r=(a*b*c)/(8*(s-a)*(s-b)*(s-c))
End Function

Gọi với

? r (3,4,5)

hoặc trong excel với

= r (5,12,13)

C #, 82 byte

void ar(double a,double b,double c)=>Console.Write(a*b*c/(b+c-a)/(a+c-b)/(a+b-c));

Sử dụng:

ar(42, 42, 3.14);

Pyke, 12 byte

1QFQsR/tt)B/

Hãy thử nó ở đây!

Chà, BlueEyedBeast, bạn đã có cơ hội của mình. Tôi đã sử dụng một thuật toán tốt ở đây.

k, 19 byte

{(*/x)%8*/-x-+/x%2}

Đánh giá từ phải sang trái - Chia danh sách x cho 2, tính tổng kết quả và trừ nó khỏi x gốc. Phủ định câu trả lời và nhận sản phẩm của kết quả và 8. Kết quả là mẫu số, tử số là sản phẩm của danh sách.

Lua, 45 byte

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

Dựa nhiều vào câu trả lời JavaScript.