source code
/* The Computer Language Benchmarks Game
https://salsa.debian.org/benchmarksgame-team/benchmarksgame/
contributed by Ben Harshbarger
derived from the GNU C++ RE2 version by Alexey Zolotov
*/
use IO, Regex;
proc main(args: [] string) {
var 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 subst = [
("tHa[Nt]", "<4>"), ("aND|caN|Ha[DS]|WaS", "<3>"), ("a[NSt]|BY", "<2>"),
("<[^>]*>", "|"), ("\\|[^|][^|]*\\|", "-")
];
var data = stdin.readAll(string); // read in the entire file
const initLen = data.size;
// remove newlines
data = data.replace(new regex(">.*\n|\n"), "");
var copy = data; // make a copy so we can perform replacements in parallel
var results: [variants.domain] int;
sync {
// fire off a task to perform replacements
begin with (ref copy) {
for (f, r) in subst do
copy = copy.replace(new regex(f), r);
}
// count patterns
forall (pattern, result) in zip(variants, results) do
for m in (new regex(pattern)).matches(data) do
result += 1;
}
// print results
for (p,r) in zip(variants, results) do
writeln(p, " ", r);
writeln();
writeln(initLen);
writeln(data.size);
writeln(copy.size);
}
notes, command-line, and program output
NOTES:
64-bit Ubuntu quad core
chpl version 2.3.0
built with LLVM version 19.1.1
Copyright 2020-2024
Hewlett Packard
Enterprise Development LP
Copyright 2004-2019 Cray Inc.
Thu, 19 Dec 2024 02:20:37 GMT
MAKE:
mv regexredux.chapel-2.chapel regexredux.chapel-2.chpl
/opt/src/chapel-2.3.0/bin/linux64-x86_64/chpl --fast regexredux.chapel-2.chpl -o regexredux.chapel-2.chapel_run
rm regexredux.chapel-2.chpl
22.26s to complete and log all make actions
COMMAND LINE:
./regexredux.chapel-2.chapel_run --n=0 < regexredux-input5000000.txt
PROGRAM OUTPUT:
agggtaaa|tttaccct 356
[cgt]gggtaaa|tttaccc[acg] 1250
a[act]ggtaaa|tttacc[agt]t 4252
ag[act]gtaaa|tttac[agt]ct 2894
agg[act]taaa|ttta[agt]cct 5435
aggg[acg]aaa|ttt[cgt]ccct 1537
agggt[cgt]aa|tt[acg]accct 1431
agggta[cgt]a|t[acg]taccct 1608
agggtaa[cgt]|[acg]ttaccct 2178
50833411
50000000
27388361