Select Code to Download

#! perl -slw
use strict;
...

print nUniqC '1010101010';
print nUniqC '1234567812';

sub nUniqC{
    my @uniq;
    scalar grep{ ++$uniq[$_] == 1 } unpack('C*',$_[0]);
}

sub nUniqC{
    scalar grep{ ++$_[$_] == 1 } unpack('C*',$_[0]);
}