搜索找到 1 个匹配

返回

rubyish
2018年04月23日 19:40
转到论坛页面
转到主题

Re: [算法]Permutation - 元素排列

laige perl ~~ :lol: #!/usr/bin/perl # version 26, subversion 1 (v5.26.1) use 5.010; #my @data = grep chomp, <DATA>; my @data = 'A' .. 'I'; #perm( \@data, 4 ); perm( \@data, ~~@data ); # ____________________SUB____________________ sub perm { my ( $data, $nu...