- Notifications
You must be signed in to change notification settings - Fork 1.6k
/
Copy pathKolakoskiSequence.cs
46 lines (42 loc) · 1.13 KB
/
KolakoskiSequence.cs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
usingSystem.Collections.Generic;
usingSystem.Numerics;
namespaceAlgorithms.Sequences;
/// <summary>
/// <para>
/// Kolakoski sequence; n-th element is the length of the n-th run in the sequence itself.
/// </para>
/// <para>
/// Wikipedia: https://en.wikipedia.org/wiki/Kolakoski_sequence.
/// </para>
/// <para>
/// OEIS: https://oeis.org/A000002.
/// </para>
/// </summary>
publicclassKolakoskiSequence:ISequence
{
/// <summary>
/// Gets Kolakoski sequence.
/// </summary>
publicIEnumerable<BigInteger>Sequence
{
get
{
yieldreturn1;
yieldreturn2;
yieldreturn2;
varqueue=newQueue<int>();
queue.Enqueue(2);
varnextElement=1;
while(true)
{
varnextRun=queue.Dequeue();
for(vari=0;i<nextRun;i++)
{
queue.Enqueue(nextElement);
yieldreturnnextElement;
}
nextElement=1+nextElement%2;
}
}
}
}