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

Lonki

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

難道正確的應(yīng)該是：用list中的數(shù)字組成k位數(shù)（可重復(fù)使用）， 從小到大排列 ？？？

ly5066113

我猜對(duì)了。

DQP 的代碼可以使用，只要將結(jié)果集稍做過(guò)濾即可。

yxm0513

原帖由 Lonki 于 2009-1-22 19:50 發(fā)表


難道正確的應(yīng)該是：用list中的數(shù)字組成k位數(shù)（可重復(fù)使用）， 從小到大排列 ？？？

未必是數(shù)， @data可以是 (a, b , c)

只是排列組合

yxm0513

前人栽樹(shù)

#!/usr/bin/perl my @data = qw(a b c); my $k = 4; my $all=''; sub foo {   my @cur_list = @_;   if(@cur_list == $k){     my @sort = sort @cur_list;     my $a = join '', @sort;     unless ($all =~ /$a/){         $all .= $a ."\n";     }     return;   }   foo(@cur_list, $_) foreach @data; } foo; print $all;

Lonki

原帖由 ly5066113 于 2009-1-22 20:12 發(fā)表
我猜對(duì)了。

DQP 的代碼可以使用，只要將結(jié)果集稍做過(guò)濾即可。

不用過(guò)濾吧, 全排列

cobrawgl

#!/usr/bin/perl use strict; use warnings; my @data = (1, 2, 3); my $k = 4; my $end = $data[-1]; @data = map {$data[0]} 1..$k; print @data, "\n"; while (1) {     my $t = -1;     REDO:     $data[$t] += 1;     if ($data[$t] > $end) {         $t -= 1;         last if abs $t > $k;         goto REDO;     }     @data[$t .. -1] = map {$data[$t]} ($t .. -1);     print @data, "\n"; } __END__ 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)

[ 本帖最后由 cobrawgl 于 2009-1-23 09:26 編輯 ]

ynchnluiti

原帖由 ly5066113 于 2009-1-22 20:12 發(fā)表
我猜對(duì)了。
DQP 的代碼可以使用，只要將結(jié)果集稍做過(guò)濾即可。

嗯，結(jié)果是

yxm0513

搞成這樣foo(\@array,$k),如何高，改善中....

#!/usr/bin/perl my @data = qw(a b c); my $k = 4; my $all=''; sub foo {   my $data = shift;   my $k = shift;   my @cur_list = @_;   if(@cur_list == $k){     my @sort = sort @cur_list;     my $a = join '', @sort;     unless ($all =~ /$a/){         $all .= $a ."\n";     }     return;   }   foo(\@data, $k, @cur_list, $_) foreach @$data; } foo(\@data, $k); print $all;

[ 本帖最后由 yxm0513 于 2009-1-23 10:14 編輯 ]

yxm0513

如果是return $all 或是 ＠all 呢

ynchnluiti

原帖由 yxm0513 于 2009-1-23 10:07 發(fā)表
foo(\@data, $k, @cur_list, $_) foreach @$data;

改成

1. foo($data, $k, @cur_list, $_) foreach @$data;

復(fù)制代碼