如何使用蛮力来解决并存储多项选择题的答案？

Question

我在理解这种蛮力方法时遇到了一些困难。我正在使用 Perl 来提取问题及其选择。现在所有的问题都存储在一个数组中。我不知道如何处理这些答案。

我应该如何存储答案并组织我的代码，以便它执行类似于此的操作...

1. 选择问题的第一个选项。 （所以通过一题，所有问题都应该选择选项A）。

2. 提交以检查答案是否正确。

3. 解析答案，如果给定的答案是正确的，则将其标记为“正确”答案，并忘记尝试为该问题选择任何其他选项。

   否则，请在下一遍中继续浏览该问题的答案列表。

因此，下一遍将选择该问题的第二个答案，直到多次提交后，它通过暴力找到所有“正确”答案。

我无法存储答案并将其与问题关联起来，因为错误而将其划掉或将其标记为“已找到”。

我正在考虑使用哈希。请让我知道有关如何构建代码的任何建议。

谢谢！

编辑

示例数据 -

所以我使用哈希方法...我的哈希看起来像这样：

打印出哈希：

question_123 => a,b,c,d
question_155 => a,b,c
question_234 => T,F

现在我必须找到一种方法来遍历每个选项，直到找到该问题的正确答案。

编辑

为了澄清一些事情，让我们假设有 10 个问题。用户单击“开始练习”，系统会从 10 个问题中随机生成 4 个问题。因此，在当前状态下，我有 4 个问题及其答案。我仔细检查并将这些问题及其答案添加到数据结构中（下面的一个......或使用文件来存储它们）。接下来我要选择一个答案。然后用户必须提交这些问题以供审核。点击提交按钮后，系统会提示问题 x 是否正确。基于此，数据结构必须更新，哪个是该问题的正确答案。

现在冲洗并重复。这次，从同一个池中生成了另外四组随机问题。这次，发现了两个新问题，因此必须将它们添加到数据结构中。应该使用类似的逻辑来寻找答案。此外，每个答案选项（选择）始终附加一个唯一的数值，以便我的服务器可以使用该值检查答案 ID。在我的服务器端，每个问题只有一个 ID 及其关联的正确答案。使用我的桌子会破坏这个实验的目的。

正在发生的情况的视觉效果：

Pass One -- 4/10 Random Questions

1. Who is the US president?
21. Barrak
22. Chap
23. Jim
24. Nivea

2. How many states are there?
25. 99
26. 90
27. 51

3. What is the color of the sky?
28. blue
29. black
30. none

4. Is time relative?
31. False
32. True

因此，在第一次传递时，选择应如下所示：

1 => a - 21
2 => a - 99
3 => a - 28
4 => False - 31

点击提交按钮。服务器响应：

1. Correct
2. Incorrect
3. Correct
4. Incorrect

现在用找到的正确答案更新数据结构。

程序现在根据提示请求一组新问题。这次服务器返回：

Pass Two -- 4/10 Random Questions

4. Is time relative?
31. False
32. True

6. What is not a plant?
65. Cow
66. Rose
67. Tree

1. Who is the US president?
21. Barrack
22. Chap
23. Jim
24. Nivea

8. What is a programming language?
99. C++
100. Tylenol
101. Mr.Monster

看，现在在这一关出现了两个新问题。对于这些人来说，必须选择第一个选项，但对于重复的选项，应该选择下一个选项，除非已经找到正确的答案。

因此，这将被发送到服务器：

4. True - 32
6. Cow - 65
1. Barrack - 21
8. C++ - 99

服务器响应：

4. Correct
6. Correct
1. Correct
8. Correct

相同处理响应。希望这真的能解决问题。另请注意，每个答案都将始终附加一个唯一的数值。

Answer 1

将正确答案和所有可能的选项与每个问题相关联：

my %question = (

    question_123 => {
                      options => [ 'a', 'b', 'c', 'd' ],
                      answer  => 'b',
                    },
    question_155 => {
                      options => [ 'a', 'b', 'c' ],
                      answer  => 'b',
                    },
    question_234 => {
                      options => [ 'T', 'F' ],
                      answer  => 'F',
                    },
);

然后使用简单的脚本循环浏览选项：

my %answers;
QUESTION: foreach my $q ( keys %question ) {        # Loop over questions

    for my $option ( @{ $questions{$q}{options} } ) { # Try different options

        $answers{$q} = $option;
        next QUESTION if $option eq $questions{$q}{answer}; # Move on if correct
    }
}

# Print the answers
print "$_ : $answers{$_}\n" foreach sort keys %answers;

Answer 2

我认为你需要一个结构来存储复杂的数据。我可能会建议这样的事情。

{ question => 'Of the Marx Brothers who appeared on screen, who is reputed '
            . 'to have evoked resentment for being the funniest offscreen?'
, answers => 
    { A => 'Groucho' 
    , B => 'Chico'
    , C => 'Harpo'
    , D => 'Zeppo'
    }
, answer       => 'D'
, user_guessed => {}
}

Answer 3

其他答案都可以，但我会添加一个......

如果您想表示探测过程的某些“状态”或“标志”，您可以简单地向数据结构添加更多字段，如下所示：

my @questions = (
    {
        text => '2 x 2?',
        answers => [
            {
                text => '2',
                tried => False,
            },
            {
                text => '3',
                tried => True,
                correct => False,
            },
            {
                text => '4',
                tried => False,
            },
        ],
    },
    ...
);

对于处理嵌套的基础知识Perl 中的数据结构，请参阅 http://perldoc.perl.org/perldsc.html