用perl完成练习题：Minimum Scalar Product

Mr-Summer

https://code.google.com/codejam/contest/32016/dashboard#s=p0
Google Code Jam 上的练习题目（计算给定2个数组的两两乘积和的最小值），想用Perl试一下但是不知道结果为啥不对，求解惑。

1. open IN,"D:/Home/Perl/Google Code Jam/A-small-practice.in";
   
2. open OUT, ">","D:/Home/Perl/Google Code Jam/A-small-practice.out";
   
3. $test_case_num = <IN>;
   
4. $n = 0;
   
5. for(1..$test_case_num){
   
6.         $result = 0;
   
7.         $m = 0;
   
8.         $n ++;
   
9.         $row = <IN>;
   
10.         $line_1 =<IN>;
    
11.         $line_2 = <IN>;
    
12.         @arr_1 = split(/ / , $line_1);
    
13.         @arr_2 = split(/ / , $line_2);
    
14.         @arr_1 = sort @arr_1;
    
15.         @arr_2 = sort @arr_2;
    
16.         @arr_2 = reverse @arr_2;
    
17.         for( 1..$row){
    
18.                 $result = $result + $arr_1[$m]*$arr_2[$m];
    
19.                 $m++;
    
20.         }
    
21.     printf OUT ("Case #%d: %d\n",$n,$result);
    
22. }
    
23. close IN;
    
24. close OUT;

复制代码

climby

初看有如下几个地方的问题：
1. 从文件中读取行后未chomp掉行尾的回车
2. split 中第一个参数直接使用空格， 如果用 /\s+/ 的通用性应该更好
3. printf 函数使用错误，要么所有参数都放到 ()中，要门完全不要括号。

kk861123

回复 1# Mr-Summer


    首先可以确定的是你的sort用错了，对数字排序是这样：

1. sort { $a <=> $b} @array;

复制代码

Mr-Summer

kk861123 发表于 2013-03-30 15:36
回复 1# Mr-Summer

谢谢，确实是sort使用错误了。

1. @arr_1 = sort { $a <=> $b} @arr_1;
   
2.         @arr_2 = sort { $b <=> $a} @arr_2;
   
3. 这样答案就对了

复制代码

Mr-Summer

回复 3# kk861123
因为写perl只是拿来验证思路，最后还是要改成熟悉的C或者JAVA的，所以写的时候会很不规范，1,2我以后会注意一下的，3我就看不懂了