communary.ps1

param([Parameter(Position = 0)][string] $Path = 'C:\Users\grave\Downloads\ChessData-master\')
$code = @{
    Name = 'ResultCounter'
    Namespace = 'ChessData'
    PassThru = $true
    UsingNamespace = @(
        'System.Collections.Concurrent',
        'System.IO',
        'System.Threading.Tasks'
    )
    MemberDefinition = @'
        public static ConcurrentDictionary<string, int> ProcessChessFiles(string path)
        {
            ConcurrentDictionary<string, int> result = new ConcurrentDictionary<string, int>();
            string tie = "1/2-1/2";
            string black = "0-1";
            string white = "1-0";
            string lineResult = "[Result";
            Parallel.ForEach<string>(Directory.EnumerateFiles(path, "*.pgn", SearchOption.AllDirectories), filename =>
            {
                using (StreamReader sr = new StreamReader(filename))
                {
                    string line;
                    while ((line = sr.ReadLine()) != null)
                    {
                        if ((line.Length - line.Replace(lineResult, String.Empty).Length) / lineResult.Length == 1)
                        {
                            if ((line.Length - line.Replace(white, String.Empty).Length) / white.Length == 1)
                            {
                                result.AddOrUpdate("White", 1, (k, v) => v + 1);
                            }
                            else if ((line.Length - line.Replace(tie, String.Empty).Length) / tie.Length == 1)
                            {
                                result.AddOrUpdate("Tie", 1, (k, v) => v + 1);
                            }
                            else if ((line.Length - line.Replace(black, String.Empty).Length) / black.Length == 1)
                            {
                                result.AddOrUpdate("Black", 1, (k, v) => v + 1);
                            }
                        }
                    }
                }
            });
            return result;
        }
'@
}
$CompilerParams = [System.CodeDom.Compiler.CompilerParameters]::new()
$CompilerParams.CompilerOptions = "/optimize+ /warn:0"
$class = Add-Type @code -CompilerParameters $CompilerParams |Select-Object -First 1
Measure-Command {
    $res = $class::ProcessChessFiles($Path)
}
$res | Format-Table

I tried several iterations of compiled code, only to come to the conclusion that Mathias (@IISResetMe)
had a close to perfect implementation (as far as I could tell). So I decided to take his code and
shave a couple of extra seconds from it, and I think I succeeded.

My notable changes are:

• skipped converting ConcurrentDictionary to HashTable
• replaced his string matching to a more efficient one
• skipped logic to only add the custom class if it was not already loaded
• skipped the internal Measure-Command
• fixed it so that it counts correctly ;)

Hope you don't mind Mathias :)

• Øyvind Kallstad (@okallstad) - https://communary.wordpress.com/

Added the internal Measure-Command back in :)