http://www.perlmonks.org?node_id=1012457


in reply to Golf for unique digits

choroba's method with ampersands and removing variable 
perl -E'2213=~/$_/&&$c++for 0..9;say$c'

[download]
A Monk aims to give answers to those who have none, and to learn from those who know more.

Replies are listed 'Best First'.
Re^2: Golf for unique digits
by trizen (Hermit) on Jan 09, 2013 at 18:28 UTC
    Even shorter: perl -E'say~~grep+2013=~$_,0..9'
[reply]
[d/l]

In Section Seekers of Perl Wisdom