Re^2: Golf for unique digits

[LanX]

as a compensation a new approach: =)

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

EDIT: shortened the say away...