<commit_before>#!/usr/bin/perl

sub numerically { $a <=> $b; }

while(<>) {
    $report{$_} = $report{$_} + 1;
}

while( ($key,$value) = each(%report) ) {
    push @report, ("$value - $key");
}

$"="\n";

print reverse sort numerically @report;<commit_msg>Applying patch from https://github.com/hen/bin/issues/1<commit_after>#!/usr/bin/perl

sub numerically { $a <=> $b; }

while(<>) {
    $report{$_} = $report{$_} + 1;
}

$total=0;

while( ($key,$value) = each(%report) ) {
    push @report, ("$value - $key");
    $total += $value;
}

$"="\n";

print reverse sort numerically @report;

print "\nAuthors: ". keys(%report) . "\n";
print "Total: ${total}\n";
{'fraction_non_alphanumeric': 0.25379939209726443, 'fraction_numerical': 0.0060790273556231, 'mean_word_length': 3.81021897810219, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 1, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5776940', 'n_tokens_mistral': 271, 'n_tokens_neox': 254, 'n_words': 56}