Google Code Jam 2011 资格赛题目，用perl做了前两道

mitiao

Google Code Jam 2011 资格赛有4道题，貌似几乎没有用perl解题的。试着用perl解了前两道题，写的不好，大家看看。。。
题目描述和数据文件在此http://code.google.com/codejam/contest/dashboard?c=975485#

第一题代码：

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use List::Util qw(max);
   
4. 
   
5. open FIL, $ARGV[0];
   
6. my $n = 1;
   
7. while (<FIL>) {
   
8.     if ($_ =~ /[OB]/) {
   
9.         my $last_press = 0;
   
10.         my ($Olast, $Blast) = (1, 1);
    
11.         my ($Otime, $Btime) = (0, 0);
    
12.         while ($_ =~ /([OB])\s(\d+)/g) {
    
13.             if ($1 eq "O") {
    
14.                 my $Odiff = abs($2 - $Olast);
    
15.                 $Olast = $2;
    
16.                 $Otime = $Otime + $Odiff;
    
17.                 $Otime = max $Otime, $last_press;
    
18.                 $Otime = $Otime + 1;
    
19.                 $last_press = $Otime;
    
20.             }
    
21.             if ($1 eq "B") {
    
22.                 my $Bdiff = abs($2 -$Blast);
    
23.                 $Blast = $2;
    
24.                 $Btime = $Btime + $Bdiff;
    
25.                 $Btime = max $Btime, $last_press;
    
26.                 $Btime = $Btime + 1;
    
27.                 $last_press = $Btime;
    
28.             }
    
29.         }
    
30.         printf "Case #%d: %d\n", $n, $last_press;
    
31.         $n++;
    
32.     }
    
33. }
    
34. close FIL;

复制代码

第二题代码：

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open FIL, "$ARGV[0]";
   
5. my $n = 1;
   
6. while (<FIL>){
   
7.     if ($. != 1){
   
8.         my ($c, $d, $string);
   
9.         my @combin = ();
   
10.         my @oppose = ();
    
11.         my @string = ();
    
12.         my @line = split(' ', $_);
    
13.         $c = $line[0];
    
14.         $d = $line[$c + 1];
    
15.         @combin = @line[1..$c] if ($c ne "0");
    
16.         @oppose = @line[($c+2)..($c+$d+1)] if ($d ne "0");
    
17.         $string = $line[-1];
    
18.         @string = split('', $string);
    
19.         my @o = &invoke(\@combin, \@oppose, \@string);
    
20.         my $o = join(', ', @o);
    
21.         $o = "[".$o."]";
    
22.         printf "Case #%d: %s\n", $n, $o;
    
23.         $n++;
    
24.     }
    
25. }
    
26. close FIL;
    
27. 
    
28. sub invoke{
    
29.     my ($c, $o, $s) = @_;
    
30.     my @c = @$c;
    
31.     my @o = @$o;
    
32.     my @s = @$s;
    
33.     my @output = ();
    
34. 
    
35.     foreach (@s){
    
36.         push(@output, $_);
    
37.         if (length(@output > 1) && length(@c > 0)){
    
38.             foreach (@c){
    
39.                 my @pair = split('', substr $_, 0, 2);
    
40.                 @pair = sort(@pair);
    
41.                 my $t = substr $_, 2, 1;
    
42.                 if (join('', sort(@output[-2, -1])) eq join('', @pair)){
    
43.                     pop(@output);pop(@output);push(@output, $t);
    
44.                     last;
    
45.                 }
    
46.             }
    
47.         }
    
48.         if (length(@o > 0)){
    
49.             foreach (@o){
    
50.                 my @opp = split('', $_);
    
51.                 if (($opp[0] ~~ @output) && ($opp[-1] ~~ @output)){
    
52.                     @output = ();
    
53.                     last;
    
54.                 }
    
55.             }
    
56.         }
    
57.     }
    
58.     return @output;
    
59. }

复制代码

zhlong8

算法和语言没太大关系吧，只要别用 bf 那些变态的语言。

mitiao

回复 2# zhlong8
嗯，是没关系，只是想用perl做做。。。