我々は定義のユークリッド除算の剰余のリストとしてによって、、、および。
整数所与の整数が存在する場合、あなたが把握する必要がなるようにの順列である。
次の理由により、の基準が満たされます。
次の理由により、の基準は満たされていません。
本当にを計算する必要がありますか？まあ、多分。またはそうでないかもしれません。
いくつかの値れる存在します。
3, 4, 5, 8, 30, 100, 200, 2019
いくつかの値れる存在しません。
0, 1, 2, 13, 19, 48, 210, 1999
回答:
n=>n%7<5&5<n%35|n%5<3&3<n%15|-~n%6>3@RobinRyderのソリューションに基づいた@xnorの回答の直接ポート。
@ØrjanJohansenのおかげで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ます。3つの条件を記述することは、一般的な条件を記述するよりも短くなりました。
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Ḷ+%Ṣ¥€®ċḢ$
ゴルファーの答えがあると確信しています。真理値はゼロではないものと解釈したので、ここではkの可能な値の数です。2バイトの明確な値が必要な場合、さらにバイトがかかります。
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
?Jellyのif-elseコンストラクトです;一部の言語では難しい質問）。
Ḣe$望むなら、無料で明確な値を得ることができます:)