又是個(gè)算法問題，幫忙看下

yxm0513

For example, for @data = (1, 2, 3) and $k = 2:

    (1, 1)
    (1, 2)
    (1, 3)
    (2, 2)
    (2, 3)
    (3, 3)

Note that $k can be greater than the length of @data. For example, for @data = (1, 2) and $k = 3:

    (1, 1, 1)
    (1, 1, 2)
    (1, 2, 2)
    (2, 2, 2)


for @data = (1, 2, 3) and $k = 4:

    (1, 1, 1, 1)
    (1, 1, 1, 2)
    (1, 1, 1, 3)
    (1, 1, 2, 2)
    (1, 1, 2, 3)
    (1, 1, 3, 3)
    (1, 2, 2, 2)
    (1, 2, 2, 3)
    (1, 2, 3, 3)
    (1, 3, 3, 3)
    (2, 2, 2, 2)
    (2, 2, 2, 3)
    (2, 2, 3, 3)
    (2, 3, 3, 3)
    (3, 3, 3, 3)

[ 本帖最后由 yxm0513 于 2009-1-22 19:38 編輯 ]

ynchnluiti

原帖由 yxm0513 于 2009-1-22 17:09 發(fā)表
    (1, 1, 1, 1)
    (1, 1, 1, 2)
    (1, 1, 1, 3)
    (1, 1, 2, 2)
    (1, 1, 2, 3)
    (1, 1, 3, 3)
    (1, 2, 2, 2)
    (1, 2, 2, 3)
    (1, 2, 3, 3)
    (1, 3, 3, 3)
    (2, 2, 2, 2)
    (2, 2, 2, 3)
    (2, 2, 3, 3)
    (2, 3, 3, 3)
    (3, 3, 3, 3)

紅色的應(yīng)該是(1, 1, 2, 1) ？

DQP

1. 
   
2. 
   
3. my @data = (1, 2, 3);
   
4. my $k = 4;
   
5. 
   
6. sub foo {
   
7.   my @cur_list = @_;
   
8.   if(@cur_list == $k){
   
9.     print @cur_list, "\n";
   
10.     return;
    
11.   }
    
12.   foo(@cur_list, $_) for @data;
    
13. }
    
14. foo;
    

復(fù)制代碼

別把問題想復(fù)雜了  

ynchnluiti

厲害！

ly5066113

樓主要的應(yīng)該是這種效果：

1. $ cat test.pl
   
2. #! /usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my @data = (1, 2, 3);
   
8. my $k = 4;
   
9. 
   
10. sub foo {
    
11.   my @cur_list = @_;
    
12.   if(@cur_list == $k){
    
13.     print @cur_list, "\n";
    
14.     return;
    
15.   }
    
16.   foo(@cur_list, $_) for @data;
    
17. }
    
18. foo;
    
19. $ test.pl | grep -Ev '3.*[21]|2.*1'
    
20. 1111
    
21. 1112
    
22. 1113
    
23. 1122
    
24. 1123
    
25. 1133
    
26. 1222
    
27. 1223
    
28. 1233
    
29. 1333
    
30. 2222
    
31. 2223
    
32. 2233
    
33. 2333
    
34. 3333

復(fù)制代碼

ynchnluiti

跟$k=2和$k=3時(shí)的規(guī)律不一樣？

ly5066113

好象是，看樓主給的例子。

ynchnluiti

原帖由 ly5066113 于 2009-1-22 19:06 發(fā)表
好象是，看樓主給的例子。

嗯。我現(xiàn)在遇到數(shù)學(xué)，算法就頭暈。
需要惡補(bǔ)一下

yxm0513

好像是有點(diǎn)問題，改下

ynchnluiti

原帖由 yxm0513 于 2009-1-22 19:36 發(fā)表
好像是有點(diǎn)問題，改下

難度又加大了