又是个算法问题，帮忙看下

Lonki

原帖由 yxm0513 于 2009-1-22 19:36 发表
好像是有点问题，改下

难道正确的应该是：用list中的数字组成k位数（可重复使用）， 从小到大排列 ？？？

ly5066113

我猜对了。

DQP 的代码可以使用，只要将结果集稍做过滤即可。

yxm0513

原帖由 Lonki 于 2009-1-22 19:50 发表


难道正确的应该是：用list中的数字组成k位数（可重复使用）， 从小到大排列 ？？？

未必是数， @data可以是 (a, b , c)

只是排列组合

yxm0513

前人栽树

#!/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 发表
我猜对了。

DQP 的代码可以使用，只要将结果集稍做过滤即可。

不用过滤吧, 全排列

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 发表
我猜对了。
DQP 的代码可以使用，只要将结果集稍做过滤即可。

嗯，结果是

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 发表
foo(\@data, $k, @cur_list, $_) foreach @$data;

改成

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

复制代码