搜索找到 10 个匹配

返回

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;...
rubyish
2018年11月14日 18:56
转到论坛页面
转到主题

Re: [Perl版块]猜数字游戏专题

v2: :D :D sample: ANS = 0493 0123 20 0145 11 0426 20 0473 30 0483 30 0493 40 COUNT = 6 ---------- ANS = 0495 0123 10 0456 21 0467 20 0485 30 0495 40 COUNT = 5 ---------- ANS = 0496 0123 10 0456 30 0457 20 0486 30 0496 40 COUNT = 5 ---------- #!/usr/bin/perl -w # version 28, subversion 0 (v5.28.0...
rubyish
2018年11月17日 19:04
转到论坛页面
转到主题

Re: [Perl版块]猜数字游戏专题

v3: :D :D :D real 0m0.640s sample: 1 1 2 13 3 108 4 596 5 1668 6 1768 7 752 8 129 9 5 AVE = 5.56031746031746 real 0m0.640s user 0m0.626s sys 0m0.012s time perl abc.pl #!/usr/bin/perl -w # version 28, subversion 0 (v5.28.0) # 2018-11-14, 2018-11-17 use 5.028; my @INDES = ( 0, 5, 9, 12, 13...
rubyish
2019年02月03日 00:32
转到论坛页面
转到主题

hello rust!

Code: 全选

// 2019-02-03
// rustc 1.32.0

fn main() {
    let x = 123;
    println!("Hello rust!");
    println!("x = {}", x);
}
rubyish
2019年03月19日 08:39
转到论坛页面
转到主题

Re: [puzzle]有面值1,5,10,20,50,100的人民币,问10000有多少种组成方法?

只會 3 種方法 1: 古典 my $val = 10000; my @test = ( [ 1, 5, 10, 20, 50, 100 ], [ 2, 8, 16, 60, 120 ] ); for my $coin (@test) { my $count = classic( $coin, $val ); say $count; } # ____________________SUB____________________ sub classic { my ( $coin, $sum ) = @_; my @memo = 1; $memo[$sum] = 0; for my $i ( 1 ...
rubyish
2019年04月25日 14:43
转到论坛页面
转到主题

Re: [puzzle]排他平方数

My test. use 5.010; perm ( 9876543210, 6, 0, 0 ); # ________________ SUB _______________ sub perm{ my ( $chars, $lev, $maybe, $exist ) = @_; if (!$lev){ my $num = $maybe * $maybe; my @num = split //, $num; for (@num){ return if $exist & ( 1 << $_ ); } say $maybe; return; } my ( $head, $pick, $ta...
rubyish
2019年04月29日 19:55
转到论坛页面
转到主题

Re: [puzzle]排他平方数

v3: 0.182s use 5.010; sub N() { 6 } perm( 9876543210, N, 0, 0, 0 ); # ________________ SUB _______________ sub perm { my ( $chars, $lev, $maybe, $exist, $exist2 ) = @_; if ( !$lev ) { return if $maybe < 10**( N - 1 ); my $num = $maybe * $maybe; $num = int( $num / ( 10**( N - 1 ) ) ); while ($num) { ...
rubyish
2019年05月02日 10:09
转到论坛页面
转到主题

Re: [puzzle]华容道 15-Puzzle

my v1: 2 3 4 8 1 6 0 7 5 10 11 12 9 13 14 15 2 3 4 8 1 6 7 0 5 10 11 12 9 13 14 15 2 3 4 0 1 6 7 8 5 10 11 12 9 13 14 15 2 3 0 4 1 6 7 8 5 10 11 12 9 13 14 15 2 0 3 4 1 6 7 8 5 10 11 12 9 13 14 15 0 2 3 4 1 6 7 8 5 10 11 12 9 13 14 15 1 2 3 4 0 6 7 8 5 10 11 12 9 13 14 15 1 2 3 4 5 6 7 8 0 10 11 12 ...
rubyish
2019年05月20日 11:52
转到论坛页面
转到主题

Re: [puzzle]华容道 15-Puzzle

v3: :mrgreen: :mrgreen: :mrgreen: 略加速 1 2 3 4 5 6 7 8 9 10 11 12 15 13 14 0 0.065s W W W N E S E E N W W W S E E N E S 1 2 3 4 5 6 7 8 9 10 11 12 15 13 14 0 1 2 3 4 5 6 7 8 9 10 11 12 15 13 0 14 1 2 3 4 5 6 7 8 9 10 11 12 15 0 13 14 1 2 3 4 5 6 7 8 9 10 11 12 0 15 13 14 1 2 3 4 5 6 7 8 0 10 11 12 9 ...