[休闲] 寻找所有可能的答案

rubyish

原始文本：

AB BD AC AD BC
AB BD AC A,D
A,B,C,D,A
A,B,C,D,ABCD
A,C,CD ABCD AB
A,B,C,ABCD AB
A,BC CD D,D
A,BC BCD C,D
ABC C,CD C,D
A,BC C,AB CD
B,ACD CD D,D
C,C,CD C,C

原始文本：
这是一个试题答案 ( 由 ABCD 字符组成 )

1: 每行共计有 5 答案
2: 每行答案有多选, 单选
3: 单选答案后面小逗点, 多选答案( 2~4 个字符 )后面有空格
4: 多选答案字符, 从小到大按序排列 ( A->B->C->D )
5: 答案是正确的. (不可能有: C, DD, BA.. 的多选答案)


这是一个手工抄写的拷贝文本:

AB BD AC AD BC
AB BD AC AD
ABCDA
ABCDABCD
ACCD ABCD AB
ABCABCD AB
ABC CD DD
ABC BCD CD
ABC CCD CD
ABC CAB CD
BACD CD DD
CCCD CC


拷贝文本:

1: 每行字符数和字符顺序与原始文本一样
2: 但失去了小逗点
3: 请寻找出每行所有可能的答案 (忽略不可能的)

example:

ABC BCD CD

所有可能的答案: ( 只有 3 个可能 )

A BC B CD CD
A BC BCD C D
ABC B CD C D

A BC BC D CD  不可能是答案

biru:

1. >> A BC BC D CD
   
2.    A,BC BC D,CD        原始文本: 单选后面有小逗点, 多选后面有空格
   
3.    ABC BC DCD        手抄文本: 失去了小逗点
   
4. != ABC BCD CD        NG 不可能是答案
   
5. 
   
6. 
   
7. >> A BC B CD CD
   
8.    A,BC B,CD CD        原始文本: 单选后面有小逗点, 多选后面有空格
   
9.    ABC BCD CD        手抄文本: 失去了小逗点
   
10. == ABC BCD CD        OK 可能是答案

复制代码

这是所有的答案

================
1| AB BD AC AD BC
    AB BD AC AD BC
================
2| AB BD AC AD
    AB BD AC A D
================
3| ABCDA
    A B C D A
================
4| ABCDABCD
    A B C D ABCD
================
5| ACCD ABCD AB
    A C CD ABCD AB
================
6| ABCABCD AB
    A B C ABCD AB
================
7| ABC CD DD
    A BC CD D D
================
8| ABC BCD CD
    A BC B CD CD
    A BC BCD C D
    ABC B CD C D
================
9| ABC CCD CD
    A BC C CD CD
    ABC C CD C D
================
10| ABC CAB CD
    A BC C AB CD
    ABC C AB C D
================
11| BACD CD DD
    B ACD CD D D
================
12| CCCD CC
    C C CD C C


my pl
a.pl.zip (743 Bytes, 下载次数: 16)

2014-03-18 01:23 上传

点击文件名下载附件

xiumu2280

mark一个                 

yestreenstars

看起来挺复杂的，楼主做出来了吗？

523066680

=_= 以前有时间，现在工作忙碌
还有题目描述有点凌乱。

ly5066113

回复 1# rubyish


是这个意思么？

1. #! /usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use Algorithm::Combinatorics qw(combinations permutations);
   
7. 
   
8. 
   
9. my %h;
   
10. my @answer;
    
11. my @data=("A", "B", "C", "D");
    
12. for (1 .. scalar(@data))
    
13. {
    
14.         my $iter = combinations(\@data, $_);
    
15.         while (my $c = $iter->next) {
    
16.                 push @answer, join("", @$c);
    
17.         }
    
18. }
    
19. 
    
20. @data=(@answer, @answer, @answer, @answer, @answer);
    
21. my $iter = combinations(\@data, 5);
    
22. while (my $c = $iter->next) {
    
23.         $h{join(" ", @$c)} = join("", @$c);
    
24. }
    
25. 
    
26. while (<DATA>)
    
27. {
    
28.         chomp;
    
29.         my $answer = $_;
    
30.         $answer =~ s/\s//g;
    
31.         for (keys %h)
    
32.         {
    
33.                 print "$_\n" if $h{$_} eq $answer;
    
34.         }
    
35. }
    
36. 
    
37. 
    
38. __DATA__
    
39. ABC BCD CD
    

复制代码

1. ./test.pl
   
2. A BC BC D CD
   
3. A BC B CD CD
   
4. ABC BC D C D
   
5. A B C BCD CD
   
6. A BC BCD C D
   
7. AB C B CD CD
   
8. ABC B CD C D
   
9. AB C BCD C D
   
10. ABC B C D CD
    
11. AB C BC D CD

复制代码

rubyish

回复 5# ly5066113

  
ABC BCD CD

所有可能的答案: ( 只有 3 个可能 )

A BC B CD CD
A BC BCD C D
ABC B CD C D

why ? {:3_202:}

1. >> A BC BC D CD
   
2.    A,BC BC D,CD        原始文本: 单选后面有小逗点, 多选后面有空格
   
3.    ABC BC DCD        手抄文本: 失去了小逗点
   
4. != ABC BCD CD        NG 不可能是答案
   
5. 
   
6. 
   
7. >> A BC B CD CD
   
8.    A,BC B,CD CD        原始文本: 单选后面有小逗点, 多选后面有空格
   
9.    ABC BCD CD        手抄文本: 失去了小逗点
   
10. == ABC BCD CD        OK 可能是答案
    
11. 
    
12. 
    
13. >> ABC BC D C D
    
14.    ABC BC D,C,D        原始文本: 单选后面有小逗点, 多选后面有空格
    
15.    ABC BC DCD        手抄文本: 失去了小逗点
    
16. != ABC BCD CD        NG 不可能是答案
    
17. 
    
18. 
    
19. >> A B C BCD CD
    
20.    A,B,C,BCD CD        原始文本: 单选后面有小逗点, 多选后面有空格
    
21.    ABCBCD CD        手抄文本: 失去了小逗点
    
22. != ABC BCD CD        NG 不可能是答案
    
23. 
    
24. 
    
25. >> A BC BCD C D
    
26.    A,BC BCD C,D        原始文本: 单选后面有小逗点, 多选后面有空格
    
27.    ABC BCD CD        手抄文本: 失去了小逗点
    
28. == ABC BCD CD        OK 可能是答案
    
29. 
    
30. 
    
31. >> AB C B CD CD
    
32.    AB C,B,CD CD        原始文本: 单选后面有小逗点, 多选后面有空格
    
33.    AB CBCD CD        手抄文本: 失去了小逗点
    
34. != ABC BCD CD        NG 不可能是答案
    
35. 
    
36. 
    
37. >> ABC B CD C D
    
38.    ABC B,CD C,D        原始文本: 单选后面有小逗点, 多选后面有空格
    
39.    ABC BCD CD        手抄文本: 失去了小逗点
    
40. == ABC BCD CD        OK 可能是答案
    
41. 
    
42. 
    
43. >> AB C BCD C D
    
44.    AB C,BCD C,D        原始文本: 单选后面有小逗点, 多选后面有空格
    
45.    AB CBCD CD        手抄文本: 失去了小逗点
    
46. != ABC BCD CD        NG 不可能是答案
    
47. 
    
48. 
    
49. >> ABC B C D CD
    
50.    ABC B,C,D,CD        原始文本: 单选后面有小逗点, 多选后面有空格
    
51.    ABC BCDCD        手抄文本: 失去了小逗点
    
52. != ABC BCD CD        NG 不可能是答案
    
53. 
    
54. 
    
55. >> AB C BC D CD
    
56.    AB C,BC D,CD        原始文本: 单选后面有小逗点, 多选后面有空格
    
57.    AB CBC DCD        手抄文本: 失去了小逗点
    
58. != ABC BCD CD        NG 不可能是答案
    
59. 
    
60. 
    

复制代码

rubyish

回复 3# yestreenstars


bu 复杂的~

规则很简单 阅读原始文本规则
一句话就是说: 尝试恢复

rubyish

回复 2# xiumu2280


    可以试试 play 下~

rubyish

回复 4# 523066680


    bu乱的~

规则很简单 阅读原始文本规则
一句话就是说: 尝试恢复

可以试试 play 下~

ly5066113

回复 6# rubyish


那就变简单了：

1. $ awk 'NR==FNR{a[$0]=gensub(/,/,"","g");next}{print "================\n"FNR"| "$0;for(i in a){if(a[i]==$0)print "  "gensub(/,/," ","g",i)}}' file1 file2
   
2. ================
   
3. 1| AB BD AC AD BC
   
4.   AB BD AC AD BC
   
5. ================
   
6. 2| AB BD AC AD
   
7.   AB BD AC A D
   
8. ================
   
9. 3| ABCDA
   
10.   A B C D A
    
11. ================
    
12. 4| ABCDABCD
    
13.   A B C D ABCD
    
14. ================
    
15. 5| ACCD ABCD AB
    
16.   A C CD ABCD AB
    
17. ================
    
18. 6| ABCABCD AB
    
19.   A B C ABCD AB
    
20. ================
    
21. 7| ABC CD DD
    
22.   A BC CD D D
    
23. ================
    
24. 8| ABC BCD CD
    
25.   A BC BCD C D
    
26. ================
    
27. 9| ABC CCD CD
    
28.   ABC C CD C D
    
29. ================
    
30. 10| ABC CAB CD
    
31.   A BC C AB CD
    
32. ================
    
33. 11| BACD CD DD
    
34.   B ACD CD D D
    
35. ================
    
36. 12| CCCD CC
    
37.   C C CD C C

复制代码