已经解决.结贴 怎么得到这样的结果

sunzhiguolu

有一个数字:  123456 希望得到这样的一个结果:12, 123, 1234, 12345, 123456.
有什么简单的方法, 谢谢大家.

MMMIX

回复 1# sunzhiguolu


    真喜欢短代码，建议学学 APL，绝对能让你满意

sunzhiguolu

回复 2# MMMIX
大神您误会我的意思了, 我只是看了一个帖子的内容, 才有此一问. (如果不精简代码的话, 要想得到结果的话估计代码会很长)

   

sunzhiguolu

回复 2# MMMIX
内容要求:

一个 9 位的整数，1-9 的数字，每个数字 只能出现一次
其中
前 2 位能被 2 整除
前 3 位能被 3 整除
前 4 位能被 4 整除
依次类推.........
前 9 位能被 9 整除

这一个整数 = 381654729

就是这个问题, 不知您如何解?

   

sunzhiguolu

@MMMIX
谢谢您的参与, 谢谢!
部分结果如下:

1. 
   
2. 381654720
   
3. 381654729
   

复制代码

jason680

回复 3# sunzhiguolu

>>有一个数字:  123456 希望得到这样的一个结果:12, 123, 1234, 12345, 123456.
>>有什么简单的方法, 谢谢大家.
   
What You Think Is What You Code
1. using substr function get the answer easily and directly
$ perldoc -f substr
    substr EXPR,OFFSET,LENGTH,REPLACEMENT
    substr EXPR,OFFSET,LENGTH
    substr EXPR,OFFSET


2. split it and combine them
   split 123456 =>  1,2,3,4,5,6
   combination(join)
   combine 1,2 =>12
   combine 1,2,3 =>123
   ...
   combine 1,2,3,...,6 =>123..6

sunzhiguolu

更正一处我上面代码的错误:

一个 9 位的整数，1-9 的数字，每个数字 只能出现一次

sunzhiguolu

回复 6# jason680
非常感谢您的指点...
   

sunzhiguolu

回复 6# jason680
对了, 刚才忽略了一个问题向您请教:
比如:
1.> grep {...} map {...} @aList
与
2.> map {...} @aList
第一种方式是否占用的资源会更多一些, 另外, 如果第一种代码相对比较简单, 这种情况下我该如何进行取舍? 还请您指点, 谢谢. (不知道我是否将问题描述清楚)


   

sunzhiguolu

回复 6# jason680
大神您好, 刚才我有点不礼貌了, 请您见谅.
code-1:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. for (my $i = 1_0000_0000; $i < 10_0000_0000; $i++){
   
7.     next if ($i =~ tr/0//);
   
8.     my %hUniq = map {$_, 0} (1 .. 9);
   
9.     if (not grep {++$hUniq{$_} > 1} split //, $i){
   
10.         unless (grep {$_ % length ($_) != 0} map {substr ($i, 0, $_)} (2 .. length ($i))){    #here code
    
11.             print "$i\n";
    
12.         }
    
13.     }
    
14. }
    

复制代码

code-2:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. for (my $i = 1_0000_0000; $i < 10_0000_0000; $i++){
   
7.     next if ($i =~ tr/0//);
   
8.     my %hUniq = map {$_, 0} (1 .. 9);
   
9.     if (not grep {++$hUniq{$_} > 1} split //, $i){
   
10.         unless (map {my $sNum = substr ($i, 0, $_); if ($sNum % length ($sNum) != 0) {$sNum} else {()}} (2 .. length ($i))){    #here code
    
11.             print "$i\n";
    
12.         }
    
13.     }
    
14. }

复制代码