次の関数f（a、b、c、d、e、f）を作成して、2つの数値N ₁ = a ^{b c}、N ₂ = d ^{e fを}比較します。

• N ₁ > N _2の場合、_1を返します
• N ₁ <N _2の場合、-1を返します

注： N ₁とN _2の間の他の関係に値を返す必要はありません。例えば、それらが等しい場合、またはそれらの関係が定義されていない場合（複素数）。

その他の制約：

• すべての数字は整数です
• a、b、c、d、e、fは正でも負でもかまいませんが、ゼロではありません。
• | a |、| d | <1000
• | b |、| c |、| e |、| f | <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]]]

Ruby 1.9、 280227 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）同等の問題を相互に変換する簡単な方法。

テストケース：

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}

実装は正確に説明されたものではありませんが、機能します。

Shortチャレンジはこのチャレンジの後に公開されているため、この答えは競合しません。

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が複雑なログ機能を持っていることを学びました。したがって、盲目的に両側を二重に記録し、実際のコンポーネントを調べます。5つのテストのうち4つで動作します。4番目のもので何が起こっているのか分かりません。

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)

Haskell、44文字

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

私のマシンのすべてのテスト例で1秒未満で実行されます。