Сравните два числа N ₁ = a ^{b c} , N ₂ = d ^{e f} , построив функцию f (a, b, c, d, e, f), которая:

• возвращает 1, если N ₁ > N ₂
• возвращает -1, если N ₁ <N ₂

Примечание. От вас не требуется возвращать какое-либо значение для любого другого отношения между N ₁ и N ₂ . например, когда они равны или когда их отношение не определено (комплексные числа).

другие ограничения:

• все числа целые
• a, b, c, d, e, f могут быть положительными или отрицательными, но не равными нулю.
• | |, | D | <1000
• | б |, | с |, | е |, | е | <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}

Я знаю, что это немного дольше, чем другие решения, но по крайней мере этот подход должен работать без вычисления a ^{b c} , d ^{e f} , b ^c или e ^f .

Редактировать:

• (279 -> 280) Исправлена ​​ошибка, когда a**b**c < 0и d = 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)

сегодня я узнал, что Python имеет сложную функцию журнала. Итак, слепо дважды бревно обе стороны и посмотреть на реальный компонент. работает на 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

Питон (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)

Хаскель, 44 персонажа

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

Запускается под секунду для всех тестовых примеров на моей машине.