【问题】$K 的 INDEX 是几？

tadegenban

写成c一样就是好懂的代码吗？我不觉得你后面的写法有多清楚易懂

tadegenban

sub SUM {
    my $str = shift;
    my @chars = split(//, $str);
    my $sum;
    for my $char ( @chars ){
        $sum = $sum + $char;
    }
    return $sum;
}

我一般这么写

pitonas

楼主这一般写法, 代码不是那么的一般
给楼主一个赞 ~ {:2_172:}

回复 12# tadegenban


   

flw

看不懂不是 Perl 的错。
楼主都没有交代清楚背景，语言组织也有问题。

我猜测一下，如果楼主说的 INDEX 是某个专业术语的话，那别人就根本不可能看懂了。

pitonas

my $算法;
please come here.
16楼
http://bbs.chinaunix.net/thread-4150152-2-1.html
回复 10# ssfjhh


   

tadegenban

回复 13# pitonas


    @@看不懂

pitonas

写法正派, 作风正派 {:2_172:} ~
给楼主一个赞 ~ {:2_172:}


回复 16# tadegenban


   

pitonas

i said:

1. 这是说，INDEX 是 数组 @b 的 index, 不是 数组 @a 的 index

复制代码

1. my @a = 1 .. $N;
   
2. my @b = map { $_->[0] }
   
3.         sort { $a->[1] <=> $b->[1] || $a->[0] cmp $b->[0] } # cmp !!
   
4.         map { [ $_, SUM($_) ] } @a;

复制代码

回复 14# flw


   

tadegenban

回复 17# pitonas


    楼主是你啊:wink:

ssfjhh

回复 15# pitonas


    @我我也看不懂。看到perl代码就很受打击。