Giải trình:

Năm ngoái trong lớp toán, về bài tập về nhà, đôi khi chúng ta sẽ có được những câu hỏi cực kỳ đơn giản, mặc dù cũng khó chịu không kém gọi là câu đố kim cương. Về cơ bản, đây là những câu hỏi mà chúng tôi sẽ được cung cấp một khoản tiền và sau đó một sản phẩm được yêu cầu tìm hai số mà khi nhân cho sản phẩm và khi được thêm vào sẽ đưa ra tổng. Những điều này làm tôi phát điên, vì cách duy nhất tôi biết cách giải quyết chúng (trong Đại số I) là chỉ liệt kê các yếu tố của sản phẩm sau đó xem những yếu tố nào được thêm vào để tổng hợp. (Vì tôi không biết cách sử dụng Quadratics vào thời điểm đó) Chưa kể, chúng không chính xác là thử thách toán học. Tuy nhiên, điều đó chỉ xảy ra với tôi rằng tôi nên viết một chương trình. Vì vậy, đó là thách thức của bạn ngày hôm nay! Viết một chương trình có thể giải một câu đố kim cương.

Ví dụ Xin lỗi cho hình ảnh mờ, đó là cách tốt nhất tôi có thể tìm thấy. Ngoài ra, bỏ qua các số trong bong bóng. Đỉnh của kim cương là sản phẩm, dưới cùng là tổng, bên phải và bên trái là hai số. Câu trả lời như sau: (Đây cũng là những trường hợp thử nghiệm của bạn)

1. 9, -7
2. -2, -1
3. 5, 8
4. -9, -9

Quy tắc:

• Bạn không được sử dụng bất kỳ hàm hoặc lớp được xác định trước nào thực hiện điều này cho bạn.
• Mã của bạn phải là một chương trình hoàn chỉnh hoặc chức năng trả về hoặc in câu trả lời sau khi tìm thấy chúng
• Đầu vào là tổng và sản phẩm, được nhập dưới dạng tham số chức năng hoặc đầu vào của người dùng

Thông số kỹ thuật:

• Giả sử rằng hai số, tổng và sản phẩm sẽ luôn là một số nguyên.
• Cả hai câu trả lời sẽ nằm trong khoảng từ -27 đến 127.
• Đầu vào của bạn sẽ là hai số nguyên (Tổng và Sản phẩm).

Hãy nhớ rằng đây là mã golf, vì vậy số byte ngắn nhất sẽ thắng. Vui lòng đặt tiêu đề cho câu trả lời của bạn với ## Tên ngôn ngữ tiêu chuẩn, Số lượng byte

Chỉnh sửa: Ngoài ra, Doorknob chỉ ra rằng đây thực chất là "yếu tố bậc hai có dạng x ^ 2 + bx + c,". Đó là một cách khác để suy nghĩ và tiếp cận thách thức này. : D

Thạch , 15 11 10 byte

Hð+,_ðH²_½

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

Mã nhị phân sau hoạt động với phiên bản trình thông dịch Jelly này.

0000000: 48 98 2b 2c 5f 98 48 8a 5f 90  H.+,_.H._.

Ý kiến

Điều này dựa trên thực tế là

Mã

Hð+,_ðH²_½    Left input: s -- Right input: p

 ð   ð        This is a link fork. We define three links, call the left and right
              link with the input as arguments, then the middle link with the
              results as arguments.

H             Left link, dyadic. Arguments: s p

H             Halve the left input.

     ðH²_½    Right link, dyadic. Arguments: s p

      H       Halve the left input.
       ²      Square the result.
        _     Hook; subtract the right input from the result.
         ½    Apply square root to the difference.

 ð+,_         Middle link, dyadic. Arguments: (results of the previous links)

  +           Compute the sum of the results.
    _         Compute the difference of the results.
   ,          Pair.

Kỳ lân , 4650 2982 1874 1546

[ ✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨ 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 ( 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 ✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨ 🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 ( ) ) 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 2 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐🐐 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 ✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨ 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 ( 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 ✨✨✨✨✨✨✨ 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 4 🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 ✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨ 🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤 🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄🦄 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 ( ) ) 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈🌈 🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤🌤 ✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨✨ ]

Bây giờ với dê, cầu vồng và lấp lánh!

Hy vọng ngắn hơn Java.

Sử dụng mã hóa tùy chỉnh có thể được áp dụng vớiApplyEncoding

Giải trình

Cái này hoạt động ra sao??? Với sự kỳ diệu của kỳ lân (và một ít mã).

Unicorn được biên dịch thành JavaScript

Mỗi phần được phân tách bằng một khoảng trắng và mỗi phần thể hiện một ký tự trong mã JavaScript.

Nếu phần chứa kỳ lân, ký tự của phần đó là độ dài của phần, được chuyển đổi thành mã char (ví dụ: 32 kỳ lân sẽ là khoảng trắng)

Nếu phần chứa dê, chiều dài của phần được nhân đôi và sau đó được chuyển đổi thành mã char.

Nếu ký tự đặc biệt của chương trình không hiển thị, đây là một hình ảnh:

Đây không phải là cạnh tranh vì Unicorn đã được thực hiện sau khi thử thách này được đăng.

JavaScript ES6, 45 39 37 ^* byte

(q,p)=>[x=p/2+Math.sqrt(p*p/4-q),p-x]

^{* Cảm ơn Dennis!}

TeaScript, 22 byte 30 31

[d=y/2+$s(y*y/4-x),y-d

Không phải cái đó xấu. Sẽ ngắn hơn nhiều nếu tôi có thể nhận được một số tính năng chơi gôn đã hoàn thành trước đó, chẳng hạn như các phím tắt unicode unicorn

Dùng thử trực tuyến

MATL , 33 byte

-100:100t!2$t+i=bb*i=&2#2$1fv101-

Xuất ra hai số trong hai dòng khác nhau. Nếu không có giải pháp tồn tại, nó không tạo ra đầu ra. Nếu tồn tại một số giải pháp, nó chỉ tạo ra cặp số tương ứng với một giải pháp.

Thí dụ

Sau đây đã được chạy trong Octave với cam kết GitHub hiện tại của trình biên dịch.

>> matl -r '-100:100t!2$t+i=bb*i=&2#2$1fv101-'
> 2
> -63
 9
-7

Giải trình

-100:100           % row vector -100, -99, ..., 100
t!                 % duplicate and transpose into column vector
2$t                % duplicate the two vectors
+                  % sum with singleton expansion (all combinations)
i=                 % does it equal input? Produces logical matrix
bb                 % move the two vectors to top
*                  % multiply with singleton expansion (all combinations)
i=                 % does it equal input? Produces logical matrix
&                  % logical "and"
2#2$1f             % find row and column of the first "true" value in logical matrix
v101-              % concatenate vertically and subtract 101

Julia, 46 44 32 byte

f(b,c)=(x=b+√(b^2-4c))/2,b-x/2

Một hàm f lấy tổng và sau đó là sản phẩm.

Julia đầu tiên của tôi trả lời. @AlexA., Bạn nên tự hào về tôi.

Cảm ơn @Dennis và @Alex A. vì tất cả sự giúp đỡ. Tôi phải vượt qua 44 .: P

đc, 16

?ddd*?4*-v+2/p-p

Đọc tổng sau đó sản phẩm từ các dòng riêng biệt của STDIN. -ve số phải được nhập bằng dấu gạch dưới thay vì dấu trừ. ví dụ

$ { echo 2; echo _63; } | dc -e'?ddd*?4*-v+2/p-p'
9
-7
$ 

Giải trình:

Giải pháp bậc hai cơ bản giống nhau cho sum = a + bvà product = a * b. Điều này tính toán giải pháp anhư sau:

a = [ sum + √( sum² - 4 * product ) ] / 2

Và tính toán giải pháp bnhư sau:

b = sum - a

Mở rộng:

?                   # push sum to stack
 ddd                # duplicate 3 times (total 4 copies)
    *               # sum squared
     ?              # push product to stack
      4*            # multiply by 4
        -           # subtract (4 * product) from (sum squared)
         v          # take square root of (sum squared) - (4 * product)
          +         # add sum to square root of (sum squared) - (4 * product)
           2/       # divide by 2 to give solution a
             p      # print with newline and without pop
              -     # subtract solution a from sum to give solution b
               p    # print with newline and without pop

Chia cho 2 được thực hiện muộn để tránh mất độ chính xác. Có thể chia cho 2 sớm hơn, nhưng điều này đòi hỏi độ chính xác phân đoạn cần nhiều ký tự hơn.

Bình thường, 21 18 byte

Đã lưu 3 byte nhờ @Dennis

,J/+@-^Q2*4E2Q2-QJ

Bộ kiểm tra

Chương trình Pyth thứ hai của tôi từ trước đến nay, vì vậy nó có thể được chơi với các bản dựng sẵn. Đề nghị được chào đón!

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

,J/+@-^Q2*4E2Q2-QJ   Implicit: Q = first line of input
,                    Create and output a list of these items:
 J                     Set variable J to the result of these operations:
      ^Q2                Square Q.
     -   *4E             Subtract 4*(next line of input).
    @       2            Take the square root.
   +         Q           Add Q.
  /           2          Divide by 2.
                       The list is currently [J].
               -QJ     Push Q-J; the list is now [J, Q-J].
                     EOF; list is sent to output.

(Lời giải thích này có thể không chính xác 100%; Tôi không quen thuộc lắm với Pyth.)

Lưu ý đó /là chia số nguyên. Bằng cách thay thế nó c, chúng ta cũng có thể làm cho công việc này với các đầu vào không nguyên.

Java, 82 (69 λ) byte với công thức bậc hai (127 (114) byte brute-force)

Brute-Force: (Vanilla, Java 7)

int[] n(int s,int p){for(int a=-100;a<=100;a++)for(int b=-100;b<=100;b++) if(a+b==s&&a*b==p)return new int[]{a,b};return null;}

Tăng cường: (Java 8)

(s,p)->{for(int a=-100;a<=100;a++)for(int b=-100;b<=100;b++) if(a+b==s&&a*b==p)return new int[]{a,b};return null;}

Chỉ định lambda cho java.util.function.BiFunction<Integer, Integer, int[]>và gọiapply() .

Phương pháp tiếp cận vũ phu cũ. Chỉ có chức năng làm việc ở đây và vì Java không thể trả về nhiều giá trị, nên chúng tôi trả về một phần tử 2int mảng với các số được yêu cầu.

Chương trình dựa trên phương pháp vũ phu đầy đủ có thể được tìm thấy ở đây trên ideone.com , với λ phiên bản tại đây.

Chơi golf này liên quan đến việc loại bỏ tất cả các niềng răng không cần thiết.

Ung dung:

int[] n(int s,int p){//sum and product as function parameters,in that order
    for(int a=-100;a<=100;a++){//iterate first no. from -100 to 100
        for(int b=-100;b<=100;b++){//iterate second no. from -100 to 100
            //if the 2 nos. satisfy the diamond-puzzle condition, 
            //pack them in an int array and return them
            if(a+b==s&&a*b==p)return new int[]{a,b};}
     }//if no such pair exists, return null
return null;}

Phương pháp tiếp cận bậc hai: (Vanilla, Java 7)

int[] n(int s,int p){int x=s+(int)Math.sqrt(s*s-4*p);return new int[]{x/2,s-x/2};}

Tăng cường: (Java 8) (s, p) -> {int x = s + (int) Math.sqrt (s * s-4 * p); trả về int mới [] {x / 2, sx / 2} ;}

(Cách sử dụng như đối với lực lượng vũ phu λ ở trên).

Các thông số và tiêu chí trả về giống như giải pháp brute-force ở trên.

Sử dụng công thức bậc hai cũ tốt được sử dụng bởi hầu hết các câu trả lời khác ở đây, và không thể đánh gôn thêm nữa trừ khi có ai đó giúp tôi ra khỏi đây. Nó khá rõ ràng vì vậy tôi không bao gồm một phiên bản không có người nhận.

Chương trình dựa trên phương pháp bậc hai đầy đủ có ở đây trên ideone.com , với phiên bản tại đây.

Japt , 28 22 21 20 byte

[X=V/2+(V²/4-U ¬V-X]

Đầu vào được thực hiện dưới dạng -63 2 .

Giải trình:

• Uvà Vlà hai đầu vào ( -63và2 trong trường hợp đầu tiên)
• ² bình phương số
• q chiết xuất căn bậc hai

APL, 27 21 byte

h(+,-).5*⍨⊣-⍨h×h←.5×⊢

Đây là một hàm chức năng dyadic chấp nhận các số nguyên ở bên phải và bên trái và trả về một mảng. Để gọi nó, gán nó cho một biến.

Ung dung:

                h←.5×⊢       ⍝ Define a train h for halving the input
              h×             ⍝ b^2/4
          ⊣-⍨                ⍝ b^2/4 - c
      .5*⍨                   ⍝ sqrt(b^2/4 - c)
h(+,-)                       ⍝ Return the halved pair

Dùng thử trực tuyến

Đã lưu 6 byte nhờ Dennis!

CJam, 18 byte

q~2d/_2#@-mq_2$+p-

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

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

q~                  e# Read an evaluate all input. STACK: product sum
  2d/               e# Divide the sum by 2.0.
     _              e# Push a copy of the result.
      2#            e# Square the copy.
        @-          e# Rotate the product on top and subtract it from the square.
          mq        e# Apply square root.
            _2$     e# Push copies of the root and the halved sum.
               +p   e# Add and print.
                 -  e# Subtract the originals.

Trăn 3, 49 44 byte

Có thể có một số cách để chơi golf này xuống hơn nữa, nhưng điều này có vẻ khá tốt.

def f(s,p):s/=2;d=(s*s-p)**.5;return s+d,s-d

MathCAD 15. 38 byte

Với công thức toán học, lập trình trong MathCAD rất dễ dàng. Ngôn ngữ thậm chí được thiết kế để xử lý các số phức tạp một cách dễ dàng. Tuy nhiên, có những ngôn ngữ ngắn hơn có thể giải quyết vấn đề.

, 21 ký tự / 30 byte

[x=í/2+√ í²/4-î⦆,í-x]

Try it here (Firefox only).

Meh. Điều này phải đủ trực quan để bạn có thể có được ý tưởng; tuy nhiên, nếu bạn phải , î = input1, í = input2.

PHP, 62 byte

<?=($x=($p=$_GET[p])/2+sqrt($p*$p/4-$q=$_GET[q]))." ".($p-$x);

Điều này có thể khá dài nhưng là chương trình web đầy đủ tính năng của PHP - "chương trình". Chấp nhận các đối số thông qua yêu cầu "nhận".

Bản trình diễn .

TI-BASIC, 20 byte

Lấy Qtừ Ansvà Ptừ Prompt. Gọi như thế P:prgmNAME.

Prompt P
P/2+√(P²/4-Ans
{Ans,P-Ans