Select Code to Download

# Modification: our (%by_count, %by_word);
$ time perl choroba_mod.pl big1.txt big2.txt big3.txt >oo1.txt
...
# Verify correctness:
$ diff cpp.tmp oo1.txt  # choroba
$ diff cpp.tmp oo2.txt  # MCE  4 workers

#!/usr/bin/env perl
# https://www.perlmonks.org/?node_id=11148465
...

warn "final sort + output: ", $tend2 - $tstart2, " secs\n";
warn "total: ", $tend2 - $tstart1, " secs\n";