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

cobrawgl

改进版，用数字 或者 字母都可以啦  

#!/usr/bin/perl use strict; use warnings; my $t1 = func(4, ('a', 'b', 'c')); my $t2 = func(4, (1, 2, 3)); $_ = join '', map { map {@$_} @$_} ($t1); print $_, "\n" for /\w{4}/g; $_ = join '', map { map {@$_} @$_} ($t2); print $_, "\n" for /\w{4}/g;   sub func {     my $k = shift;     my @data = @_;     my $end = $data[-1];     @data = map {$data[0]} 1..$k;          my $t = [];     while (1) {         push @$t, [@data];         my $t = -1;         REDO:         $data[$t] = chr((ord $data[$t])+1);         if (ord $data[$t] > ord $end) {             $t -= 1;             last if abs $t > $k;             goto REDO;         }         @data[$t .. -1] = map {$data[$t]} ($t .. -1);     }     return $t; }

yxm0513

why?


I need get a return @ or $

ynchnluiti

原帖由 yxm0513 于 2009-1-23 12:25 发表
why?
I need get a return @ or $

那句修改只是针对foo的参数。

yxm0513

没错


如果基于foo，获取return不怎么好搞

iceberg77

#!/usr/bin/perl use strict; my $col_num = shift; my @list = @ARGV; exit 1 unless ($col_num > 0); sub append {     my $new_index = shift;     my @index_list = @_;         push(@index_list, $new_index);         if (@index_list == $col_num) {         print "@list[@index_list]\n";         return;     }         append($_, @index_list) for ($new_index..$#list); } append($_) for (0..$#list);

#./test.pl 4  a b c
a a a a
a a a b
a a a c
a a b b
a a b c
a a c c
a b b b
a b b c
a b c c
a c c c
b b b b
b b b c
b b c c
b c c c
c c c c

[ 本帖最后由 iceberg77 于 2009-1-23 16:57 编辑 ]

Lonki

原帖由 yxm0513 于 2009-1-23 12:39 发表
没错


如果基于foo，获取return不怎么好搞

如果让函数返回结果集的话, 换一个递归式就行了, 其实差不多的.

sub genPermutations { &nbsp;&nbsp;&nbsp;&nbsp;my ($range, $len) = @_; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;return ()      if $len  < 1; &nbsp;&nbsp;&nbsp;&nbsp;return @$range if $len == 1; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;my @subPermus = genPermutations($range, $len - 1); &nbsp;&nbsp;&nbsp;&nbsp;my @newPermus = (); &nbsp;&nbsp;&nbsp;&nbsp;for my $i (@$range) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for my $j (@subPermus) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @newPermus, $i . $j; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;return @newPermus; } print join("\n", genPermutations([qw/a b/], 3));

收拾东西明天上飞机 :>
Happy Ox Year !