搜索找到 2 个匹配

返回

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...
rubyish
2018年07月09日 14:41
转到论坛页面
转到主题

Re: [问题] 计算出1 - N之内递归路径最长的数

v2: :crazylaugh4 split.c: # include "util.h" int main (int numa, char **para){ my $MAX = 10000000; //my $MAX = atoi (para[1]); explore ($MAX); } /* _____________________ SUB _____________________ */ void explore (int $n){ my $path = new (int, $n + 1); $path[0] = 1; for (my $i = 1; $i < 10;...