DOCUMENT(); loadMacros( "PGstandard.pl", "PGML.pl", "MathObjects.pl", "PGcourse.pl", "parserNumberWithUnits.pl", "contextArbitraryString.pl", "parserMultiAnswer.pl", "parserPopUp.pl", "contextInequalities.pl", "PGgraphmacros.pl", ); TEXT(beginproblem()); $showPartialCorrectAnswers = 1; ###################################################################### $ans = " aaa bbb ccc"; Context("ArbitraryString"); Context()->flags->set(noLaTeXresults => 1); Context()->strings->{patterns}{'(.|~~n)*'} = [-25,str]; Context()->update; @answers = ($ans); $strings = Compute(@answers[0])->cmp(checker => sub { my ($temp1, $response, $temp2) = @_; return 1; }); BEGIN_PGML Type 3 lowercase a's followed by a second line with 3 lowercase b's followed by a third line with 3 lowercase c's. [@ ANS($strings), ans_box(30, 90) @]* END_PGML ###################################################################### ENDDOCUMENT();