İki sayıyı faktöriyelerine ayırın; eğer paylaşırlarsa, bir falsey değeri döndürün. Aksi takdirde, gerçek bir değer döndürün. ( bu son sorudan esinlenerek )

Diğer bir deyişle, her girdi numarasını faktöriyellerin (pozitif tamsayıların) toplamı olarak en açgözlü şekilde yazın; her iki göstergede faktöryel görünmüyorsa gerçek bir değer döndürür, aksi takdirde bir falsey değer verir.

Misal

Verilen 20 ve 49:

20 = 3! + 3! + 3! + 2!
49 = 4! + 4! + 1!

Her iki gösterimde de faktöriyel görünmez, bu nedenle gerçek bir değer döndürün.

32 ve 132 verildi:

132 = 5! + 3! + 3!
 32 = 4! + 3! + 2!

3! her iki gösterimde de görünür, bu nedenle bir falsey değeri döndürün.

I / O

Giriş ve çıkış herhangi bir standart yöntemle yapılabilir .

Girdi her zaman iki negatif olmayan tamsayı olacaktır; dilinizin gerektirdiğinden başka bu tamsayılarda üst sınır yoktur.

Çıktı doğruluk veya falsey bir değer olmalıdır . Her çıktının doğru / falsey olduğu sürece, bu değerlerin farklı girdiler için tutarlı olması gerekmez.

Test Durumları

Eğer bir girdi varsa 0, cevap her zaman doğrudur. Diğer doğruluk testi vakaları:

{6, 3}, {4, 61}, {73, 2}, {12, 1}, {240, 2}, {5, 264}, {2, 91}, {673, 18},
 {3, 12}, {72, 10}, {121, 26}, {127, 746}

Her iki giriş de tek tamsayı ise veya her iki giriş de aynı pozitif tamsayı ise, çıkış her zaman falsey olur. Diğer falsey test vakaları:

{8, 5}, {7, 5}, {27, 47}, {53, 11}, {13, 123}, {75, 77}, {163, 160}, {148, 53},
 {225, 178}, {285, 169}, {39, 51}, {207, 334}, {153, 21}, {390, 128}, {506, 584},
 {626, 370}, {819, 354}

Bu kod golf , çok az bayt kazanır!

Jöle , 7 bayt

Æ!ṠḄ&/¬

Çevrimiçi deneyin!

Nasıl çalışır

Æ!ṠḄ&/¬  Main link. Argument: (x, y) (pair of integers)

Æ!       Convert x and y to factorial base.
  Ṡ      Apply the sign function to each digit.
   Ḅ     Unbinary; convert each resulting Boolean array from base 2 to integer.
    &/   Reduce the resulting pair of integers by bitwise AND.
      ¬  Take the logical NOT of the result.

Python 3 , 93 91 bayt

lambda a,b:k(a)&k(b)=={0}
k=lambda t,n=1,a=1:{t}&{0}or a*n>t and{a-1}|k(t-n)or k(t,n*a,a+1)

Çevrimiçi deneyin!

Python 2 , 47 bayt

h=lambda a,b,d=2:a<1or a%d*(b%d)<h(a/d,b/d,d+1)

Çevrimiçi deneyin!

JavaScript (ES6), 71 bayt

(a,b,g=(n,e=1,f=1)=>n>=f&&g(n,++e,f*e)+((n/f|0)%e&&1<<e))=>!(g(a)&g(b))

JavaScript'in tam sayıları 18 bitle sınırlıdır, bu 18 için yeterlidir ;; Bu, hangi faktöriyelerin gerekli olduğunu izlemek için 18 bitlik bir maske kullanabileceğim anlamına gelir.

PHP, 109 Bayt

for(;$a?:$a=$argv[++$i];$a-=$r[$i][]=$f,$i<2?:$t+=in_array($f,$r[1]))for($c=$f=1;($a/$f*=$c)>=++$c;);echo!$t;

Çevrimiçi deneyin!

Mathematica, 73 bayt

F[x_]:=First@IntegerPartitions[x,99,Range[99]!];!IntersectingQ[F@#,F@#2]&

giriş formu

[X1, x2]

C, 122119 bayt

G(q,i){return gamma(q+1)>i?gamma(q):G(q+1,i);}
Q(a,b,u,v){while(a&&b){a-=u=G(1,a);b-=v=G(1,b);if(a==b)exit();}exit(0);}

Qana işlevdir. Tam olarak iki pozitif tamsayı değeri ile çağrılmalıdır. Bir ile bu çıkışların çıkış kodunun ait 0truthy ve 1falsy için.

Bu TIO üzerinde çalışmıyor gibi görünse de, sağlanan Homebrew ile sistemim üzerinde çalışıyor gcc 7.1.0.

Ben de golfed değil Cgolf ipuçları çok takdir böylece, uzunca bir süre içinde!