随机数列

reyleon

1. [root@centos ~]# cat test.sh
   
2. #!/bin/bash
   
3. numbers() {
   
4.         for ((i=1;i<=50;i++));do
   
5.                 echo $RANDOM $1
   
6.         done
   
7. }
   
8. numbers 1
   
9. numbers 2
   
10. [root@centos ~]# bash test.sh | sort -n | awk '{s=s?s" "$2:$2}END{print s}'
    
11. 2 1 2 1 2 2 1 2 1 2 1 2 2 1 1 2 1 2 2 1 1 1 1 1 1 2 2 1 1 1 1 2 2 2 2 2 1 1 2 2 1 2 1 1 1 1 2 2 1 2 1 1 1 1 1 1 2 1 2 1 2 1 1 1 2 1 2 2 1 2 1 1 2 2 1 1 2 2 2 1 2 2 2 2 1 2 1 2 2 1 1 2 1 2 2 1 2 2 2 2
    
12. [root@centos ~]# bash test.sh | sort -n | awk '{s=s?s" "$2:$2}END{print s}'
    
13. 2 1 1 1 1 2 2 1 1 1 2 1 1 2 2 2 2 1 2 1 2 2 2 1 2 1 2 2 1 2 2 2 2 2 1 1 1 1 1 1 2 2 2 2 1 1 1 1 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 2 1 2 2 1 1 1 2 1 2 1 2 2 2 2 2 2 2 1 1 2 2 1 2 1 2 2 1 2 2 2 1 2 1 2 1
    
14. [root@centos ~]# bash test.sh | sort -n | awk '{s=s?s" "$2:$2}END{print s}'
    
15. 2 1 1 1 2 1 1 1 2 1 1 2 2 1 1 1 2 1 1 1 2 2 2 2 2 2 1 2 1 1 2 2 2 1 2 2 2 2 1 1 1 1 1 1 2 2 2 2 1 1 2 1 1 1 1 1 2 1 2 1 2 2 2 2 2 2 2 1 2 2 1 1 1 1 2 1 2 1 1 2 2 1 2 2 1 2 1 1 2 2 2 2 1 1 1 2 2 1 2 1
    
16. [root@centos ~]#
    

复制代码

pitonas

1. perl6 -e '[(1,2) xx 50].pick(100).print'

复制代码

yinyuemi

回复 12# pitonas


     学习!
     不过, 这语法怎么象python呢

pitonas

回复 13# yinyuemi

perl6呢
   

yinyuemi

回复 14# pitonas


    嗯,以前一直是听说的,这么看,和perl 5的差别还是比较大的

wsleichao3

来个奇葩点的PHP的

1. php -r 'echo str_shuffle(str_repeat('12',50))."\n";'

复制代码