免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
123下一页
最近访问板块 发新帖
查看: 12798 | 回复: 20
打印 上一主题 下一主题

[数值计算] 任意排列、组合算法终极Shell脚本 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2012-06-20 03:31 |只看该作者 |倒序浏览
本帖最后由 crulat 于 2013-07-02 18:33 编辑

  1. #!/bin/bash
  2. # permutation_combination

  3. # Version: 4.1
  4. # Author : YongYe <complex.invoke@gmail.com>

  5. arg0=-1
  6. sep=${4:-.}
  7. argv=${3:-p}
  8. number=${2:-3}
  9. eval ary=({1..${1:-4}})
  10. length=${#ary[@]}
  11. ((limit=length-number))
  12. (( number > length )) && exit 1

  13. percom(){ loop i ${1} number${2} ${3} ${4} ${5}; }
  14. invoke(){ echo $(percom ${argu} loop -1) prtcom $(percom ${argu}); }
  15. permut(){ echo -n "${1} arg${i} ${2} "; (( ${#} != 0 )) && echo -n " length "; }
  16. combin(){ (( ${#} != 0 )) && echo -n "${1} arg$((i+1)) arg${i} limit+$((i+1)) " || echo -n "arg$((i+1)) "; }
  17. prtcom(){ num=0; for i in ${@}; do echo -n ${ary[${!i}]}; (( ++num != number )) && echo -n "${sep}"; done; echo; }

  18. loop()
  19. {
  20.    local arc arg
  21.    arg=${1//arg}
  22.    for((${1}=${2}+1; ${1}<${3}; ++${1})); do
  23.         if [[ ${1//[0-9]} == arg ]]; then
  24.               for((arc=1; arc!=arg; ++arc)); do
  25.                    (( ${1} == arg${arc} )) && continue 2
  26.               done
  27.         fi
  28.         eval eval \\\$\{{4..${#}}\}
  29.    done
  30. }

  31. case ${argv} in
  32.      P|p) argu="-0 +1 permut" ;;
  33.      C|c) argu="-1 +0 combin" ;;
  34.      *  ) exit 1              ;;
  35. esac

  36. $(invoke)
复制代码
Invoke the script:
C 4 3

  1. [root@node2 ~]# bash permutation_combination 4 3 c
  2. 1.2.3
  3. 1.2.4
  4. 1.3.4
  5. 2.3.4
复制代码
P 4 3

  1. [root@node2 ~]# bash permutation_combination 4 3 p | xargs -n 6
  2. 1.2.3 1.2.4 1.3.2 1.3.4 1.4.2 1.4.3
  3. 2.1.3 2.1.4 2.3.1 2.3.4 2.4.1 2.4.3
  4. 3.1.2 3.1.4 3.2.1 3.2.4 3.4.1 3.4.2
  5. 4.1.2 4.1.3 4.2.1 4.2.3 4.3.1 4.3.2
复制代码
C 8 5

  1. [root@node2 ~]# bash permutation_combination 8 5 c | xargs -n 8
  2. 1.2.3.4.5 1.2.3.4.6 1.2.3.4.7 1.2.3.4.8 1.2.3.5.6 1.2.3.5.7 1.2.3.5.8 1.2.3.6.7
  3. 1.2.3.6.8 1.2.3.7.8 1.2.4.5.6 1.2.4.5.7 1.2.4.5.8 1.2.4.6.7 1.2.4.6.8 1.2.4.7.8
  4. 1.2.5.6.7 1.2.5.6.8 1.2.5.7.8 1.2.6.7.8 1.3.4.5.6 1.3.4.5.7 1.3.4.5.8 1.3.4.6.7
  5. 1.3.4.6.8 1.3.4.7.8 1.3.5.6.7 1.3.5.6.8 1.3.5.7.8 1.3.6.7.8 1.4.5.6.7 1.4.5.6.8
  6. 1.4.5.7.8 1.4.6.7.8 1.5.6.7.8 2.3.4.5.6 2.3.4.5.7 2.3.4.5.8 2.3.4.6.7 2.3.4.6.8
  7. 2.3.4.7.8 2.3.5.6.7 2.3.5.6.8 2.3.5.7.8 2.3.6.7.8 2.4.5.6.7 2.4.5.6.8 2.4.5.7.8
  8. 2.4.6.7.8 2.5.6.7.8 3.4.5.6.7 3.4.5.6.8 3.4.5.7.8 3.4.6.7.8 3.5.6.7.8 4.5.6.7.8
复制代码
P 5 5

  1. [root@node2 ~]# bash permutation_combination 5 5 p | xargs -n 8
  2. 1.2.3.4.5 1.2.3.5.4 1.2.4.3.5 1.2.4.5.3 1.2.5.3.4 1.2.5.4.3 1.3.2.4.5 1.3.2.5.4
  3. 1.3.4.2.5 1.3.4.5.2 1.3.5.2.4 1.3.5.4.2 1.4.2.3.5 1.4.2.5.3 1.4.3.2.5 1.4.3.5.2
  4. 1.4.5.2.3 1.4.5.3.2 1.5.2.3.4 1.5.2.4.3 1.5.3.2.4 1.5.3.4.2 1.5.4.2.3 1.5.4.3.2
  5. 2.1.3.4.5 2.1.3.5.4 2.1.4.3.5 2.1.4.5.3 2.1.5.3.4 2.1.5.4.3 2.3.1.4.5 2.3.1.5.4
  6. 2.3.4.1.5 2.3.4.5.1 2.3.5.1.4 2.3.5.4.1 2.4.1.3.5 2.4.1.5.3 2.4.3.1.5 2.4.3.5.1
  7. 2.4.5.1.3 2.4.5.3.1 2.5.1.3.4 2.5.1.4.3 2.5.3.1.4 2.5.3.4.1 2.5.4.1.3 2.5.4.3.1
  8. 3.1.2.4.5 3.1.2.5.4 3.1.4.2.5 3.1.4.5.2 3.1.5.2.4 3.1.5.4.2 3.2.1.4.5 3.2.1.5.4
  9. 3.2.4.1.5 3.2.4.5.1 3.2.5.1.4 3.2.5.4.1 3.4.1.2.5 3.4.1.5.2 3.4.2.1.5 3.4.2.5.1
  10. 3.4.5.1.2 3.4.5.2.1 3.5.1.2.4 3.5.1.4.2 3.5.2.1.4 3.5.2.4.1 3.5.4.1.2 3.5.4.2.1
  11. 4.1.2.3.5 4.1.2.5.3 4.1.3.2.5 4.1.3.5.2 4.1.5.2.3 4.1.5.3.2 4.2.1.3.5 4.2.1.5.3
  12. 4.2.3.1.5 4.2.3.5.1 4.2.5.1.3 4.2.5.3.1 4.3.1.2.5 4.3.1.5.2 4.3.2.1.5 4.3.2.5.1
  13. 4.3.5.1.2 4.3.5.2.1 4.5.1.2.3 4.5.1.3.2 4.5.2.1.3 4.5.2.3.1 4.5.3.1.2 4.5.3.2.1
  14. 5.1.2.3.4 5.1.2.4.3 5.1.3.2.4 5.1.3.4.2 5.1.4.2.3 5.1.4.3.2 5.2.1.3.4 5.2.1.4.3
  15. 5.2.3.1.4 5.2.3.4.1 5.2.4.1.3 5.2.4.3.1 5.3.1.2.4 5.3.1.4.2 5.3.2.1.4 5.3.2.4.1
  16. 5.3.4.1.2 5.3.4.2.1 5.4.1.2.3 5.4.1.3.2 5.4.2.1.3 5.4.2.3.1 5.4.3.1.2 5.4.3.2.1
复制代码

论坛徽章:
8
摩羯座
日期:2014-11-26 18:59:452015亚冠之浦和红钻
日期:2015-06-23 19:10:532015亚冠之西悉尼流浪者
日期:2015-08-21 08:40:5815-16赛季CBA联赛之山东
日期:2016-01-31 18:25:0515-16赛季CBA联赛之四川
日期:2016-02-16 16:08:30程序设计版块每日发帖之星
日期:2016-06-29 06:20:002017金鸡报晓
日期:2017-01-10 15:19:5615-16赛季CBA联赛之佛山
日期:2017-02-27 20:41:19
2 [报告]
发表于 2012-06-20 08:44 |只看该作者
牛!学习了!

论坛徽章:
15
2015年辞旧岁徽章
日期:2015-03-03 16:54:15双鱼座
日期:2015-01-15 17:29:44午马
日期:2015-01-06 17:06:51子鼠
日期:2014-11-24 10:11:13寅虎
日期:2014-08-18 07:10:55酉鸡
日期:2014-04-02 12:24:51双子座
日期:2014-04-02 12:19:44天秤座
日期:2014-03-17 11:43:36亥猪
日期:2014-03-13 08:13:51未羊
日期:2014-03-11 12:42:03白羊座
日期:2013-11-20 10:15:18CU大牛徽章
日期:2013-04-17 11:48:45
3 [报告]
发表于 2012-06-20 08:46 |只看该作者
能让waker 说牛的不多,看看先。

论坛徽章:
0
4 [报告]
发表于 2012-06-20 10:05 |只看该作者
强 ,崇拜的偶像

论坛徽章:
93
2015年辞旧岁徽章
日期:2019-10-10 10:51:15CU大牛徽章
日期:2014-02-21 14:21:56CU十二周年纪念徽章
日期:2020-10-15 16:55:55CU大牛徽章
日期:2014-02-21 14:22:07羊年新春福章
日期:2019-10-10 10:51:39CU大牛徽章
日期:2019-10-10 10:55:38季节之章:春
日期:2020-10-15 16:57:40ChinaUnix元老
日期:2019-10-10 10:54:42季节之章:冬
日期:2019-10-10 10:57:17CU大牛徽章
日期:2014-02-21 14:22:52CU大牛徽章
日期:2014-03-13 10:40:30CU大牛徽章
日期:2014-02-21 14:23:15
5 [报告]
发表于 2012-06-20 17:43 |只看该作者
需要这么牛吗!

论坛徽章:
0
6 [报告]
发表于 2012-06-20 17:53 |只看该作者
不是一般的牛啊

论坛徽章:
1
巳蛇
日期:2013-10-28 15:55:33
7 [报告]
发表于 2012-06-20 17:58 |只看该作者
算法底子很强。

论坛徽章:
33
ChinaUnix元老
日期:2015-02-02 08:55:39CU十四周年纪念徽章
日期:2019-08-20 08:30:3720周年集字徽章-周	
日期:2020-10-28 14:13:3020周年集字徽章-20	
日期:2020-10-28 14:04:3019周年集字徽章-CU
日期:2019-09-08 23:26:2519周年集字徽章-19
日期:2019-08-27 13:31:262016科比退役纪念章
日期:2022-04-24 14:33:24
8 [报告]
发表于 2012-06-20 18:58 |只看该作者
学习了

论坛徽章:
0
9 [报告]
发表于 2012-06-20 21:58 |只看该作者
是我要的东西

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
10 [报告]
发表于 2012-06-20 23:29 |只看该作者
强,学习!

为啥不能给加分了?
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP