忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT 徽章 文库 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 1242 | 回复: 7

[数值计算] [powershell]猴子选大王问题 [复制链接]

论坛徽章:
5
数据库技术版块每日发帖之星
日期:2015-11-27 06:20:00程序设计版块每日发帖之星
日期:2015-12-01 06:20:00每日论坛发贴之星
日期:2015-12-01 06:20:0015-16赛季CBA联赛之佛山
日期:2017-03-26 23:38:0315-16赛季CBA联赛之江苏
日期:2017-07-17 10:08:44
发表于 2017-08-18 12:36 |显示全部楼层
遇见这样一道题:

一群猴子排成一圈,按1,2,...,n依次编号。然后从第1只开始数,数到第m只,把它踢出圈,从它后面再开始数,再数到第m只,在把它踢出去...,
如此不停的进行下去,直到最后只剩下一只猴子为止,那只猴子就叫做大王。
要求编程输入m、n,如 choose(100, 3)
  1. choose(n, m)
复制代码


输出最后那个猴大王的编号。

谢谢!

打赏鼓励一下!

论坛徽章:
0
发表于 2017-08-18 14:42 |显示全部楼层
楼主真是好人那。 这两天我正在写powershell玩转数组,正好缺少例子,楼主就送来了。
这道题,我想邀请 sunzhiguolu 用ps编写。

提示1:
ps数组有静态的,如果用静态数组解这道题,数组中的元素数目不变,元素值要变。比如,卖猴买孩子。把数组中的某元素值由【猴】,改成【孩子】。
数组有判断元素值,是否存在的-in和-contains,还有indexof(),lastindexof()对吧。



提示2:
ps数组有动态的,还有链表。如果用它俩解这道题,数组中元素值不变。元素数目依次减少。直到最后一个。
动态数组对象有.removeat()方法,对吧。


大家开动脑筋吧,哈哈,我太快告诉你答案,你印象不深刻。

论坛徽章:
5
数据库技术版块每日发帖之星
日期:2015-11-27 06:20:00程序设计版块每日发帖之星
日期:2015-12-01 06:20:00每日论坛发贴之星
日期:2015-12-01 06:20:0015-16赛季CBA联赛之佛山
日期:2017-03-26 23:38:0315-16赛季CBA联赛之江苏
日期:2017-07-17 10:08:44
发表于 2017-08-18 16:29 |显示全部楼层
大家开动脑筋吧,
shell 怎么写出代码?
poershell 怎么写出代码?

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2017-08-18 21:08 |显示全部楼层
本帖最后由 sunzhiguolu 于 2017-08-18 21:27 编辑
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  4. my ($n, $m, $try) = (10, 5, 0);
  5. my %hNums = map {$_, $_} 1 .. $n;
  6. my @aBox = ();

  7. while(1 < grep {$hNums{$_}} keys %hNums){
  8.         {
  9.                 push(@aBox, $try) if($hNums{$try});
  10.                 if($try > keys %hNums){
  11.                         ($try) = sort {$a <=> $b} grep {$hNums{$_} and $try < $_} keys %hNums;
  12.                 }
  13.                 if(@aBox != $m){
  14.                         $try++;
  15.                         redo;
  16.                 }
  17.         }
  18.         print("$aBox[-1] is out!\n");
  19.         $hNums{$aBox[-1]} = 0;
  20.         $try = $aBox[-1] + 1;
  21.         @aBox = ();
  22. }
复制代码

perl abc.pl
---------------------------------
5 is out!
10 is out!
6 is out!
2 is out!
9 is out!
8 is out!
1 is out!
4 is out!
7 is out!

论坛徽章:
128
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07巳蛇
日期:2014-05-09 16:43:18巨蟹座
日期:2014-10-23 17:48:38子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59
发表于 2017-08-20 05:35 |显示全部楼层
回复 3# dorodaloo

$ awk -vn=10 -vm=5 'BEGIN{printf "out=";for(c=1;c<=n;++c)a[c]=c;choose(n,m)}function choose(n,m,p){if(++C>100)exit;if(n==1){print "\nKing="a[1];exit};p=(p+m-1)%n+1;printf " "a[p];for(c=p;c<n;++c)a[c]=a[c+1];choose(n-1,m,p-1)}'
out= 5 10 6 2 9 8 1 4 7
King=3

$ awk -vn=3 -vm=100 'BEGIN{printf "out=";for(c=1;c<=n;++c)a[c]=c;choose(n,m)}function choose(n,m,p){if(++C>100)exit;if(n==1){print "\nKing="a[1];exit};p=(p+m-1)%n+1;printf " "a[p];for(c=p;c<n;++c)a[c]=a[c+1];choose(n-1,m,p-1)}'
out= 1 3
King=2

$ awk -vn=100 -vm=3 'BEGIN{printf "out=";for(c=1;c<=n;++c)a[c]=c;choose(n,m)}function choose(n,m,p){if(++C>100)exit;if(n==1){print "\nKing="a[1];exit};p=(p+m-1)%n+1;printf " "a[p];for(c=p;c<n;++c)a[c]=a[c+1];choose(n-1,m,p-1)}'
out= 3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 2 7 11 16 20 25 29 34 38 43 47 52 56 61 65 70 74 79 83 88 92 97 1 8 14 22 28 35 41 49 55 62 68 76 82 89 95 4 13 23 32 44 53 64 73 85 94 5 19 37 50 67 80 98 17 40 59 86 10 46 77 26 71 31 100 58
King=91

论坛徽章:
0
发表于 2017-08-21 12:00 |显示全部楼层
本帖最后由 本友会机友会摄友会 于 2017-08-21 14:09 编辑

假如说:
撒尿虾=bash,中有命令行,有管道,
牛肉丸=python,中有对象,有方法。
他俩各有好处,语法,用法,完全不同。
就好像鱼与熊掌一样,直到有了powershell for linux。
那么,
powershell=bash+python=争什么,掺在一起做撒尿牛丸啊,笨蛋!

此脚本目的。演示:ps数组,命令行传参数,方法,中文编码,注释。



  1. <#
  2. 一群猴子排成一圈,按1,2,...,n依次编号。然后从第1只开始数,数到第m只,把它踢出圈,从它后面再开始数,再数到第m只,在把它踢出去...,
  3. 如此不停的进行下去,直到最后只剩下一只猴子为止,那只猴子就叫做大王。

  4. 保存方法:
  5. h猴子选大王.ps1
  6. utf16-le编码+带有bom头,
  7. utf-8编码+带有bom头,

  8. 运行方法:
  9. h猴子选大王.ps1  -一共n只猴 100    -一次数m只 7
  10. #>

  11. [CmdletBinding()]
  12. param (
  13.         [uint32]$一共n只猴,
  14.         [uint32]$一次数m只
  15. )

  16. if ($一共n只猴 -le $一次数m只)
  17. {
  18.         Write-Error '一次数猴太多'
  19.         exit 1
  20. }

  21. $猴笼1 = @()
  22. foreach ($i in 1..$一共n只猴)
  23. {
  24. #把猴笼1装满猴
  25.         $猴笼1 += '猴'
  26. }

  27. $猴笼2 = @()
  28. $数到第几只 = 0
  29. do
  30. {
  31.         foreach ($i in 0..($一共n只猴 - 1))
  32.         {
  33.                 if ($猴笼1[$i] -eq '孩子')
  34.                 {
  35.                         continue
  36.                 }
  37.                 else
  38.                 {
  39.                         $数到第几只++
  40.                         if ($数到第几只 -eq $一次数m只)
  41.                         {
  42.                                 #开始踢猴
  43.                                 $猴笼1[$i] = '孩子' #猴变孩子
  44.                                 $猴笼2 += "进来了第{0}只猴" -f ($i + 1) #把这只猴移动到猴笼2
  45.                                 $数到第几只 = 0
  46.                         }
  47.                 }
  48.         }
  49. } until ($猴笼1 -notcontains '猴')

  50. $猴王 = $猴笼2[-1]

  51. write-host $猴王
复制代码

centos73 + powershell 6.0 beta5 测试通过。

运行:
输入【h】打tab即出 【h猴子选大王.ps1】
输入【空格】【-】打tab即出 【-一共n只猴】


powershell/h猴子选大王.ps1 -一共n只猴 100 -一次数m只 3  
返回:
进来了第91只猴

论坛徽章:
27
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-08-21 12:29 |显示全部楼层

  1. #!/usr/bin/env python
  2. # encoding:utf-8

  3. def choose(n, m):
  4.     l = ["monkey-" + str(i + 1) for i in xrange(n)]
  5.     idx = 0
  6.     cnt = 0

  7.     while (len(l) > 1):
  8.         if idx == len(l):
  9.             idx = 0
  10.         cnt += 1
  11.         if cnt == m:
  12.             print l[idx] + " => out..."
  13.             l.remove(l[idx])
  14.             cnt = 0
  15.             continue
  16.         idx += 1
  17.     print "==================\n" + l[0] + " => king"

  18. choose(10, 3)
复制代码

论坛徽章:
5
数据库技术版块每日发帖之星
日期:2015-11-27 06:20:00程序设计版块每日发帖之星
日期:2015-12-01 06:20:00每日论坛发贴之星
日期:2015-12-01 06:20:0015-16赛季CBA联赛之佛山
日期:2017-03-26 23:38:0315-16赛季CBA联赛之江苏
日期:2017-07-17 10:08:44
发表于 2017-08-21 13:52 |显示全部楼层
这个是真的非常厉害了
谢谢
刚试了一下,perl不符合要求

您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP