1より大きい整数を指定すると、1つ以上の連続する素数の合計として表現できるウェイの数を出力します。
被加数の順序は関係ありません。合計は単一の数値で構成できます（したがって、素数の出力は少なくとも1になります）。
これはcode-golfです。標準ルールが適用されます。
シーケンス自体OEIS A054845を含む関連情報およびシーケンスについては、このOEIS wikiを参照してください。
2 => 1
3 => 1
4 => 0
5 => 2
6 => 0
7 => 1
8 => 1
10 => 1
36 => 2
41 => 3
42 => 1
43 => 1
44 => 0
311 => 5
1151 => 4
34421 => 6
回答:
function(x,P=2){for(i in 2:x)P=c(P,i[all(i%%P)])
for(i in 1:x){F=F+sum(cumsum(P)==x)
P[i]=0}
F}xです！
cumsumため0に最初のいくつかの要素を使用して設定することについて、私には本当に手がかりがありませんでした。プライムゴルフは、最後のテストケースを機能させようとしているだけで、運がよかったouterです！少なくとも十分な担当者がいるので（少なくとも適切な担当者の要件が得られるまで）、より多くのRゴルファーがより多くの可視性を獲得できるように支援することを常に嬉しく思います！
n=>(a=[],k=1,g=s=>k>n?0:!s+g(s>0?s-(p=d=>k%--d?p(d):d<2&&a.push(k)&&k)(++k):s+a.shift()))(n)n => ( // n = input
a = [], // a[] = array holding the list of consecutive primes
k = 1, // k = current number to test
g = s => // g = recursive function taking s = n - sum(a)
k > n ? // if k is greater than n:
0 // stop recursion
: // else:
!s + // increment the final result if s = 0
g( // add the result of a recursive call to g():
s > 0 ? // if s is positive:
s - ( // subtract from s the result of p():
p = d => k % --d ? // p() = recursive helper function looking
p(d) // for the highest divisor d of k,
: // starting with d = k - 1
d < 2 && // if d is less than 2 (i.e. k is prime):
a.push(k) && // append k to a[]
k // and return k (else: return false)
)(++k) // increment k and call p(k)
: // else:
s + a.shift() // remove the first entry from a[]
// and add it to s
) // end of recursive call
)(n) // initial call to g() with s = nEZqPYTRYsG=z
初期値E（2で乗算）は、素数入力に対して、後の結果を確実にします。Ys（cumsum）のに、行列のゼロ部分で繰り返される入力素数がないことを確認します（したがって、カウントを混乱させます）。
% Implicit input, say 5
E % Double the input
Zq % Get list of primes upto (and including) that
% Stack: [2 3 5 7]
P % Reverse that list
YT % Toeplitz matrix of that
% Stack: [7 5 3 2
5 7 5 3
3 5 7 5
2 3 5 7]
R % `triu` - upper triangular portion of matrix
% Stack: [7 5 3 2
0 7 5 3
0 0 7 5
0 0 0 7]
Ys % Cumulative sum along each column
% Stack: [7 5 3 2
7 12 8 5
7 12 15 10
7 12 15 17]
G= % Compare against input - 1s where equal, 0s where not
z % Count the number of non-zeros
{⟦ṗˢs+?}ᶜ
（@Kroppebのおかげで、全体で5バイト！）
{⟦ṗˢs+?}ᶜ
{ }ᶜ Count the number of ways this predicate can succeed:
⟦ Range from 0 to input
ṗˢ Select only the prime numbers
s The list of prime numbers has a substring (contiguous subset)
+ Whose sum
? Is the input
;?=by ?を置き換えて取得できることに{⟦ṗˢs+?}ᶜ
.+
$*_$&$*
_
$`__¶
A`^(__+)\1+$
m)&`^((_)|¶)+¶[_¶]*(?<-2>1)+$(?(2)1)
オンラインでお試しください！リンクには、より高速なテストケースが含まれています。説明：
m)
どこ複数行モードで全体のスクリプトを実行^し、$すべての行に一致します。
.+
$*_$&$*
最初に_s を使用してからs を使用して、単項式に2回変換し1ます。
_
$`__¶
_
A`^(__+)\1+$
範囲内のすべての合成数を削除します。
&`^((_)|¶)+¶[_¶]*(?<-2>1)+$(?(2)1)
__1
Mr.Xcoderのおかげで-1バイト（の¹代わりに名前付き引数を使用S）！
#¹ṁ∫ṫ↑İp
#¹ṁ∫ṫ↑İp -- example input: 3
#¹ -- count the occurrences of 3 in
İp -- | primes: [2,3,5,7..]
↑ -- | take 3: [2,3,5]
ṫ -- | tails: [[2,3,5],[3,5],[5]]
ṁ -- | map and flatten
∫ -- | | cumulative sums
-- | : [2,5,10,3,8,5]
-- : 1
#¹ṁ∫ṫ↑İp1バイトを節約する必要があります。
:"GZq@:g2&Y+G=vs
:" % Input (implicit): n. For each k in [1 2 ... n]
G % Push n
Zq % Primes up to that
@:g % Push vector of k ones
2&Y+ % Convolution, removing the edges
G= % True for entries that equal n
v % Concatenate vertically with previous results
s % Sum
% End (implicit). Display (implicit)
P=k=o=1
p=[]
i=input()
exec'o+=P%k*sum(p)==i;P*=k*k;k+=1;p+=P%k*[k];exec"p=p[i<sum(p):];"*k;'*i
print~-oimport StdEnv,StdLib
$n=sum[1\\z<-inits[i\\i<-[2..n]|all(\j=i/j*j<i)[2..i-1]],s<-tails z|sum s==n]
$ :: Int -> Int以下で説明するように機能する関数を定義します。
$ n // the function $ of n is
= sum [ // the sum of
1 // 1, for every
\\ z <- inits [ // prefix z of
i // i, for every
\\ i <- [2..n] // integer i between 2 and n
| and [ // where every
i/j*j < i // j does not divide i
\\ j <- [2..i-1] // for every j between 2 and i-1
]
]
, s <- tails z // ... and suffix s of the prefix z
| sum s == n // where the sum of the suffix is equal to n
]
（説明は古いが論理的に同一のバージョン用です）
{+grep $_,map {|[\+] $_},[\R,] grep *.is-prime,2..$_}三角形の縮小演算子を2回使用します。最後のテストケースは、TIOには遅すぎます。
{ } # Anonymous block
grep *.is-prime,2..$_ # List of primes up to n
[\R,] # All sublists (2) (3 2) (5 3 2) (7 5 3 2) ...
map {|[\+] $_}, # Partial sums for each, flattened
+grep $_, # Count number of occurrencesこれよりも短い方法があります！
最後のテストケースを除外します。
õ fj x@ZãYÄ x@¶Xx
:Implicit input of integer U
õ :Range [1,U]
fj :Filter primes
@ :Map each integer at 0-based index Y in array Z
YÄ : Y+1
Zã : Subsections of Z of that length
@ : Map each array X
Xx : Reduce by addition
¶ : Check for equality with U
x : Reduce by addition
x :Reduce by addition
n->{var L=new java.util.Stack();int i=1,k,x,s,r=0;for(;i++<n;){for(k=1;i%++k>0;);if(k==i)L.add(i);}for(x=L.size(),i=0;i<x;)for(k=i++,s=0;k<x;r+=s==n?1:0)s+=(int)L.get(k++);return r;}@ceilingcatのおかげで-1バイト。@SaraJの
おかげで-10バイト。
説明：
n->{ // Method with integer as both parameter and return-type
var L=new java.util.Stack();
// List of primes, starting empty
int i=1,k,x,s, // Temp integers
r=0; // Result-counter, starting at 0
for(;i++<n;){ // Loop `i` in the range [2, `n`]
for(k=1; // Set `k` to 1
i%++k>0;); // Inner loop which increases `k` by 1 before every iteration,
// and continues as long as `i` is not divisible by `k`
if(k==i) // If `k` is now still the same as `i`; a.k.a. if `i` is a prime:
L.add(i);} // Add the prime to the List
for(x=L.size(), // Get the amount of primes in the List
i=0;i<x;) // Loop `i` in the range [0, amount_of_primes)
for(s=0, // (Re)set the sum to 0
k=i++;k<x; // Inner loop `k` in the range [`i`, amount_of_primes)
r+=s==n? // After every iteration, if the sum is equal to the input:
1 // Increase the result-counter by 1
: // Else:
0) // Leave the result-counter the same by adding 0
s+=(int)L.get(k++);
// Add the next prime (at index `k`) to the sum
return r;} // And finally return the result-counterそれは、基本的に似てゼリーや05AB1E答え、ちょうど190バイト詳細.. XDは
ちょうど楽しみのために追加の部品のそれぞれについて、ここでの比較、（およびJavaはとても冗長である理由を参照し、これらのゴルフ言語はとても強力であるため）。
n->{}[2, n]：（Jelly：2 bytes）ÆR; （05AB1E：2バイト）ÅP; （Java 10：95バイト）var L=new java.util.Stack();int i=1,k,x,s,r=0;for(;i++<n;){for(k=1;i%++k>0;);if(k==i)L.add(i);}Ẇ; （05AB1E：1バイト）Œ; （Java 10：55バイト）for(x=L.size(),i=0;i<x;)for(k=i++;k<x;)および(int)L.get(k++);§; （05AB1E：1バイト）O; （Javaの10：9バイト）,sと,s=0とs+=ċ; （05AB1E：2バイト）QO; （Java 10：15バイト）,r=0およびr+=s==n?1:0return r;218918行うことを考慮して、12.5秒tbhで実行できるほど高速であることには驚いてい218918-2 = 218,916ますn。すべての素数の繰り返し。偶数ごとに1回の反復。そして、[2,p/2)奇数ごとの反復の間（20億回に近い反復）のどこかに、その後19518、メモリ内のリストに素数を追加します。そしてsum([0,19518]) = 190,485,921、2番目のネストされたループでさらに数回ループします。正確には、合計2,223,570,640回の繰り返しです。
%iました。範囲内[2, n]でチェックしているので、トレーリングを引いたので、チェックする必要はありませんi=1。:)
->x:Count[Sum@Sublists[PrimeQ$$[…x]];x]
->x:Count[Sum@Sublists[PrimeQ$$[…x]];x] // Full program.
->x: // Define an anonymous function with parameter x.
[…x] // Range [0 ... x] (inclusive).
$$ // Filter-keep those that...
PrimeQ // Are prime.
Sublists[...] // Get all their sublists.
Sum@ // Then sum each sublist.
Count[...;x] // Count the number of times x occurs in the result.
g n=sum[1|a<-[0..n],_<-filter(n==).scanl1(+)$drop a[p|p<-[2..n],all((>0).mod p)[2..p-1]]]f n=length$do a<-[0..n];filter(n==).scanl1(+)$drop a[p|p<-[2..n],all((>0).mod p)[2..p-1]]
2æRと同じですÆR