给定一个数，不停产生随机数，直到产生的随机数之和等于给定的这个数

elu_ligao

1. #由大到小的随机数
   
2. BEGIN{
   
3.     srand(systime())
   
4.     while(1){
   
5.         sum = 200
   
6.         delete a
   
7.         n = 0
   
8.         while(1){
   
9.             x = int(rand()*10000%200)+1
   
10.             if(n>0){
    
11.                 if(x==1&&sum>x)
    
12.                     break
    
13.                 if(x>=a[n])
    
14.                     continue
    
15.             }
    
16.             a[++n] = x
    
17.             sum -= x
    
18.             if(sum<=0){
    
19.                 if(sum==0){
    
20.                     for(i=1;i<=n;++i)
    
21.                         printf a[i] FS
    
22.                     print ""
    
23.                     exit
    
24.                 }
    
25.                 break
    
26.             }
    
27.         }
    
28.     }
    
29. }

复制代码

jason680

@lmtwl @sunzhiguolu

$ echo 200 | awk '{srand();while($1){r=int(rand()*$1)+1;$1-=r;printf r" "}print""}'
124 17 53 6

$ echo 200 | awk '{srand();while($1){r=int(rand()*$1)+1;$1-=r;printf r" "}print""}'
152 25 15 5 1 2

$ echo 200 | awk '{srand();while($1){r=int(rand()*$1)+1;$1-=r;printf r" "}print""}'
42 32 95 29 1 1

sunzhiguolu

控制随机数的个数:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. print "Input the number of digits please :";
   
6. chomp (my $sNumber_of_digits = <STDIN>);
   
7. my ($sSum, @aNumbers) = (0);
   
8. until ($sSum == 200){
   
9.     $sSum = 0;
   
10.     push (@aNumbers, int (rand 200));
    
11.     $sSum += $_ for @aNumbers;
    
12.     if ($sSum != 200){
    
13.         splice (@aNumbers, -1) if ($sSum > 200);
    
14.     }else{
    
15.         if (@aNumbers != $sNumber_of_digits){
    
16.             splice (@aNumbers, ($sNumber_of_digits - 2)) if (@aNumbers > $sNumber_of_digits);
    
17.             splice (@aNumbers, -1) if (@aNumbers < $sNumber_of_digits);
    
18.             $sSum = 0;
    
19.         }
    
20.     }
    
21. }
    
22. 
    
23. printf ("%d => {%s}\n",$sSum,join (',',@aNumbers));
    

复制代码

sunzhiguolu

perl abc
----------------------------------------------------------

Input the number of digits please :5
200 => {124,47,11,15,3}

Input the number of digits please :7
200 => {15,144,13,4,19,3,2}

lmtwl

回复 23# sunzhiguolu



perl 不会。

控制 产生随机数的个数，是怎么具体控制的？能不能通过shell 实现，perl 看不太明白


   

lmtwl

大神些都在显圣手了lollol

sunzhiguolu

回复 25# lmtwl
如果条件 1 + 2 如何实现, .

   

lmtwl

回复 27# sunzhiguolu


    第一个判断 避免产生相同的随机数，只需要在于循环内进行对已经生成的随机数进行比较，比较简单；
    第二个问题 限定产生的个数，我觉得可以用给定的数于产生随机数的个数求商，设定最小随机数的范围，直到产生完成，最后判断个数，如果大于设定个数值，将对于的值求和后，与除去这些最小值后的最小值求和，如果产生的随机数个数小于设定个数，将最大的随机数分成两个就行.




其实我最终实现的脚本不需要用的地方不需要这么多，这只是一部分
比如我脚本实现：

一个文件里面有很多的ip具体个数不固定，我需要whois去查询这些ip的运营商，一个个查询很慢，需要同时进行操作查询，我又不想分割文件等，只有把用函数来把这些ip分割后通过数组纪录的数开始多进程查询。

zhang45xiang

好牛逼回复 6# Herowinter