新手perl问题求助

chenhao392

是的，难为你了
to楼上：
好的，我发给你

[ 本帖最后由 chenhao392 于 2007-2-9 00:00 编辑 ]

福瑞哈哥

原帖由 redspider 于 2007-2-8 22:19 发表

可否email一个 thank you
redspid@163.com

现在在家，手头没有。不过搂主不是搜到了吗，给redspider兄发一份吧。

xiaoshengcaicai

1. 
   
2. 
   
3. #!perl
   
4. use strict;
   
5. 
   
6. use Data::Dumper;
   
7. use constant MAX_DEPTH => 100;
   
8. 
   
9. my @array = (
   
10.     ['a','b'],
    
11.     ['a','c'],
    
12.     ['b','e'],
    
13.     ['b','f'],
    
14.     ['c','e'],
    
15.     ['c','f'],
    
16.     ['b','c'],
    
17.     ['e','f'],
    
18. );
    
19. 
    
20. #make graph map
    
21. my $map = {};
    
22. for (@array) {
    
23.     push @{ $map->{$_->[0]} }, $_->[1];
    
24. }
    
25. 
    
26. #print Dumper($map);
    
27. 
    
28. #start
    
29. my @result = ();
    
30. my $depth = 1;
    
31. my @start_array = ();
    
32. 
    
33. for (keys %$map) {
    
34.     push @start_array, { start => $_, end => $_, visited => { $_ => 1} };
    
35. }
    
36. 
    
37. while ( $depth <= MAX_DEPTH  and @start_array > 0) {
    
38.     my @new_start_array = ();
    
39.     for my $to_expand (@start_array) {
    
40.         my $ra_can_expand = $map->{ $to_expand->{end} };
    
41.         for my $can_expand (@$ra_can_expand) {
    
42.             if (not $to_expand->{visited}->{$can_expand}) {
    
43.                 my %tmp_visited = %{ $to_expand->{visited} };
    
44.                 $tmp_visited{$can_expand} = 1;
    
45.                 my $new = {
    
46.                     start => $to_expand->{start},
    
47.                     end => $can_expand,
    
48.                     visited => \%tmp_visited,
    
49.                 };
    
50.                 push @new_start_array, $new;
    
51.                 push @result, $new;
    
52.             }
    
53.         }
    
54.     }
    
55.    
    
56.    
    
57.     @start_array = @new_start_array;
    
58.     $depth++;
    
59. }
    
60. 
    
61. print "the all result is \n";
    
62. for my $one (@result) {
    
63.     my $cost = ( keys %{ $one->{visited} } ) - 1;
    
64.     print $one->{start} . '-' . $one->{end} . " cost $cost\n";
    
65. }
    

复制代码

[ 本帖最后由 xiaoshengcaicai 于 2007-2-8 22:46 编辑 ]

chenhao392

抱歉，刚才有兄弟来串门。已经发了

chenhao392

再次感谢，附件小于200k.. 本想把书传不上来的。。

[ 本帖最后由 chenhao392 于 2007-2-9 00:12 编辑 ]

xiaoshengcaicai

TO 楼上,可以放BLOG里面提供下载

PS,你觉得我的算法是否可行?有什么问题吗,昨天随手写的, 没细想

xiaoshengcaicai

刚上传了一把
http://blog.chinaunix.net/u/26905/showart_245044.html

这本书我没看过 >_<

不能保证链接一直有效,因为这本书大了点.以后没空间我会删掉它

redspider

原帖由 chenhao392 于 2007-2-8 22:37 发表
是的，难为你了
to楼上：
好的，我发给你

已收到，非常感谢！

mbm

看看Graph.pm

awake

Algorithms in C
21.3