趣味集算:算二十四

算24点,是一种常见的智力游戏。它可以使用抽去大小王的扑克牌来玩,随便抽出4张牌,要求通过加、减、乘、除等四则运算,并使用所有的这4个数,将结果算为24。在玩这个游戏时,扑克牌中的JQK记为11,12和13。

用集算器,可以比较方便地编写程序,根据随便给定的4个数,计算出游戏的解答,如下面的24points.dfx:

A B C D
1 =arg1 [+,-,*,/] [] []
2 =to(0,255).([~\64+1, ~%64\16+1,~%16\4+1,~%4+1]) =A2.select(~.id().count()==4)
3 =to(0,63).([~\16+1, ~%16\4+1,~%4+1]) =A3.select(~.eq([1,2,3])) =A3.(~.(B1(~)))
4 =B2.(~.(A1(~))) =A4.id()
5 for B4 for B3 for C3 >func(A8,A5,B5,C5)
6 =C1.id(~) for A6 if round(eval(B6),3) ==24 >D1=D1|B6
7 if D1.len()==0 >D1=”No answer.”
8 func =A8.(~)
9 =B8.(~) for B9 >B9.(~=~-if(#>#C9 && ~>C9,1,0))
10 for B9 =D8(B10)/C8(#B10)/ D8(B10+1) >D8.delete(B10)
11 if #B10==3 >C1=C1&C10
12 else >D8(B10)=”(“/C10/”)”
13 return D1

其中,arg1用参数输入使用的4张牌上的数,参数也可在A1中查看:

下面,详细分析一下这段代码。

计算使用的4个数在A1中给出,这里用的四张牌是8,3,8,3。首先,在算24点时,应该尝试4张牌的所有顺序。所以,先在A2中,利用一个4位的4进制数,来列出4张牌的可重复排列情况。在B2中,仅选出不重复排列的情况如下:

在计算时,4个数中间共需要插入3个四则运算符号,每个符号都可以从加减乘除中4选1。在A3中循环一个3位的4进制数,列出所有情况如下:

在计算时,不同的计算顺序会影响结果,可以通过添加括号来调整计算顺序。3个运算符号,说明计算可以分为3个位置执行,添加括号即是决定这3个位置的执行顺序。在B3中,从A3的结果中选择了同时包含1,2,3的组合,即为所有可能的执行顺序如下:

由于选出的4张牌中,有可能出现重复的数,为了避免因此造成的多余循环,在A4中把所有的牌面排列顺序列出,并在B4中去掉了可能出现的重复的排列情况。对于A1中给出的[8,3,8,3],B4中列出排列结果如下:

在第5行的程序中,对于每种数的排列,循环每一种符号选择,并循环所有的计算顺序,调用A8中的子程序计算。

调用A8中的子程序时,数值序列、符号序列和计算顺序序列,分别填到A8,B8,C8中,并在D8中准备计算使用的表达式。单步计算完成后,原有的总计算步数就少了1步,还需要在第9行中相应调整计算顺序序列。在B10中执行循环,每计算一步,都将两个数或表达式用计算符号连接起来,同时在D8中删除1个占位。在第11行执行判断,对于最后一步计算,将把获得的表达式添加到序列C1中。如果是中间步骤,则会在新生成的表达式中添加括号,以保证计算顺序,并将这部分表达式更新到D8中。

这样,当第5行代码中循环调用子程序完毕,就在C1中得到了所有可能出现的表达式。其中会有一些重复的情况,因此在A6中用id()函数去掉重复的表达式。C1和A6中的表达式序列如下:

在B6中循环A6中的各个表达式,判断结果是否等于24,判断时只需用eval函数计算表达式的结果即可,考虑到双精度数的计算误差,结果保留3位小数。如果结果等于24,说明当前个表达式可以满足条件,在D6中,将其存储到D1中。

在所有的情况都循环完毕后,在A7中,如果发现D1中未填入任何表达式,则说明无解。

计算完成后,就可以在D1中查看结果如下:

如果需要修改使用的4张牌,则可在计算前修改网格参数arg1,如修改为[7,3,3,7]:

计算后,D1中查看到的结果如下:

可以在另一段程序中,通过调用24points.dfx,计算出所有4张扑克牌组合的结果:

A B C
1 =file(“d:/file/24points.dfx”) =create(Num1,Num2,Num3,Num4,Answer)
2 13 =A2*A2 =B2*A2
3 =to(0,A2*C2-1).([~\C2+1, ~%C2\B2 +1,~%B2\A2+1,~%A2+1]) =A3.(~.sort()).id() >B3.run((a=~,B1.insert(0,a(1),a(2),a(3),a(4),call(A1,a))))
4 =file(“d:/file/24points.txt”) >[email protected](B1)

在这段代码中,A3中列出4张扑克牌的所有组合:

由于同样的4张牌只是打乱顺序,它们的解答是相同的,所以在B3中将A3中的组合排序整理,并去掉重复的情况,以便减少运算次数:

在C3中,针对B3中的每一种情况,调用24points.dfx来计算结果,并将结果记录在B1的表中,计算结束后,B1中得到的结果如下:

在第4行,把计算得到的结果记录在文件中,集算器支持多种格式的文件,为了便于查看,这里选择存储到文本文件24points.txt中,存储结果如下:

原文地址:http://blog.51cto.com/12749034/2153500

时间: 2024-10-05 06:32:32

趣味集算:算二十四的相关文章

3360: [Usaco2004 Jan]算二十四

3360: [Usaco2004 Jan]算二十四 Time Limit: 10 Sec  Memory Limit: 128 MBSubmit: 6  Solved: 6[Submit][Status][Discuss] Description 写一个程序,给出D(2≤D≤10)个数字,按原顺序在数字间加+,一,×算出24,且不使用括 号.优先级按正常的优先级处理,即先做乘法后做加减法.输出有多少种不同的方案数. Input 第1行:一个整数D. 第2到D+1行:D个整数,在1到50之间. O

二十四孝,图文并茂,古今必读!

知道“二十四孝”的人,已经不多了:知道“二十四孝”的年轻人,更是少之又少.“孝”在今日社会,似乎已是一个“过气”的词,人老珠黄般,逗不起众人的欲望了.我们读<二十四孝>,感觉那似乎是十分遥远的故事.其实细细想来,它好像又近在咫尺,离我们并不远. 01 孝感动天 舜,传说中的远古帝王,五帝之一,姓姚,名重华,号有虞氏,史称虞舜.相传他的父亲瞽叟及继母.异母弟象,多次想害死他:让舜修补谷仓仓顶时,从谷仓下纵火,舜手持两个斗笠跳下逃脱:让舜掘井时,瞽叟与象却下土填井,舜掘地道逃脱.事后舜毫不嫉恨,仍

请对照这二十四条逻辑谬误自行打脸(转自知乎谢熊猫专栏)

[科普工具文]请对照这二十四条逻辑谬误自行打脸 谢熊猫君 · 1 年前 两年前,我还活跃在人人网的时候,曾经整理过一篇常见逻辑谬误的工具文,用来帮助大家在网络讨论中打脸用: [科普工具文]请对照这二十四条逻辑谬误自行打脸 这两年来在一些社交网站和互联网论坛中常看到有人使用这篇文章,想来也是有点用处的,特意在这边转帖一下,为方便各位在知乎讨论时能更加方便的辨别逻辑问题. ======================= ======================= 本文内容基本都来自于英文网站ht

马哥学习笔记二十四——分布式复制快设备drbd

DRBD: 主从 primary: 可执行读.写操作 secondary: 文件系统不能挂载 DRBD: dual primay, 双主(基于集群文件系统的高可用集群) 磁盘调度器:合并读请求,合并写请求: Procotol:drbd数据同步协议 A: Async, 异步  数据发送到本机tcp/ip协议栈 B:semi sync, 半同步  数据发送到对方tcp/ip协议 C:sync, 同步  数据到达对方存储设备 DRBD Source: DRBD资源 资源名称:可以是除了空白字符外的任意

云计算设计模式(二十四)——仆人键模式

云计算设计模式(二十四)——仆人键模式 使用一个令牌或密钥,向客户提供受限制的直接访问特定的资源或服务,以便由应用程序代码卸载数据传输操作.这个模式是在使用云托管的存储系统或队列的应用中特别有用,并且可以最大限度地降低成本,最大限度地提高可扩展性和性能. 背景和问题 客户端程序和网络浏览器经常需要读取和写入文件或数据流,并从一个应用程序的存储空间.通常,应用程序将处理的运动数据,或者通过从存储读取它,并将其传输到客户端,或通过从客户机读取该载流并将其存储在数据存储中.然而,这种方法吸收了宝贵的资

从零开始学android&lt;android事件的处理方式.二十四.&gt;

在android中一共有 多种事件,每种事件都有自己相对应的处理机制 如以下几种 1 单击事件 View.OnClickListener public abstract void onClick (View v) 单击组件时触发 2 单击事件 View.OnLongClickListener public abstract boolean onLongClick (View v) 长按组件时触发 3 键盘事件 View.OnKeyListener public abstract boolean

实验二十四:SD卡模块

  驱动SD卡是件容易让人抓狂的事情,驱动SD卡好比SDRAM执行页读写,SD卡虽然不及SDRAM的麻烦要求(时序参数),但是驱动过程却有猥琐操作.除此此外,描述语言只要稍微比较一下C语言,描述语言一定会泪流满面,因为嵌套循环,嵌套判断,或者嵌套函数等都是它的痛.. 史莱姆模块是多模块建模的通病,意指结构能力非常脆弱的模块,暴力的嵌套行为往往会击垮模块的美丽身躯,好让脆弱结构更加脆弱还有惨不忍睹,最终搞垮模块的表达能力.描述语言预想驾驭SD卡,关键的地方就是如何提升模块的结构能力.简单而言,描述

攻城狮在路上(叁)Linux(二十四)--- linux设置开机挂载及镜像文件挂载

虽然可以手动进行文件系统的挂载,但是每次都手动挂载就会很麻烦,开机挂载的目的就是实现文件系统的自动挂载. 一.开机挂载:/etc/fstab及/etc/mtab 主要是通过修改/etc/fstab文件的配置来实现. fstab是开机时的设置,实际文件系统的挂载是记录到/etc/mtab和/proc/mounts这两个文件中. 1.系统挂载的限制: A.根目录/必须挂载,而且一定是最先挂载的,要先于其他mount point. B.其他挂载点必须为已新建的目录,可以任意指定. C.所有挂载点在同一

全栈JavaScript之路( 二十四 )DOM2、DOM3, 不涉及XML命名空间的扩展

(一)DocumentType 类型的变化新增三个属性: publicId,systemId,internalSubset(内部子集) <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" [<!ELEMENT name (#PCDATA)>] > 通过, document.doc

【管理心得之二十四】成功乃失败之母

场景再现 ======================= Boss:侯さん,这次项目做得不错. 一,得到日本客户的高评, 二,争取到了新客户 三,新领域尝试是正确的 所谓是"一箭三雕",年底一定给你们团队一个嘉奖. 侯さん:哪里哪里,若不是您在背后的大力支持,"巧妇难为无米之炊"哪里有今天的成果. Boss:切忌"成功是失败之母",你去忙吧. 侯さん:嗯------? {侯さん走出办公室,心想---..} "这Boss有点意思,耳熟能详