计算十年出现次数

Question

INFILE:

1   3
2   3
3   3
4   3
8   3
9   3
12  3
14  3
18  3
19  3
20  3
25  3
26  3
27  3
28  3
30  3
31  3
32  3
36  3
38  3
101 3
109 3

一旦我知道一个班轮计算十年的发生率.例如5月30日...我希望你现在这样做.一个python脚本会很棒.

期望的输出:

0    6
1    4
2    5
3    4
10    2

Answer 1

使用Perl,使用哈希:

use warnings;
use strict;

my %decs;
while (<DATA>) {
    my ($n) = /([0-9]+)/;
    my $x = int($n / 10);
    $decs{$x}++;
}
print "$_ $decs{$_}\n" for sort { $a <=> $b } keys %decs;

__DATA__
1   3
2   3
3   3
4   3
8   3
9   3
12  3
14  3
18  3
19  3
20  3
25  3
26  3
27  3
28  3
30  3
31  3
32  3
36  3
38  3
101 3
109 3

输出:

0 6
1 4
2 5
3 5
10 2