The Computer Language
Benchmarks Game

regex-redux C# .NET Core #7 program

source code

/* The Computer Language Benchmarks Game
   http://benchmarksgame.alioth.debian.org/
 *
 * contributed by Jimmy Tang
 * modified by Josh Goldfoot
 */

using System;
using System.IO;
using System.Linq;
using System.Text;
using System.Threading;
using System.Collections.Generic;
using System.Text.RegularExpressions;

class regexredux
{
    static string readStdIn(out int seqLength, out int inputLength)
    {
        StringBuilder sb = new StringBuilder(10000000);
        int commentLength = 0;
        String line;
        using (var r = new StreamReader(Console.OpenStandardInput()))
        {
            while ((line = r.ReadLine()) != null)
            {
                if (line[0] == '>')
                    commentLength += line.Length + 1;
                else
                {
                    sb.Append(line);
                    commentLength += 1;
                }
            }
        }
        seqLength = sb.Length;
        inputLength = seqLength + commentLength;
        return sb.ToString();
    }

    static void Main()
    {
        int seqLength, initialLength;
        var sequence = readStdIn(out seqLength, out initialLength);

        string[] variants = {
           "agggtaaa|tttaccct"
          ,"[cgt]gggtaaa|tttaccc[acg]"
          ,"a[act]ggtaaa|tttacc[agt]t"
          ,"ag[act]gtaaa|tttac[agt]ct"
          ,"agg[act]taaa|ttta[agt]cct"
          ,"aggg[acg]aaa|ttt[cgt]ccct"
          ,"agggt[cgt]aa|tt[acg]accct"
          ,"agggta[cgt]a|t[acg]taccct"
          ,"agggtaa[cgt]|[acg]ttaccct"
        };

        var flags = variants.Select((v, i) =>
        {
            var flag = new ManualResetEvent(false);
            ThreadPool.QueueUserWorkItem(x =>
            {
                Regex r = new Regex(v);
                int count = 0;
                for (Match m = r.Match(sequence); m.Success; m = m.NextMatch()) count++;
                variants[i] += " " + count;
                flag.Set();
            });
            return flag;
        });
        var newSequenceFlag = new ManualResetEvent(false);
        string newSequence = "";
        ThreadPool.QueueUserWorkItem(x =>
        {
            var dict = new Dictionary<string, string> {
                {"B", "(c|g|t)"}, {"D", "(a|g|t)"},   {"H", "(a|c|t)"}, {"K", "(g|t)"},
                {"M", "(a|c)"},   {"N", "(a|c|g|t)"}, {"R", "(a|g)"},   {"S", "(c|g)"},
                {"V", "(a|c|g)"}, {"W", "(a|t)"},     {"Y", "(c|t)"} 
            };
            newSequence = new Regex("[WYKMSRBDVHN]").Replace(sequence, m => dict[m.Value]);
            newSequenceFlag.Set();
        });
        WaitHandle.WaitAll(flags.ToArray());
        newSequenceFlag.WaitOne();

        Console.WriteLine(string.Join("\n", variants));
        Console.WriteLine("\n{0}\n{1}\n{2}", initialLength, seqLength, newSequence.Length);

    }


}
    

notes, command-line, and program output

NOTES:
64-bit Ubuntu quad core
2.0.0 cdcd1928c9
"System.GC.Server": true


Mon, 14 Aug 2017 20:41:21 GMT

MAKE:
cp regexredux.csharpcore-7.csharpcore Program.cs
cp Include/csharpcore/tmp.csproj .
cp Include/csharpcore/runtimeconfig.template.json .
mkdir obj
cp Include/csharpcore/tmp.csproj.nuget.g.props ./obj
cp Include/csharpcore/tmp.csproj.nuget.g.targets ./obj
/usr/bin/dotnet build -c Release
Microsoft (R) Build Engine version 15.3.409.57025 for .NET Core
Copyright (C) Microsoft Corporation. All rights reserved.

  tmp -> /home/dunham/benchmarksgame_quadcore/regexredux/tmp/bin/Release/netcoreapp2.0/tmp.dll

Build succeeded.
    0 Warning(s)
    0 Error(s)

Time Elapsed 00:00:03.62

6.31s to complete and log all make actions

COMMAND LINE:
/usr/bin/dotnet ./bin/Release/netcoreapp2.0/tmp.dll 0 < regexredux-input50000.txt

UNEXPECTED OUTPUT 

13c13
< 668262
---
> 273927

PROGRAM OUTPUT:
agggtaaa|tttaccct 3
[cgt]gggtaaa|tttaccc[acg] 12
a[act]ggtaaa|tttacc[agt]t 43
ag[act]gtaaa|tttac[agt]ct 27
agg[act]taaa|ttta[agt]cct 58
aggg[acg]aaa|ttt[cgt]ccct 16
agggt[cgt]aa|tt[acg]accct 15
agggta[cgt]a|t[acg]taccct 18
agggtaa[cgt]|[acg]ttaccct 20

508411
500000
668262