給定一個(gè)數(shù)，不停產(chǎn)生隨機(jī)數(shù)，直到產(chǎn)生的隨機(jī)數(shù)之和等于給定的這個(gè)數(shù)

lmtwl

假如 ：給定一個(gè)數(shù)a=200

然后開始不停產(chǎn)生小于 200的隨機(jī)數(shù)，直到 這些隨機(jī)數(shù)之和等于 a （產(chǎn)生的隨機(jī)數(shù)之和不能大于或者小于a）

然后將這些隨機(jī)數(shù) 存儲(chǔ)于 數(shù)組中。

請(qǐng)教 大神們這個(gè)shell應(yīng)該怎么去寫。

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. 
    

復(fù)制代碼

代碼真的很笨， 實(shí)現(xiàn)出來(lái)了，但是存在很大問題，假如我給定的數(shù)小于 隨機(jī)數(shù)的最大范圍的值的2倍，會(huì)出問題。

Herowinter

回復(fù) 1# lmtwl

第一次2，第二次199，程序結(jié)束？重新再來(lái)？
   

lmtwl

回復(fù) 3# Herowinter

回復(fù) 3# Herowinter

對(duì)。

最好的話 ，第一次參數(shù)2 ，第2次 產(chǎn)生了 199 ，就重新再產(chǎn)生 成198，第一次產(chǎn)生的不變動(dòng)


   
   

lmtwl

回復(fù) 3# Herowinter


   

解決了那個(gè)問題。


#!/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

回復(fù) 4# lmtwl

不想用awk的話，應(yīng)該可以改成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

復(fù)制代碼

lmtwl

回復(fù) 6# Herowinter


    強(qiáng)，我整了那么多，你一句話就給我搞出來(lái)了

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));
    

復(fù)制代碼

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));
    

復(fù)制代碼

sunzhiguolu

回復(fù) 1# lmtwl
1.> 如果生成的隨機(jī)數(shù)恰巧比較小, 那么生成的隨機(jī)數(shù)一定有非常多的重復(fù). (如何避免生成重復(fù)的隨機(jī)數(shù), 總和依舊是 200)
2.> 如何控制總和是 200, 但生成的隨機(jī)數(shù)的組成的個(gè)數(shù).
3.> 補(bǔ)充一個(gè), 能否控制按順序生成隨機(jī)數(shù). 由大到小的隨機(jī)數(shù), 總和依舊是 200.
隨便一問, .