두 숫자를 계승으로 나눕니다. 공유하는 것이 있으면 잘못된 값을 반환하십시오. 그렇지 않으면 진실한 값을 반환하십시오. ( 이 최근 질문에서 영감을 얻음 )

다시 말해, 각 입력 숫자를 가장 합리적으로 계승 (양의 정수)의 합으로 쓰십시오. 두 표현에 계승이 나타나지 않으면 참 값을, 그렇지 않으면 거짓 값을 반환합니다.

예

주어진 20과 49 :

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

두 표현 모두에 계승이 나타나지 않으므로 진실한 값을 반환하십시오.

주어진 32와 132 :

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

삼! 두 표현에 모두 나타나므로 잘못된 값을 반환하십시오.

I / O

입력 및 출력은 모든 표준 수단을 통해 이루어질 수 있습니다 .

입력은 항상 음이 아닌 두 정수입니다. 언어에 필요한 것 이외의 정수에는 상한이 없습니다.

결과는 진실하거나 거짓된 값이어야합니다 . 모든 값이 정확하게 진실 / 거짓이면이 값이 다른 입력에 반드시 일치 할 필요는 없습니다.

테스트 사례

하나의 입력이 0인 경우 항상 정답입니다. 다른 진실한 테스트 사례 :

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

두 입력이 모두 홀수이거나 두 입력이 모두 양의 정수이면 출력은 항상 거짓입니다. 다른 잘못된 테스트 사례 :

{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}

이것은 code-golf 이므로 가장 적은 바이트가 이깁니다!

젤리 , 7 바이트

Æ!ṠḄ&/¬

온라인으로 사용해보십시오!

작동 원리

Æ!ṠḄ&/¬  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.

파이썬 3 , 93 91 바이트

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)

온라인으로 사용해보십시오!

파이썬 2 , 47 바이트

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

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 71 바이트

(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의 정수는 정밀도가 53 비트로 제한되어 있으며 18에 충분합니다.; 즉, 필요한 계승을 추적하기 위해 18 비트 마스크를 사용할 수 있습니다.

PHP, 109 바이트

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;

온라인으로 사용해보십시오!

수학, 73 바이트

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

입력 양식

[x1, x2]

C, 122 119 바이트

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);}

Q주요 기능입니다. 정확히 두 개의 양의 정수 값으로 호출해야합니다. 이것은 진실과 거짓 에 대한 종료 코드 로 종료됩니다 .01

이것은 TIO에서는 작동하지 않지만 Homebrew가 제공된 시스템에서 작동합니다 gcc 7.1.0.

나는 C꽤 오랫동안 골프를 치지 않았 으므로 골프 팁은 대단히 높이 평가됩니다!