우리는 정의 의 유클리드 분할의 나머지의리스트로서 에 의해 , , 및 .
정수 주어 하면 정수가 존재하는지 알아 내야 지도록을 의 순열 .
대한 기준이 충족됩니다 .
대한 기준이 충족되지 않습니다 .
정말로 를 계산해야 합니까? 아마도 요 아니면 아닐 수도 있습니다.
k 가 존재 하는 일부 값 :
3, 4, 5, 8, 30, 100, 200, 2019
의 일부 값 하는 존재하지 않습니다
0, 1, 2, 13, 19, 48, 210, 1999
답변:
s=scan()%%c(2,3,5,7);i=which(s<c(0,2,3,5));any(s[i]-s[i-1])주세페 덕분에 -4 바이트
(설명에는 k 를 계산하지 않고 문제를 해결하는 방법에 관한 스포일러가 포함되어 있습니다. .)
설명 :하자 나머지의 목록을합니다. s [1] <2, s [2] <3, s [3] <5 및 s [4] <7의 제한 조건에 유의하십시오. 에 의해 , 중국 잉여 정리 하는 존재 의 순열이 IFF에 구별, 제약 조건을 확인합니다. 실제로 다음 조건 중 하나가 확인되면 확인됩니다.
n=>n%7<5&5<n%35|n%5<3&3<n%15|-~n%6>3@RobinRyder의 솔루션을 기반으로하는 @xnor의 답변의 직접 포트.
@ Ørjan Johansen 덕분에 4 바이트가 절약되었습니다!
@Arnauld 덕분에 2 개 더 절약되었습니다!
-~n%6/4>0단지 -~n%6>3?
lambda n:n%5!=n%7<5or n%3!=n%5<3or-~n%6/4Robin Ryder 와 동일한 특성을 사용합니다 . 확인 n%2!=n%3<2이로 단축되었습니다 -~n%6/4. 세 가지 조건을 작성하는 것이 일반적인 조건을 작성하는 것보다 짧았습니다.
46 바이트
lambda n:any(n%p!=n%(p+1|1)<p for p in[2,3,5])!FreeQ[Sort/@Table[R[#+k],{k,209}],Sort@R@#]&
R@n_:=n~Mod~{2,3,5,7}
Or@@(Min[s-#]>0&/@Rest@Permutations@Mod[#,s={2,3,5,7}])&
입력 모듈로 2, 3, 5, 7의 나머지에 대한 모든 비 식별 순열을 찾아 {2,3,5,7}각 좌표에서 아래 에 있는지 확인합니다 . 그 주 Or@@{}입니다 False.
while($y<3)if($argn%($u='235'[$y])!=($b=$argn%'357'[$y++])&$b<$u)die(T);@Robin Ryder의 답변 에 대한 리프 . 입력은을 통해 이루어지며 STDIN출력은 'T'진실한 경우, 거짓이면 비어 ''있습니다.
$ echo 3|php -nF euc.php
T
$ echo 5|php -nF euc.php
T
$ echo 2019|php -nF euc.php
T
$ echo 0|php -nF euc.php
$ echo 2|php -nF euc.php
$ echo 1999|php -nF euc.php1또는 0응답이있는 73 바이트while($y<3)$r|=$argn%($u='235'[$y])!=($b=$argn%'357'[$y++])&$b<$u;echo$r;
$ echo 2019|php -nF euc.php
1
$ echo 1999|php -nF euc.php
0function($n){while(++$k<210)if(($r=function($n){foreach([2,3,5,7]as$d)$o[]=$n%$d;sort($o);return$o;})($n+$k)==$r($n))return 1;}Ƶ.L+ε‚ε4Åp%{}Ë}à
온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오 .
설명:
Ƶ.L # Create a list in the range [1,209] (which is k)
+ # Add the (implicit) input to each (which is n+k)
ε # Map each value to:
‚ # Pair it with the (implicit) input
ε # Map both to:
4Åp # Get the first 4 primes: [2,3,5,7]
% # Modulo the current number by each of these four (now we have R_n and R_n+k)
{ # Sort the list
}Ë # After the inner map: check if both sorted lists are equal
}à # After the outer map: check if any are truthy by taking the maximum
# (which is output implicitly as result)내이 05AB1E 팁을 참조하십시오 (섹션 얼마나 큰 정수를 압축하는 방법을? ) 이유를 이해하는 Ƶ.것입니다 209.
8ÆR©PḶ+%Ṣ¥€®ċḢ$
골퍼 답변이 있다고 확신합니다. 나는 진실한 값을 0이 아닌 것으로 해석 했으므로 k의 가능한 값의 수입니다. 추가 바이트가 필요한 두 개의 고유 값이어야하는 경우.
8ÆR | Primes less than 8 [2,3,5,7]
© | Copy to register
P | Product [210]
Ḷ | Lowered range [0, 1, ..., 208, 209]
+ | Add to input
¥€ | For each of these 210 numbers...
% ® | Modulo 2, 3, 5, 7
Ṣ | And sort
ċḢ$ | Count how many match the first (input) number’s remainders
?젤리의 경우 - 다른 구조이며, 일부 언어 그것의 A에 대한 어려운 질문).
Ḣe$있습니다 :)