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

lmtwl

假如 ：给定一个数a=200

然后开始不停产生小于 200的随机数，直到 这些随机数之和等于 a （产生的随机数之和不能大于或者小于a）

然后将这些随机数 存储于 数组中。

请教 大神们这个shell应该怎么去写。

lmtwl

1. 
   
2. 
   
3. #!/bin/bash
   
4. #set -x
   
5. function rand(){
   
6.     min=$1
   
7.     max=$(($2-$min+1))
   
8.     num=$(($RANDOM+1000000000))
   
9.     echo $(($num%$max+$min))
   
10. }
    
11. j=100
    
12. for ((i=0;j>0,j>30 ;i++  ));do
    
13.     x[i]=$(rand 10 30)
    
14.         j=`expr $j - ${x[i]}`
    
15.         [ $j -lt 30 ] && { x[i+1]=$j ; }
    
16. done
    
17. 
    
18. for ((i=0;i<${#x[@]};i++));do
    
19. 
    
20. echo ${x[i]}
    
21. 
    
22. 
    
23. done
    
24. 
    

复制代码

代码真的很笨， 实现出来了，但是存在很大问题，假如我给定的数小于 随机数的最大范围的值的2倍，会出问题。

Herowinter

回复 1# lmtwl

第一次2，第二次199，程序结束？重新再来？
   

lmtwl

回复 3# Herowinter

回复 3# Herowinter

对。

最好的话 ，第一次参数2 ，第2次 产生了 199 ，就重新再产生 成198，第一次产生的不变动


   
   

lmtwl

回复 3# Herowinter


   

解决了那个问题。


#!/bin/bash
#set -x
function rand(){
    min=$1
    max=$(($2-$min+1))
    num=$(($RANDOM+1000000000))
    echo $(($num%$max+$min))
}
j=100
a=`expr $j / 2`
for ((i=0;j>0,j>$a ;i++  ));do
    x=$(rand 10 $a)
        j=`expr $j - ${x}`
        [ $j -lt $a ] && { x[i+1]=$j ; }
done

for ((i=0;i<${#x[@]};i++));do

echo ${x}


done

Herowinter

回复 4# lmtwl

不想用awk的话，应该可以改成shell的吧。

1. echo|awk 'BEGIN{srand();max=target=200} {while(sum<target){r=int(rand()*200%max+1);sum+=r;if(sum>target){sum-=r;max=r-1}else a[++n]=r};for(i=1;i<=n;i++)print a[i]}'
   
2. 129
   
3. 7
   
4. 1
   
5. 40
   
6. 15
   
7. 3
   
8. 3
   
9. 1
   
10. 1

复制代码

lmtwl

回复 6# Herowinter


    强，我整了那么多，你一句话就给我搞出来了

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sSum, @aNums) = (0);
   
6. {
   
7. RESTART:
   
8.     push (@aNums, int rand 200);
   
9.     $sSum += $_ for (@aNums);
   
10.     if ($sSum != 200){
    
11.         if ($sSum > 200){
    
12.             splice (@aNums, -1);
    
13.         }
    
14.         $sSum = 0;
    
15.         goto RESTART;
    
16.     }
    
17. }
    
18. 
    
19. printf ("%d => {%s}\n",$sSum,join ('+', @aNums));
    

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sSum, @aNums) = (0);
   
6. until ($sSum == 200){
   
7.     $sSum = 0;
   
8.     push (@aNums, int rand 200);
   
9.     $sSum += $_ for @aNums;
   
10.     splice (@aNums, -1) if ($sSum > 200);
    
11. }
    
12. printf ("%d => {%s}\n",$sSum,join ('+', @aNums));
    

复制代码

sunzhiguolu

回复 1# lmtwl
1.> 如果生成的随机数恰巧比较小, 那么生成的随机数一定有非常多的重复. (如何避免生成重复的随机数, 总和依旧是 200)
2.> 如何控制总和是 200, 但生成的随机数的组成的个数.
3.> 补充一个, 能否控制按顺序生成随机数. 由大到小的随机数, 总和依旧是 200.
随便一问, .