Board logo

标题: [思考题]凶手、被害、帮凶、目击者 [打印本页]
作者: CrLf    时间: 2015-6-4 01:02     标题: [思考题]凶手、被害、帮凶、目击者

有对夫妇，生一男一女，四口之家。一天晚上，成员中的一个杀了另一个，剩下两个成员分别是帮凶和目击者。

并已知以下条件
1、帮凶和目击者性别不同
2、最年长者和目击者性别不同
3、最年轻者和被害者性别不同
4、帮凶年纪比被害者大
5、父亲年纪最大
6、最年轻的不是凶手

请问凶手、被害、帮凶、目击者分别是谁？


这是一道逻辑题，你能用编程语言（不限）求解吗？
感觉比较适合支持结构体或对象的语言
作者: 523066680    时间: 2015-6-4 09:14

本帖最后由 523066680 于 2015-6-4 15:33 编辑

现在医学这么发达，这对夫妇有没有可能是gay ……
作者: 523066680    时间: 2015-6-4 17:39     标题: Perl

本帖最后由 523066680 于 2015-6-4 20:36 编辑 
  1. use utf8;

  2. binmode(STDOUT, ":encoding(gbk)");

  3. 

  4. my @cup;

  5. my @element;

  6. 

  7. our %h=(

  8.     "father"   => { "sex"=>"male",   "age"=>100 },

  9.     "mother"   => { "sex"=>"female", "age"=>90  },

  10.     "son"      => { "sex"=>"male",   "age"=>20  },

  11.     "daughter" => { "sex"=>"female", "age"=>20  },

  12. );

  13. 

  14. @element = keys %h;

  15. 

  16. &arrange(\@cup, \@element);

  17. 

  18. sub arrange { 

  19.     my ($a, $b) = (shift, shift);

  20.     my (@ar, @br);

  21. 

  22.     if (scalar(@{$a}) == 4) {

  23.         &check(@{$a});

  24.     }

  25.     for my $i (0..$#{$b}) {

  26.         @ar=(@{$a}, $b->[$i]);

  27.         @br=@{$b}[0..$i-1, $i+1..$#{$b}];

  28.         &arrange(\@ar, \@br);

  29.     }

  30. }

  31. 

  32. sub check {

  33.     our %h;

  34.     my ($killer, $victim, $helper, $witness) = @_;

  35.     return 0 if ( $h{$helper}{sex} eq $h{$witness}{sex} );  # 1 帮凶和目击者性别不同

  36.     return 0 if ( $h{father}{sex} eq $h{$witness}{sex} );   # 2 最年长者和目击者性别不同

  37.     return 0 if ( $h{$helper}{age} < $h{$victim}{age} );    # 4 帮凶年纪 大于 被害者年纪

  38. 

  39.     # 3 最年轻者和被害者性别不同

  40.     # 6 最年轻的不是凶手

  41.     

  42.     if ( $h{$victim}{"sex"} eq "female" ) {   #   若被害者是女性

  43.         return 0 if ( $killer eq "son" );     #则最年轻的是男性（儿子）

  44.         $h{son}{age} = 10;                    #假设年龄

  45.         $h{daughter}{age} = 20;               #假设年龄

  46.     } else {                                  #   相反

  47.         return 0 if ( $killer eq "daughter" );

  48.         $h{son}{age} = 20;

  49.         $h{daughter}{age} = 10;

  50.     }

  51. 

  52.     return 0 if ( $h{$helper}{age} < $h{$victim}{age} );

  53. 

  54.     print "凶手:$killer 受害者:$victim, 帮凶:$helper, 目击者:$witness\n";

  55.     return 1;

  56. }
复制代码
arrange 是递归排列

凶手:mother 受害者:son, 帮凶:father, 目击者:daughter

在某个群里一问，人家十来秒就把答案手算出来了 T_T 突然感觉自己好渣
作者: yangfengoo    时间: 2015-6-4 20:07

回复 3# 523066680


    对能理解递归这种高大上的表示佩服
作者: 523066680    时间: 2015-6-4 20:34

回复 4# yangfengoo


      人家用N层for的看起来爽快一点，
用递归是因为以前写了排列用的函数模板，拿出来用了
作者: Bella    时间: 2015-6-5 11:45

本帖最后由 Bella 于 2015-6-6 15:19 编辑 
  1. @echo off

  2. set /a gender[father]=gender[son]=1,gender[mother]=gender[daughter]=0

  3. set /a age[father]=3,age[mother]=2

  4. call :perm " father mother son daughter"

  5. pause&exit

  6. 

  7. :perm

  8. setlocal enabledelayedexpansion

  9. set "chars=%~1"

  10. if "!chars!" == "" (

  11.     for %%i in (son daughter) do (

  12.         set /a age[son]=age[daughter]=1,age[%%i]=0

  13.         for /f "tokens=1-4" %%a in (%2) do (

  14. if !age[%%c]! GTR !age[%%b]! if !gender[%%c]! NEQ !gender[%%d]! ^

  15. if "%%i" NEQ "%%a" if !gender[%%i]! NEQ !gender[%%b]! if !gender[%%d]! NEQ 1 ^

  16. echo murderer:%%a victim:%%b accomplice:%%c witness:%%d

  17.         )

  18.     )

  19. ) else for %%j in (%~1) do call :perm "!chars: %%j=!" "%~2 %%j"
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2