WeBWorK Problems

How to enter/check ordered list

Re: How to enter/check ordered list

by Davide Cervone -
Number of replies: 0
Gavin has already pointed you to some documentation about the list answer checker. Here is a sample code snippet that does the cyclic permutation checking via a custom list checker:
    $ans = Compute("{1,2,3}");        # the correct answer

    \($ans\) = \{ans_rule(20)\}

      requireParenMatch=>1, removeParens=>0, implicitList=>0,
      list_checker => sub {
        my ($correct,$student,$ans) = @_;
        $correct = List(@$correct);       # a List from the correct answer
        my @student = @$student;          # student answer as array
        my $n = scalar(@student);         # number of elements in student answer
        foreach $i (1..$n) {
          return $n if $correct == List(@student);   # return n entries correct if permutation is correct
          push(@student,shift(@student));            # rotate the student answer
        return 0;                         # return no entries correct
The requireParenMatch=>1, removeParens=>0, implicitList=>0 are to make sure the student types the braces as part of the list (otherwise (1,2,3) or even 1,2,3 would also be accepted).

Hope that helps.