เปรียบเทียบตัวเลขสองตัว N ₁ = a ^{b c} , N ₂ = d ^{e f}โดยสร้างฟังก์ชัน f (a, b, c, d, e, f) ที่:

• ส่งคืน 1 ถ้า N ₁ > N ₂
• ส่งคืน -1 ถ้า N ₁ <N ₂

หมายเหตุ:คุณไม่จำเป็นต้องส่งกลับค่าใด ๆ สำหรับความสัมพันธ์อื่น ๆ ระหว่าง N ₁และ N 2 เช่นเมื่อพวกเขาเท่ากันหรือเมื่อความสัมพันธ์ของพวกเขาไม่ได้กำหนด (จำนวนเชิงซ้อน)

ข้อ จำกัด อื่น ๆ :

• ตัวเลขทั้งหมดเป็นจำนวนเต็ม
• a, b, c, d, e, f อาจเป็นค่าบวกหรือลบ แต่ไม่เป็นศูนย์
• | คุณ |, | d | <1,000
• | ข |, | C |, | E |, | ฉ | <10 ¹⁰
• ใช้เวลาน้อยกว่าไม่กี่วินาที

ตัวอย่าง:

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

นี่คือรหัสกอล์ฟ รหัสที่สั้นที่สุดชนะ

Mathematica, 110 ตัวอักษร

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]]]

ทับทิม 1.9 280 227 189 171 ตัวอักษร

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}

ฉันรู้ว่านี้เป็นบิตนานกว่าโซลูชั่นอื่น ๆ แต่อย่างน้อยวิธีนี้ควรจะทำงานได้โดยไม่ต้องคำนวณ^ขคง^จฉข^คหรือ e ฉ

แก้ไข:

• (279 -> 280) แก้ไขข้อผิดพลาดเมื่อและa**b**c < 0d = 1
• (280 -> 227) นำการตรวจสอบที่ไม่จำเป็นออกสำหรับกรณีพิเศษ
• (227 -> 192) ลบการตรวจสอบบางอย่างที่ไม่จำเป็นกับเกณฑ์ที่กำหนด (จำนวนเต็มไม่เป็นศูนย์ไม่จำเป็นต้องใช้เอาต์พุตสำหรับค่าที่ซับซ้อน)
• (192 -> 189) ครบทุกการตรวจสอบอื่น ๆ ผมได้อย่างปลอดภัยสามารถคำนวณแทนlog(log(a)/log(d))log(log(a))-log(log(d))
• (189 -> 171) วิธีที่ง่ายกว่าในการแปลงปัญหาที่เทียบเท่ากันให้เป็นปัญหาแบบอื่น

Testcases:

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 ไบต์

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

การใช้งานไม่ตรงตามที่อธิบายไว้ แต่ใช้ได้ผล

คำตอบนี้ไม่ใช่การแข่งขันเนื่องจาก ShortScript ได้รับการเผยแพร่หลังจากความท้าทายนี้

Python 2.6 (มันใช้งานไม่ได้จริง)

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)

วันนี้ฉันเรียนรู้หลามมีฟังก์ชั่นบันทึกที่ซับซ้อน ดังนั้นสุ่มสี่สุ่มห้าล็อกทั้งสองด้านและดูองค์ประกอบจริง ใช้งานได้ 4 จาก 5 การทดสอบ ไม่แน่ใจว่าเกิดอะไรขึ้นกับอันที่สี่

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

Python (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 ตัวอักษร

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

ทำงานภายใต้หนึ่งวินาทีสำหรับตัวอย่างทดสอบทั้งหมดในเครื่องของฉัน