小编Jak*_*yer的帖子

Perl6的新手,试图找出我在这里做错了什么.问题是一个简单的校验和,它取csv中每行的最大值和最小值的差值

它返回的最大值和最小值完全错误.对于csv中的第一行,它返回max为71,min为104,这是不正确的.

这是repo 的链接以供参考,以及指向相应问题的链接.

#!/usr/bin/env perl6

use Text::CSV;

sub checksum {
    my $sum = 0;
    my @data = csv(in => "input.csv");
    for @data -> @value {
        $sum += (max @value) - (min @value);
    }
    say $sum;
}

checksum