小學一年級數學題 - 系列-3

sunzhiguolu

回復 20# 523066680
大神 能否用 7 樓的代碼作為示例進行講解，我想通過實際案例 加上大神通俗易懂的描述 對代碼的理解會更清楚些。謝謝。
不急，您將語言好好組織一下。
另外，前面我說了。如果我能夠從中受益 (學到知識, 積分不是問題 可以商量)。辛苦了。

523066680

回復 21# sunzhiguolu

我就是用他的代碼改了函數名、拆了兩部分出來而已啊
少年，你的基礎 ……  

我也不求積分，覺得你需要好好看書。

sunzhiguolu

回復 22# 523066680
是啊，基礎不行才希望通過積分懸賞的形式 尋找技術強 熱心 有耐心的大神解答一下。
比如：

多個層次的判斷可以減少大量冗余的排列過程，例如第一個判斷：
當容器數組達到3個元素，可以計算第一行是否和為15，不是的話可以提前退回，節省后面6個元素的排列過程。
后面的判斷與此類似。
最后當容器數組的元素達到9個，且最后斜線合計也為15，對符合要求的排列順序進行輸出。

上貼所說，退回 退回到哪里，接下來處理過程會怎樣執行。這些都沒有講清楚，怎能不讓人提出疑問？
少年的基礎的確不咋地，還麻煩大神多多指點。(在您沒有失去耐心之前)

523066680

回復 23# sunzhiguolu

你是在遞歸的部分不熟悉還是都不熟悉？我一直都是自學的，覺得可以自己消化的盡量自己消化。
只有這樣才能提高解決問題的能力，不然會對求助解答產生依賴。
講真如果你基礎太少，別人實在沒必要從非�；�礎的東西跟你說起，因為那會涉及一本書的很多內容，總結是可以總結的，但別人總歸有工作要做。

元素排列的部分單獨提取就是這些行，可以單獨執行，加個print 可以觀察數組的變化過程

1. E_( [ 1 .. 9 ], [] );
   
2. 
   
3. sub E_
   
4. {
   
5.     my ( $a, $b ) = @_;
   
6.     #此處省略若干代碼
   
7.     E_( [ @$a[ 0 .. $_ - 1, $_ + 1 .. $#$a ] ], [ @$b, $a->[$_] ] )
   
8.         for 0 .. $#$a;
   
9. }
   

復制代碼

轉成直白點的代碼就是

1. func( [1..5], [] );
   
2. 
   
3. sub func
   
4. {
   
5.     my ( $a, $b ) = (shift, shift);
   
6.     print join(",", @{$b}), "\n" if ( $#$a < 0 );
   
7.    
   
8.     for my $idx ( 0 .. $#$a )
   
9.     {
   
10.         my @arr = @$a;
    
11.         my @brr = @$b;
    
12. 
    
13.         push @brr, $arr[$idx];   #get element, from @arr to @brr
    
14.         splice( @arr, $idx, 1 ); #delete element from @arr
    
15. 
    
16.         func( \@arr, \@brr );    #next level
    
17.     }
    
18. }
    

復制代碼

分析代碼的時候，可以自己對代碼進行拆解，對中間插入 printf 來查看輸出內容或者 嘗試 perl -d xxx.pl 進入調試模式
也可以在草稿上畫出代碼演算的過程，相信很多人都經歷過。

而你可能并沒有這么做，也許是因為懶惰，不愿意有“多余”的付出。

最后，解釋權應該交給 rubyish，誰讓你寫的那么短

rubyish

回復 18# sunzhiguolu

如果代碼 添加了 use warnings; 該怎樣改動一下？

OK,

add

1. use warnings;

復制代碼

NO warnings;
perl version 26, subversion 0 (v5.26.0)

rubyish

v2:
real        0m0.079s
user        0m0.065s
sys        0m0.004s

1. #!/usr/bin/perl
   
2. # version 26, subversion 0 (v5.26.0)
   
3. 
   
4. use 5.010;
   
5. 
   
6. explore();
   
7. 
   
8. # ______________________ SUB ______________________
   
9. 
   
10. sub explore { E_(0) }
    
11. 
    
12. sub E_ {
    
13.     my $n = shift;
    
14.     state $b   = [ (0) x 4 ];
    
15.     state $has = [ (0) x 10 ];
    
16.     state $in = [ [ 0, 1 ], [ 2, 3 ], [ 0, 2 ], [ 1, 3 ], [ 0, 3 ] ];
    
17. 
    
18.     if ( $n == 4 ) {
    
19.         my ( @test, @x ) = (0) x 10;
    
20.         $test[$_] = 1 for @$b;
    
21.         
    
22.         for my $i (@$in) {
    
23.             my $it = $b->[ $i->[0] ] + $b->[ $i->[1] ];
    
24.             return if $it < 6 or $it > 14;
    
25.             $it = 15 - $it;
    
26.             return if $test[$it]++;
    
27.             push @x, $it;
    
28.         }
    
29. 
    
30.         return if $x[0] + $b->[3] + $x[2] != 15;
    
31.         my @X = ( @$b[ 0, 1 ], $x[0], @$b[ 2, 3 ], @x[ 1 .. 4 ] );
    
32. 
    
33.         say join ' ', @X[ 0, 1, 2 ];
    
34.         say join ' ', @X[ 3, 4, 5 ];
    
35.         say join ' ', @X[ 6, 7, 8 ];
    
36.         say '-----';
    
37.         return;
    
38.     }
    
39. 
    
40.     for my $it ( 1 .. 9 ) {
    
41.         next if $has->[$it];
    
42.         $has->[$it]++;
    
43.         $b->[$n] = $it;
    
44.         E_( $n + 1 );
    
45.         $has->[$it]--;
    
46.     }
    
47. }
    
48. 
    
49. __DATA__
    
50. $_
    
51. 
    

復制代碼

rubyish

回復 23# sunzhiguolu

kankan:

1. 0 [0 1 2 3]   []
   
2. 1 [1 2 3]     [0]
   
3. 2 [2 3]       [0 1]
   
4. 3 [3]         [0 1 2]
   
5. 4 []          [0 1 2 3]
   
6. 3 [2]         [0 1 3]
   
7. 4 []          [0 1 3 2]
   
8. 2 [1 3]       [0 2]
   
9. 3 [3]         [0 2 1]
   
10. 4 []          [0 2 1 3]
    
11. 3 [1]         [0 2 3]
    
12. 4 []          [0 2 3 1]
    
13. 2 [1 2]       [0 3]
    
14. 3 [2]         [0 3 1]
    
15. 4 []          [0 3 1 2]
    
16. 3 [1]         [0 3 2]
    
17. 4 []          [0 3 2 1]
    
18. 1 [0 2 3]     [1]
    
19. 2 [2 3]       [1 0]
    
20. 3 [3]         [1 0 2]
    
21. 4 []          [1 0 2 3]
    
22. 3 [2]         [1 0 3]
    
23. 4 []          [1 0 3 2]
    
24. 2 [0 3]       [1 2]
    
25. 3 [3]         [1 2 0]
    
26. 4 []          [1 2 0 3]
    
27. 3 [0]         [1 2 3]
    
28. 4 []          [1 2 3 0]
    
29. 2 [0 2]       [1 3]
    
30. 3 [2]         [1 3 0]
    
31. 4 []          [1 3 0 2]
    
32. 3 [0]         [1 3 2]
    
33. 4 []          [1 3 2 0]
    
34. 1 [0 1 3]     [2]
    
35. 2 [1 3]       [2 0]
    
36. 3 [3]         [2 0 1]
    
37. 4 []          [2 0 1 3]
    
38. 3 [1]         [2 0 3]
    
39. 4 []          [2 0 3 1]
    
40. 2 [0 3]       [2 1]
    
41. 3 [3]         [2 1 0]
    
42. 4 []          [2 1 0 3]
    
43. 3 [0]         [2 1 3]
    
44. 4 []          [2 1 3 0]
    
45. 2 [0 1]       [2 3]
    
46. 3 [1]         [2 3 0]
    
47. 4 []          [2 3 0 1]
    
48. 3 [0]         [2 3 1]
    
49. 4 []          [2 3 1 0]
    
50. 1 [0 1 2]     [3]
    
51. 2 [1 2]       [3 0]
    
52. 3 [2]         [3 0 1]
    
53. 4 []          [3 0 1 2]
    
54. 3 [1]         [3 0 2]
    
55. 4 []          [3 0 2 1]
    
56. 2 [0 2]       [3 1]
    
57. 3 [2]         [3 1 0]
    
58. 4 []          [3 1 0 2]
    
59. 3 [0]         [3 1 2]
    
60. 4 []          [3 1 2 0]
    
61. 2 [0 1]       [3 2]
    
62. 3 [1]         [3 2 0]
    
63. 4 []          [3 2 0 1]
    
64. 3 [0]         [3 2 1]
    
65. 4 []          [3 2 1 0]
    

復制代碼

jason680

回復 22# 523066680

>> 少年，你的基礎 ……  

簡言之

7樓是 5樓 實例   ( 10樓也是 實例)
5樓是 7樓 說明/基礎

5樓是基礎，但他.....
只想要實例，看了實例又不懂......

基礎工作 只能留給他 慢慢消化 才能提高....

523066680

靈魂圖解 —— 遞歸排列過程（請點開大圖或者下載PDF，再次吐槽CU的附件下載方式，還得關注公眾號掃二維碼）

紅色線是返回的過程，怕圖片篇幅太大沒有把第一層的全部過程放進去，自行腦補。

圖解遞歸排列元素.pdf (399.77 KB, 下載次數: 8)

2017-06-29 10:09 上傳

點擊文件名下載附件

523066680

傷心，良心做圖，贊都沒有