[休閑] 尋找所有可能的答案

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: 每行字符數(shù)和字符順序與原始文本一樣
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 可能是答案

復(fù)制代碼

這是所有的答案

================
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, 下載次數(shù): 16)

2014-03-18 01:23 上傳

點擊文件名下載附件

xiumu2280

mark一個                 

yestreenstars

看起來挺復(fù)雜的，樓主做出來了嗎？

523066680

=_= 以前有時間，現(xiàn)在工作忙碌
還有題目描述有點凌亂。

ly5066113

回復(fù) 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
    

復(fù)制代碼

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

復(fù)制代碼

rubyish

回復(fù) 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. 
    

復(fù)制代碼

rubyish

回復(fù) 3# yestreenstars


bu 復(fù)雜的~

規(guī)則很簡單 閱讀原始文本規(guī)則
一句話就是說: 嘗試恢復(fù)

rubyish

回復(fù) 2# xiumu2280


    可以試試 play 下~

rubyish

回復(fù) 4# 523066680


    bu亂的~

規(guī)則很簡單 閱讀原始文本規(guī)則
一句話就是說: 嘗試恢復(fù)

可以試試 play 下~

ly5066113

回復(fù) 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

復(fù)制代碼