URN Logo
UNIX Resources » Linux » China Linux Forum » Perl 编 程 » 3 » 一道智力题,有兴趣者请进。
announcement 声明: 本页内容为中国Linux论坛的内容镜像,文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者,如果转载,请注明文章来源及相关版权信息。
Resources
China Linux Forum(finished)
Linux Forum(finished)
FreeBSD China(finished)
linuxforum.net
  业界新闻与评论
  自由软件杂谈
  IT 人生
  Linux软件快递
  翻译作坊
  Linux图书与评论
  GNU Emacs/XEmacs
  Linux 中文环境和中文化
  Linux桌面与办公软件
  Linux 多媒体与娱乐版
  自由之窗Mozilla
  笔记本电脑上的Linux
  Gentoo
  Debian 一族
  网络管理技术
  Linux 安装与入门
  WEB服务器和FTP服务器
  域名服务器和邮件服务器
  Linux防火墙和代理服务器应用
  文件及打印服务器
  技术培训与认证
  Linux内核技术
  Linux 嵌入技术
  Linux设备驱动程序
  Linux 集群技术
  LINUX平台数据库
  系统和网络安全
  CPU 与 编译器
  系统计算研究所专栏
  Linux下的GUI软件开发
  C/C++编程版
  PHP 技 术
  Java&jsp技术
  Shell编程技术
  Perl 编 程
  Python 编 程
  XML/Web Service 技术
  永远的Unix
  FreeBSD世界
   
一道智力题,有兴趣者请进。
一道智力题,有兴趣者请进。 - mscmm [2004-12-13 16:10 | 202 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - kiwen [2005-01-27 16:29 | 2,280 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - fazi998 [2005-01-05 15:38 | 46 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - fazi998 [2005-01-05 15:46 | 313 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - mscmm [2005-01-13 15:34 | 181 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - bbwolf [2005-01-22 20:10 | 6 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - bbwolf [2005-01-22 21:08 | 416 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - bbwolf [2005-01-22 22:28 | 64 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - bbwolf [2005-01-23 09:37 | 148 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - patience [2005-01-29 07:28 | 152 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - echo_her [2005-02-20 02:25 | 227 byte(s)]
 
 
Re: 一道智力题,有兴趣者请进。 - ating [2005-03-24 18:47 | 63 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - footfly [2005-03-16 21:53 | 1,416 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - fazi998 [2005-01-05 15:48 | 74 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - WC_CLF [2005-01-07 17:40 | 66 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - fazi998 [2005-01-08 04:35 | 85 byte(s)]
 
Re: 一道智力题,有兴趣者请进。 - WC_CLF [2005-01-22 21:22 | 38 byte(s)]
 
 
Re: 一道智力题,有兴趣者请进。 - WC_CLF [2004-12-30 10:04 | 141 byte(s)]
 
 
 
 
Re: 一道智力题,有兴趣者请进。 - mscmm [2004-12-15 12:51 | 26 byte(s)]
 
Subject: 一道智力题,有兴趣者请进。
Author: mscmm    Posted: 2004-12-13 16:10    Length: 202 byte(s)
[Original] [Print] [Top]
本题为测试智力的题,如你不曾作过或作过已忘者能自己作出,则智力至少比常人高。
现有12个看上去相同的小球和一个天平,其中有一球重量不同于其他小球,现请只通过称3次就将该小球找出,不能有任何漏洞。
----
mcmsm
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: DanceDanceDance    Posted: 2004-12-14 00:17    Length: 38 byte(s)
[Original] [Print] [Top]
我觉得做不出来的人的智商至少比一般人低
----
It's better to burn out than to fade away...
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: mscmm    Posted: 2004-12-15 12:51    Length: 26 byte(s)
[Original] [Print] [Top]
你很聪明,希望你能作出来。
----
mcmsm
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: DanceDanceDance    Posted: 2004-12-16 12:30    Length: 66 byte(s)
[Original] [Print] [Top]
Excuse me that the problem might be much harder than I thought ;-(
----
It's better to burn out than to fade away...
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: littleboywj    Posted: 2004-12-23 09:36    Length: 36 byte(s)
[Original] [Print] [Top]
此题的关键是在于对每个求编号,对吧?
----
Gnu is Not Unix!
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: WC_CLF    Posted: 2004-12-30 10:04    Length: 141 byte(s)
[Original] [Print] [Top]
DDD
只考虑了已知特殊球重量重或轻的特殊情况,见笑。
----
__0oooo__
依稀间层峦叠障,仰天望片片隐霾。
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: fazi998    Posted: 2005-01-05 15:38    Length: 46 byte(s)
[Original] [Print] [Top]
以前学basic时编过这个程序,,现在老了,,55~~~
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: fazi998    Posted: 2005-01-05 15:46    Length: 313 byte(s)
[Original] [Print] [Top]
自己再尝试回答一次看对不对
第一次:
随机,3 V 3 有两种情况:平衡和失横
平衡: 说明轻球在另外6个 重新3v3
失衡: 在轻球边 随机 1 V 1 根据结果判断 那个时轻球。

perl我不会,,思路应该是这样,请朋友们评判~~
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: fazi998    Posted: 2005-01-05 15:48    Length: 74 byte(s)
[Original] [Print] [Top]
我刚才重新看了原题,好像是说轻重为知,,
把上面的算法稍微改动就可
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: lonelyflyer    Posted: 2005-01-06 10:45    Length: 57 byte(s)
[Original] [Print] [Top]
西电版的《离散数学》书讲决策树时讲了这个题,不过是8个球的
----
General Assembly resolution 217 A (III)
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: WC_CLF    Posted: 2005-01-07 17:40    Length: 66 byte(s)
[Original] [Print] [Top]
我看到的题目是重量不知,所以要分三组,最初没考虑到,让各位见笑了。
----
__0oooo__
依稀间层峦叠障,仰天望片片隐霾。
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: fazi998    Posted: 2005-01-08 04:35    Length: 85 byte(s)
[Original] [Print] [Top]
我的答案需要我公布一下吗??
我也不知正确与否,这种题,小学5年级时特喜欢玩~~
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: mscmm    Posted: 2005-01-13 15:34    Length: 181 byte(s)
[Original] [Print] [Top]
我很想知道你的算法,因为你的算法和我的不一样,可是你的回复太简单了,根本就看不出是对还是错,希望回个详细点的。
不过这道题好象只有一种算法,当然能有其他算法会令我很兴奋。
----
mcmsm
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: bbwolf    Posted: 2005-01-22 20:10    Length: 6 byte(s)
[Original] [Print] [Top]
请指教
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: bbwolf    Posted: 2005-01-22 21:08    Length: 416 byte(s)
[Original] [Print] [Top]
我大概说说。这个问题的关键是要找出样本进行对比。各位看看我的想法对错:
3 3 3 3
3个为一堆,分成4堆。
随便找两堆,进行对比。这样范围缩小到2堆。
随便找一堆和前面分出来的2堆里的任意一堆比。如果一样,则证明,不一样的在另外那3个里。3选1,只需一次就可以了。
如果不一样,我也可以知道具体的哪3个,并且可以知道轻重。
最后无论怎样都是3选1,称一次。随便找2个,一称就知道了。
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: WC_CLF    Posted: 2005-01-22 21:22    Length: 38 byte(s)
[Original] [Print] [Top]
这个问题如果你回答的简单也是很厉害的。
----
__0oooo__
依稀间层峦叠障,仰天望片片隐霾。
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: bbwolf    Posted: 2005-01-22 22:28    Length: 64 byte(s)
[Original] [Print] [Top]
我这样做也不对,最后有可能有一堆是永远没有比过的,所以无法3选1。
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: bbwolf    Posted: 2005-01-23 09:37    Length: 148 byte(s)
[Original] [Print] [Top]
我在网上找到了答案。
其实,有时看似不可能的事情未必就不可能,需要从不同角度去思考问题,不能仅限一种模式。
答案等楼主公布给大家吧。
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: kiwen    Posted: 2005-01-27 16:29    Length: 2,280 byte(s)
[Original] [Print] [Top]
#!/usr/bin/perl
use strict;

sub bcmp($$){
my($a,$b) = @_;
my $r = join('',@$a) - join('',@$b);
return $r > 0 ? 1 : $r < 0 ? -1 : 0;
}
for(0..20){
my $n = int(rand 12);
print "$n=";
my @balls = (0,0,0,0,0,0,0,0,0,0,0,0);
$balls[$n] = 1;
my($r,$r2,$r3) = bcmp [@balls[4..7]],[@balls[8..11]];
if($r == 0){
$r2 = bcmp [@balls[0,1]],[@balls[4,5]];
if($r2 == 0){
$r3 = bcmp [$balls[2]],[$balls[4]];
$r3 == 0 and print"3 " and next;
print "2 " and next;
}
else{
$r3 = bcmp [$balls[0]],[$balls[4]];
$r3 == 0 and print "1 " and next;
print "0 " and next;
}
}
else{
$r2 = bcmp [@balls[9,0,7]],[@balls[5,10,11]];
if($r2 == 0){
$r3 = bcmp [@balls[4]],[@balls[6]];
$r3 == 0 and print "8 " and next;
$r == $r3 and print "4 " and next;
print "6 " and next;
}
elsif($r != $r2){
$r3 = bcmp [$balls[5]],[$balls[0]];
$r3 == 0 and print "9 " and next;
print "5 " and next;

}
else{
$r3 = bcmp [@balls[10]],[@balls[11]];
$r3 == 0 and print "7 " and next;
$r3 == $r and print "11 " and next;
print "10 " and next;
}
}
}
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: patience    Posted: 2005-01-29 07:28    Length: 152 byte(s)
[Original] [Print] [Top]
小意思啊~~

先称8个
IF相等就称剩下的4个,再称2
ELSE IF
称8个里面不相等的4个,再称2,
RETURN (VICTORY)
----
patience
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: echo_her    Posted: 2005-02-20 02:25    Length: 227 byte(s)
[Original] [Print] [Top]
如果知道球的轻重,那么测n次可以测出3^n个球,如果不知道轻重,那么能测的球减半,可以在数学上严格证明

两次测不了五个球,4次可以测40个,三个可以测13个球的,12是个好的数,有很多因子,容易误导人

[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: dominic_rhce    Posted: 2005-02-20 22:42    Length: 325 byte(s)
[Original] [Print] [Top]
楼主,这题能做得出来的话不是比别人智商高一点点,而是要去非人类研究所研究一下了。
这题做到后面应该等同于当三个对三个不等的时候请用一次机会称出哪个球不同。
前提是由于不知轻重导致的。
如果知道轻重,方法可以有几种。


如果我说错了,还请各位做出来的同志不吝赐教 :)
----
毫不犹豫,钻了进去,属于你了我的LINUX!
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: footfly    Posted: 2005-03-16 21:53    Length: 1,416 byte(s)
[Original] [Print] [Top]
记得在那个论坛看到过这道题好像原来也是8个球来着,咋变12个了!!!

先分成四堆:L1(4个球); L2(4个球); L3(2个球); L4(2个球);

if L1[:]==L2[:]; # 待测球在L3或者L4中;

# 再用L1或者L2中的两个球与L3或者L4比较;
if L1[:2]==L3[:]; # 待测球在L4中;
if L1[0]==L4[0]; then # 待测球是L4[1];
else # 待测球是L4[0];
else # 待测球在L3中;
if L1[0]==L3[0]; then # 待测球是L3[1];
else # 待测球是L3[0];
else # 如果L1不等L2,待测球在L1或者L2中;天秤状态左沉或者右沉;
if L1[:2]+L2[:2]==L3+L4; # 待测球在L1[2:4]或者L2[2:4]中;
if L1[2]+L2[2]>L1[3]+L3[0] # 与上次天秤状态一致如左沉;
待测球肯定是L1[2];还可得到是重的.
elif L1[2]+L2[2]<L1[3]+L3[0] # 与上次天秤状态不一致如右沉;
待测球肯定是L2[2];还可得到是轻的.
else (L1[2]+L2[2]==L1[3]+L3[0] # 天秤状态平衡;
待测球肯定是L2[3];轻重视上次天秤的状态而定.
else #如果与上次天秤状态一致如左沉;待测球在L1[:2]中;反之L2[:2]中;
if L1[0]==L3[0]; then # 待测球是L1[1];重的
else # 待测球是L1[0];重的


写得比较乱,看起来麻烦还请见凉!!!

----
有书--入书--出书--无书
[Original] [Print] [Top]
Subject: Re: 一道智力题,有兴趣者请进。
Author: ating    Posted: 2005-03-24 18:47    Length: 63 byte(s)
[Original] [Print] [Top]
用2分法不就出来了吗?
难道还有比这更简单的?
----
身在广州,心在linux
[Original] [Print] [Top]
« Previous thread
Master the Regular Expression
Perl 编 程
3
Next thread »
如何使用LWP发送UTF-8数据?
     

Copyright © 2007 UNIX Resources Network, All Rights Reserved.      About URN | Privacy & Legal | Help | Contact us
备案序号: 京ICP备05006143    webmaster: webmaster@unixresources.net
This page created on 2008-07-17 04:08:57, cost 0.080228090286255 ms.