So sánh hai số N ₁ = a ^{b c} , N ₂ = d ^{e f} bằng cách xây dựng hàm f (a, b, c, d, e, f) rằng:

• trả về 1 nếu N ₁ > N ₂
• trả về -1 nếu N ₁ <N ₂

Lưu ý: Bạn không bắt buộc phải trả lại bất kỳ giá trị nào cho bất kỳ mối quan hệ nào khác giữa N ₁ và N ₂ . ví dụ khi chúng bằng nhau hoặc khi quan hệ của chúng không xác định (số phức).

các ràng buộc khác:

• tất cả các số là số nguyên
• a, b, c, d, e, f có thể dương hoặc âm nhưng không bằng không.
• | a |, | d | <1000
• | b |, | c |, | e |, | f | <10 ¹⁰
• thời gian chạy ít hơn vài giây

Ví dụ:

f(100,100,100,50,100,100) = 1
f(-100,100,100,50,100,100) = 1
f(-100,99,100,50,100,100) = -1
f(100,-100,-100, -1, 3, 100) = 1
f(535, 10^9, 10^8, 443, 10^9, 10^9) = -1

Đây là mã golf. Mã ngắn nhất sẽ thắng.

Toán học, 110 ký tự

z[a_,b_,c_,d_,e_,f_]:=With[{g=Sign[a]^(b^c),h=Sign[d]^(e^f)},If[g!=h,g,g*Sign[Log[Abs[a]]b^c-Log[Abs[d]]e^f]]]

Ruby 1.9, 280 227 189 171 ký tự

z=->a,b,c,d,e,f{l=->a{Math.log a}
u=->a,b{[a.abs,a][b&1]}
a=u[a,b=u[b,c]]
d=u[d,e=u[e,f]]
d*a<0?a<=>d :b*e<0?b<=>e :(l[l[a*q=a<=>0]/l[d*q]]<=>f*l[e*r=b<=>0]-c*l[b*r])*q*r}

Tôi biết đây là một chút dài hơn các giải pháp khác, nhưng ít ra phương pháp này nên làm việc mà không tính toán một ^{b c} , d ^{e f} , b ^c hoặc e ^f .

Biên tập:

• (279 -> 280) Đã sửa lỗi khi a**b**c < 0và d = 1.
• (280 -> 227) Đã xóa một kiểm tra không cần thiết cho trường hợp đặc biệt.
• (227 -> 192) Đã xóa một số kiểm tra không cần thiết với các tiêu chí đã cho (số nguyên khác không, không cần đầu ra cho các giá trị phức tạp)
• (192 -> 189) Do tất cả các kiểm tra khác, tôi có thể tính toán một cách an toàn log(log(a)/log(d))thay vì log(log(a))-log(log(d)).
• (189 -> 171) Cách đơn giản hóa để chuyển đổi các vấn đề tương đương sang nhau.

Testcase:

z[100, 100, 100, 50, 100, 100] == 1
z[-100, 100, 100, 50, 100, 100] == 1
z[-100, 99, 100, 50, 100, 100] == -1
z[100, -100, -100, -1, 3, 100] == 1
z[535, 10**9, 10**8, 443, 10**9, 10**9] == -1
z[-1, -1, 1, 2, 2, 2] == -1
z[1, -5, -9, 2, -1, 2] == -1
z[1, -5, -9, 2, -1, 3] == 1
z[3, -3, 3, -4, 1, 1] == 1
z[-2, 1, 1, 1, 1, 1] == -1
z[1, 1, 1, -1, 1, 1] == 1
z[1, 1, 1, 2, 3, 1] == -1
z[1, 1, 1, 2, -3, 2] == -1
z[1, 1, 1, 2, -3, 1] == 1
z[-1, 1, 1, 1, 1, 1] == -1
z[2, 3, 1, 1, 1, 1] == 1
z[2, -3, 2, 1, 1, 1] == 1
z[2, -3, 1, 1, 1, 1] == -1

ShortScript , 89 byte

{CP
$M^ η1 η2
$M^ ζ η3
↑Αζ
$M^ η4 η5
$M^ ζ η6
↔α>ζ↑Ζ1
↔α<ζ↑Ζ-1}

Việc thực hiện không chính xác như mô tả, nhưng nó hoạt động.

Câu trả lời này không cạnh tranh, vì ShortScript đã được xuất bản sau thử thách này.

Python 2.6 (cái này không thực sự hoạt động)

import cmath
g=cmath.log
f=lambda a,b,c,d,e,f:-1+2*((c*g(b)+g(g(a))-f*g(e)-g(g(d))).real>0)

hôm nay tôi học python có chức năng đăng nhập phức tạp. vì vậy, mù đôi đăng nhập cả hai bên và nhìn vào thành phần thực. làm việc cho 4 trong số 5 bài kiểm tra. không chắc chắn những gì đang xảy ra với cái thứ tư.

print f(100,100,100,50,100,100) == 1
print f(-100,100,100,50,100,100) == 1
print f(-100,99,100,50,100,100) == -1
print f(100,-100,-100, -1, 3, 100) == 1 # failure, sadness.
print f(535, 10^9, 10^8, 443, 10^9, 10^9) == -1

Con trăn (99)

from math import*
from numpy import*
l=log
def f(a,b,c,d,e,f):return sign(l(a)*l(b)*c-l(d)*l(e)*f)

Haskell, 44 ký tự

n True=1
n _=1-2
g a b c d e f=n$a^b^c>d^e^f

Chạy dưới một giây cho tất cả các ví dụ thử nghiệm trên máy của tôi .