如何找到字符串中的第一个非重复字符？ [关闭]

Question

我需要编写一个函数来返回字符串中的第一个非重复字符（不区分大小写）。例如，对于字符串"Thanks for visiting"，它应该返回"h"。

Answer 1

您可以传递字符串中的字符并将每个字符的计数（以不区分大小写的方式）存储在哈希中。然后再传一遍，返回第一个计数为 1 的字符：

sub get_char {
    my ($string) = @_;
    my @chars = split //, $string;
    my %chars;
    ++$chars{ lc() } for @chars;
    $chars{ lc() } == 1 && return $_ for @chars;
}

显然，这种方法需要O(n) 时间和O(n) 额外空间。

Answer 2

使用substr() 和index()：

sub get_it {
    my $string = shift;
    for my $i ( 0 .. length($string) - 1 ) {
        my $char = substr $string, $i, 1;
        return $char if index( $string, $char, $i + 1 ) >= 0;
    }
}

Answer 3

sub { 
    # This assumes non-repeating means consecutive-repeating.
    # non-consecutive-repeating is too boring to answer
    my $string_copy = $_[0];
    $string_copy =~ s/(.)(\1)+//g; 
    return substr($string_copy ,0, 1)
}