as a compensation a new approach: =)

> perl -ple'$_=join"",sort split//;y///cs;$_=length'
1987
4
1988
3
2012
3
2013
4
[download]

EDIT: shortened the say away...