[思考题]凶手、被害、帮凶、目击者

CrLf

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

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

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

这是一道逻辑题，你能用编程语言（不限）求解吗？
感觉比较适合支持结构体或对象的语言

523066680

现在医学这么发达，这对夫妇有没有可能是gay ……

523066680

1. 
   
2. use utf8;
   
3. binmode(STDOUT, ":encoding(gbk)");
   
4. 
   
5. my @cup;
   
6. my @element;
   
7. 
   
8. our %h=(
   
9.     "father"   => { "sex"=>"male",   "age"=>100 },
   
10.     "mother"   => { "sex"=>"female", "age"=>90  },
    
11.     "son"      => { "sex"=>"male",   "age"=>20  },
    
12.     "daughter" => { "sex"=>"female", "age"=>20  },
    
13. );
    
14. 
    
15. @element = keys %h;
    
16. 
    
17. &arrange(\@cup, \@element);
    
18. 
    
19. sub arrange {
    
20.     my ($a, $b) = (shift, shift);
    
21.     my (@ar, @br);
    
22. 
    
23.     if (scalar(@{$a}) == 4) {
    
24.         &check(@{$a});
    
25.     }
    
26.     for my $i (0..$#{$b}) {
    
27.         @ar=(@{$a}, $b->[$i]);
    
28.         @br=@{$b}[0..$i-1, $i+1..$#{$b}];
    
29.         &arrange(\@ar, \@br);
    
30.     }
    
31. }
    
32. 
    
33. sub check {
    
34.     our %h;
    
35.     my ($killer, $victim, $helper, $witness) = @_;
    
36.     return 0 if ( $h{$helper}{sex} eq $h{$witness}{sex} );  # 1 帮凶和目击者性别不同
    
37.     return 0 if ( $h{father}{sex} eq $h{$witness}{sex} );   # 2 最年长者和目击者性别不同
    
38.     return 0 if ( $h{$helper}{age} < $h{$victim}{age} );    # 4 帮凶年纪 大于 被害者年纪
    
39. 
    
40.     # 3 最年轻者和被害者性别不同
    
41.     # 6 最年轻的不是凶手
    
42.    
    
43.     if ( $h{$victim}{"sex"} eq "female" ) {   #   若被害者是女性
    
44.         return 0 if ( $killer eq "son" );     #则最年轻的是男性（儿子）
    
45.         $h{son}{age} = 10;                    #假设年龄
    
46.         $h{daughter}{age} = 20;               #假设年龄
    
47.     } else {                                  #   相反
    
48.         return 0 if ( $killer eq "daughter" );
    
49.         $h{son}{age} = 20;
    
50.         $h{daughter}{age} = 10;
    
51.     }
    
52. 
    
53.     return 0 if ( $h{$helper}{age} < $h{$victim}{age} );
    
54. 
    
55.     print "凶手:$killer 受害者:$victim, 帮凶:$helper, 目击者:$witness\n";
    
56.     return 1;
    
57. }
    
58. 
    

复制代码

arrange 是递归排列

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

在某个群里一问，人家十来秒就把答案手算出来了 T_T 突然感觉自己好渣

yangfengoo

回复 3# 523066680


    对能理解递归这种高大上的表示佩服

523066680

回复 4# yangfengoo


      人家用N层for的看起来爽快一点，
用递归是因为以前写了排列用的函数模板，拿出来用了

Bella

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"

复制代码