Быстрая альтернатива Dictionary

string source = File.ReadAllText(@"d:\work\words\a.txt", Encoding.GetEncoding(1251));
Dictionary<string, int> Freq = new Dictionary<string, int>();
for (int i = 0; i < source.Length; i++)
{
    if (!Freq.ContainsKey(source.Substring(i, 1)))
        Freq.Add(source.Substring(i, 1), 0);
    Freq[source.Substring(i, 1)]++;
}

source.Substring(i, 1)

string source = File.ReadAllText(@"d:\work\words\a.txt", Encoding.GetEncoding(1251));
Dictionary<string, int> Freq = new Dictionary<string, int>();
for (int i = 0; i < source.Length; i++)
{
    if (!Freq.ContainsKey(source.Substring(i, 1)))
        Freq.Add(source.Substring(i, 1), 0);
    Freq[source.Substring(i, 1)]++;
}

string source = File.ReadAllText(@"c:\temp\1.txt", Encoding.GetEncoding(1251));
 
var s = new System.Diagnostics.Stopwatch();
                        
s.Start();
Dictionary<string, int> Freq = new Dictionary<string, int>();
for (int i = 0; i < source.Length; i++)
{
    if (!Freq.ContainsKey(source.Substring(i, 1)))
        Freq.Add(source.Substring(i, 1), 0);
    Freq[source.Substring(i, 1)]++;
}
s.Stop();
Console.WriteLine(s.ElapsedMilliseconds); //653
s.Reset();
 
s.Start();
Dictionary<char, int> Freq2 = new Dictionary<char, int>();
foreach (var c in source)
{
    if (!Freq2.ContainsKey(c))
        Freq2[c] = 0;
    Freq2[c] += 1;
}
s.Stop();
Console.WriteLine(s.ElapsedMilliseconds); //278
 
s.Reset();
s.Start();
var freq3 = source.GroupBy(x => x).Select(g => new { Key = g.Key, Val = g.Count() }).ToList();
s.Stop();
Console.WriteLine(s.ElapsedMilliseconds); //143
 
s.Reset();
s.Start();
var min = source.Min();
var max = source.Max();
 
var a = new int[max - min + 1];
 
foreach(var c in source)
{
    a[c - min] += 1;
}
 
Dictionary<char, int> Freq4 = new Dictionary<char, int>();
for (int i = 0; i < a.Length; i++)
{
    if (a[i] != 0)
    {
        Freq4[Convert.ToChar(min + i)] = a[i];
    }
}
 
s.Stop();
Console.WriteLine(s.ElapsedMilliseconds); //98

byte[] source = File.ReadAllBytes(@"d:\work\words\a.txt");
int[] Freq = new int[256];
foreach(byte code in source)
    Freq[code]++;

// Преобразование ASCII в string увеличивает объём минимум в два раза
string source = File.ReadAllText(@"d:\work\words\a.txt", Encoding.GetEncoding(1251));
 
Dictionary<string, int> Freq = new Dictionary<string, int>();
 
for (int i = 0; i < source.Length; i++)
{
    if (!Freq.ContainsKey(source.Substring(i, 1))) // Создаётся строка из ОДНОГО символа
        Freq.Add(source.Substring(i, 1), 0); // Создаётся второй раз строка из этого же символа
    Freq[source.Substring(i, 1)]++; // Создаётся третий раз строка из этого же символа
}