AnswerOrderedList1
From WeBWorK
Answer is an Ordered List
This PG code shows how to write a question in which the answer is an ordered list, such as a sequence of numbers.
 File location in OPL: FortLewis/Authoring/Templates/Sequences/AnswerOrderedList.pg
 PGML location in OPL: FortLewis/Authoring/Templates/Sequences/AnswerOrderedList1_PGML.pg
PG problem file  Explanation 

Problem tagging: 

DOCUMENT(); loadMacros( "PGstandard.pl", "MathObjects.pl", "AnswerFormatHelp.pl", ); TEXT(beginproblem()); 
Initialization: 
Context("Numeric"); @seq = (); $seq[0] = 1; $seq[1] = 1; foreach my $i (2..6) { $seq[$i] = $seq[$i1] + $seq[$i2]; } $answer = join(", ",@seq); $answer = Compute("$answer"); 
Setup:
We create an empty array 
Context()>texStrings; BEGIN_TEXT If \( s_1 = $seq[0] \), \( s_2 = $seq[1] \), and \( s_n = s_{n1} + s_{n2} \), find the first seven terms of this sequence, including \( s_1 \) and \( s_2 \). Enter your answer as a comma separated list of numbers. $BR $BR Sequence = \{ ans_rule(40) \} \{ AnswerFormatHelp("numbers") \} END_TEXT Context()>normalStrings; 
Main Text: 
$showPartialCorrectAnswers=1; ANS( $answer>cmp(ordered=>1) ); 
Answer Evaluation:
Since the answer is a MathObject List, which is by default unordered, we must specify that the answer checker use 
Context()>texStrings; BEGIN_SOLUTION Solution explanation goes here. END_SOLUTION Context()>normalStrings; COMMENT('MathObject version.'); ENDDOCUMENT(); 
Solution: 