Perl 在国内到底有没有出路

523066680

回复 48# sunzhiguolu

生成数独，内容完全随机，来一个？ 解数独也准备开搞

1. =info
   
2.     523066680
   
3.     2017-09
   
4. =cut
   
5. 
   
6. use IO::Handle;
   
7. STDOUT->autoflush(1);
   
8. 
   
9. my $main = 0;
   
10. my $bad = 0;
    
11. 
    
12. AGAIN:
    
13. our %hash;
    
14. grep { $hash{$_} = 1 } (1..9);
    
15. @nums = (1..9);
    
16. 
    
17. our $mat =
    
18.     [
    
19.                 #[ 1,2,3,4,5,6,7,8,9 ],
    
20.                 [map { splice @nums, int(rand($#nums+1)), 1 } (1..9)],
    
21.         [],[],[],[],[],[],[],[]
    
22.     ];
    
23. 
    
24. my $nextline;
    
25. for my $line ( 1 .. 8 )
    
26. {
    
27.     $nextline = undef;
    
28. 
    
29.     func( $line, 0, \$nextline );
    
30.     if ( not defined $nextline )
    
31.     {
    
32.             $bad++;
    
33.         print "not ok\n";
    
34.     }
    
35. 
    
36.     $mat->[$line] = [ split("", $nextline) ];
    
37. }
    
38. 
    
39. for my $idx ( 0..$#$mat )
    
40. {
    
41.     printf "%s\n", join(",", @{$mat->[$idx]} );
    
42. }
    
43. 
    
44. print "\n";
    
45. goto AGAIN if ($main++ < 1000);
    
46. printf "bad: %d\n", $bad;
    
47. 
    
48. sub func
    
49. {
    
50.     our @all;
    
51.     our $mat;
    
52.     our %hash;
    
53.     my ( $curr, $lv, $ref ) = @_;
    
54. 
    
55.     if ($lv > 8)
    
56.     {        
    
57.         #如果当前行是第五行或者第八行，预判下一行是否无解
    
58.         if ( $curr == 4 or $curr == 7)
    
59.         {
    
60.                 if ( try_next_line( $curr ) == 0 )
    
61.                 {
    
62.                         return 0;
    
63.                 }
    
64.                 else
    
65.                 {
    
66.                         $ref = join("", @{$mat->[$curr]});
    
67.                         return 1;
    
68.                 }
    
69.             }
    
70.             else
    
71.             {
    
72.                     $ref = join("", @{$mat->[$curr]});
    
73.                 return 1;
    
74.             }
    
75.     }
    
76. 
    
77.     my @out;
    
78.     my %dupl;
    
79. 
    
80.     if ( $curr % 3 == 1 )  # 1 2  4 5  7 8
    
81.     {
    
82.         if    ( $lv < 3 ) { @out = @{$mat->[$curr-1]}[0..2]; }
    
83.         elsif ( $lv < 6 ) { @out = @{$mat->[$curr-1]}[3..5]; }
    
84.         else              { @out = @{$mat->[$curr-1]}[6..8]; }
    
85.     }
    
86.     elsif ( $curr % 3 == 2 )
    
87.     {
    
88.         if    ( $lv < 3 ) { @out = (@{$mat->[$curr-1]}[0..2], @{$mat->[$curr-2]}[0..2]) }
    
89.         elsif ( $lv < 6 ) { @out = (@{$mat->[$curr-1]}[3..5], @{$mat->[$curr-2]}[3..5]) }
    
90.         else              { @out = (@{$mat->[$curr-1]}[6..8], @{$mat->[$curr-2]}[6..8]) }
    
91.     }
    
92. 
    
93.     if ($curr >= 3)
    
94.     {
    
95.         push @out, map { $mat->[$_][$lv] } ( 0 .. 3*int($curr/3) - 1 );
    
96.     }
    
97.    
    
98.     push @out, @{$mat->[$curr]}[ 0 .. $lv-1 ];
    
99. 
    
100.     %dupl = %hash;
     
101.     grep { delete $dupl{$_} } @out;
     
102. 
     
103.     my $res = 0;
     
104.     for my $e ( keys %dupl )
     
105.     {
     
106.         $mat->[$curr][$lv] = $e;
     
107.         $res = func($curr, $lv+1, $ref);
     
108. 
     
109.         last if ($res == 1);
     
110.     }
     
111. 
     
112.     return $res;
     
113. }
     
114. 
     
115. sub try_next_line
     
116. {
     
117.         my ($row) = shift;
     
118.     my $nextline = undef;
     
119.     func( $row+1, 0, \$nextline );
     
120.     if ( not defined $nextline )
     
121.     {
     
122.         return 0;
     
123.     }
     
124.     else
     
125.     {
     
126.             return 1;
     
127.     }
     
128. }
     

复制代码

1. 1,5,8,2,3,9,6,4,7
   
2. 2,7,3,1,6,4,8,5,9
   
3. 4,6,9,5,8,7,2,3,1
   
4. 3,2,7,6,1,5,4,9,8
   
5. 9,4,1,8,7,3,5,6,2
   
6. 5,8,6,9,4,2,7,1,3
   
7. 6,9,5,3,2,8,1,7,4
   
8. 7,1,2,4,9,6,3,8,5
   
9. 8,3,4,7,5,1,9,2,6
   
10. 
    
11. 6,7,4,8,2,1,9,3,5
    
12. 9,3,8,5,4,7,6,1,2
    
13. 1,2,5,3,6,9,7,4,8
    
14. 3,6,1,7,9,5,2,8,4
    
15. 4,5,7,1,8,2,3,6,9
    
16. 2,8,9,4,3,6,1,5,7
    
17. 7,4,2,6,1,8,5,9,3
    
18. 5,1,3,9,7,4,8,2,6
    
19. 8,9,6,2,5,3,4,7,1
    
20. 
    
21. 4,1,5,3,7,8,9,6,2
    
22. 7,9,6,5,4,2,1,3,8
    
23. 3,8,2,9,1,6,4,5,7
    
24. 9,2,3,8,5,4,6,7,1
    
25. 6,5,4,7,9,1,8,2,3
    
26. 1,7,8,6,2,3,5,9,4
    
27. 2,3,1,4,6,9,7,8,5
    
28. 8,6,7,1,3,5,2,4,9
    
29. 5,4,9,2,8,7,3,1,6
    
30. 
    
31. 4,5,9,6,8,7,2,1,3
    
32. 6,2,7,4,1,3,9,5,8
    
33. 1,3,8,2,9,5,4,6,7
    
34. 3,7,2,1,5,4,8,9,6
    
35. 9,6,4,7,2,8,1,3,5
    
36. 5,8,1,3,6,9,7,4,2
    
37. 2,1,3,8,4,6,5,7,9
    
38. 7,4,5,9,3,2,6,8,1
    
39. 8,9,6,5,7,1,3,2,4
    
40. 
    
41. 9,6,5,7,4,8,1,3,2
    
42. 1,2,4,5,3,9,8,6,7
    
43. 3,7,8,2,6,1,9,5,4
    
44. 2,4,6,9,1,3,5,7,8
    
45. 7,1,9,6,8,5,4,2,3
    
46. 8,5,3,4,2,7,6,1,9
    
47. 5,8,2,1,7,4,3,9,6
    
48. 4,9,7,3,5,6,2,8,1
    
49. 6,3,1,8,9,2,7,4,5
    
50. 
    
51. 5,1,8,2,9,7,3,6,4
    
52. 2,7,6,4,5,3,9,1,8
    
53. 9,3,4,6,1,8,5,2,7
    
54. 4,8,9,1,2,6,7,5,3
    
55. 1,6,3,9,7,5,8,4,2
    
56. 7,2,5,3,8,4,6,9,1
    
57. 8,5,1,7,4,9,2,3,6
    
58. 3,4,7,5,6,2,1,8,9
    
59. 6,9,2,8,3,1,4,7,5
    
60. 
    
61. 3,2,7,1,9,8,6,4,5
    
62. 5,4,1,2,7,6,9,8,3
    
63. 6,8,9,4,3,5,7,2,1
    
64. 1,5,2,8,4,7,3,9,6
    
65. 4,9,8,6,1,3,2,5,7
    
66. 7,3,6,9,5,2,8,1,4
    
67. 8,6,4,3,2,1,5,7,9
    
68. 2,1,5,7,6,9,4,3,8
    
69. 9,7,3,5,8,4,1,6,2
    
70. 
    
71. 1,4,7,9,5,2,6,8,3
    
72. 2,9,5,6,3,8,1,7,4
    
73. 3,6,8,4,1,7,2,5,9
    
74. 8,2,4,3,6,9,5,1,7
    
75. 6,3,1,2,7,5,4,9,8
    
76. 5,7,9,1,8,4,3,2,6
    
77. 4,1,2,7,9,3,8,6,5
    
78. 9,5,3,8,2,6,7,4,1
    
79. 7,8,6,5,4,1,9,3,2
    
80. 
    
81. 1,8,2,4,9,7,5,3,6
    
82. 6,4,9,2,3,5,7,8,1
    
83. 3,7,5,1,6,8,2,9,4
    
84. 9,6,3,7,1,4,8,5,2
    
85. 4,5,1,8,2,9,3,6,7
    
86. 7,2,8,3,5,6,1,4,9
    
87. 8,1,6,5,4,2,9,7,3
    
88. 5,3,4,9,7,1,6,2,8
    
89. 2,9,7,6,8,3,4,1,5
    
90. 
    
91. 5,8,7,1,9,6,2,4,3
    
92. 1,3,4,2,7,5,8,9,6
    
93. 9,6,2,8,3,4,1,5,7
    
94. 3,1,6,4,5,2,9,7,8
    
95. 2,9,8,7,1,3,4,6,5
    
96. 7,4,5,6,8,9,3,1,2
    
97. 8,5,9,3,4,7,6,2,1
    
98. 4,2,1,5,6,8,7,3,9
    
99. 6,7,3,9,2,1,5,8,4

复制代码

523066680

回复 49# sunzhiguolu

人品，这么多帖子下来，我提过你家谁？呵呵

sunzhiguolu

说是你爱找借口 （抱歉）

523066680

回复 52# sunzhiguolu

解数独题，我写了照样发上来。就明天这个时候（之前），你行？

sunzhiguolu

回复 50# 523066680
你想发布数独代码也不必用这个形式搞吧，单独发个帖子多好。
另外，我想对你说
你若编写代码能力强，回帖质量高 我自然尊敬你
若是吹牛皮，损人的磕 其实我一点都不会输给你，只会比你更强。。。

sunzhiguolu

回复 53# 523066680
我记得解数独的话，应该分至少三个等级。(简单，中等，困难)
另外，数独自解的话 别忘了提供难度提示。最后要看下效能了，不知你行不行？

523066680

回复 55# sunzhiguolu

那也比你行。现在再看看这几句，这水平这见识，呵呵：

很好？
用 cmd 找找看哪些一周以前 尺寸在 1mb ~ 2mb 之前的图片有哪些？
将结果按照尺寸大小降序排序 尺寸一样的按照文件名升序排序。试试看？

sunzhiguolu

回复 56# 523066680

你就吹牛逼行，看下你哪个 cmd 时间筛选 结果排序弄哪去了?
赶明改行吧，专门从事吹牛逼行业。

523066680

回复 57# sunzhiguolu

改什么行，我现在就是从事外贸，业余才写代码，那也比你强，哈哈

用不着你尊敬，我就是觉得你水平挺low的，比我low

sunzhiguolu

回复 58# 523066680

你在外贸行业屈才了，吹牛逼行业适合你。