## WeBWorK Problems

### Randomization of questions - using PGML and popUps

by Sergio Chaves -
Number of replies: 2

Hello all,

I am just starting with the creation of Webwork problems. I have written the following problem

 
DOCUMENT();        # This should be the first executable line in the problem.

"PGstandard.pl",
"PGchoicemacros.pl",
"PGunion.pl",
"choiceUtils.pl",
"PGcourse.pl",
"PGML.pl",
"parserPopUp.pl"
);

TEXT(beginproblem());

##############################################

$ans_a = PopUp( ["?", "True","False"], 1, );$ans_b = PopUp(
["?", "True","False"],
2,
);

BEGIN_PGML

Determine which of the following statements are true or false:

1. This statement is True.
Answer: [_]{$ans_a} 1. This statement is False Answer: [_]{$ans_b}

END_PGML

ENDDOCUMENT(); 

I would like to modify this problem so the student will only get one of the 2 questions at random (eventually I would like to have n questions in this problem and select k at random)

I haven't been able to find anything  in the documentation or the OPL related on how to implement this using popUps questions. Any help is very much appreciated.

Tags:

### Re: Randomization of questions - using PGML and popUps

by Alex Jordan -
Here are some PG/Perl tricks that can help with this.

DOCUMENT();loadMacros(  "PGstandard.pl",  "PGchoicemacros.pl",  "MathObjects.pl",  "PGML.pl",  "parserPopUp.pl",  "PGcourse.pl",);TEXT(beginproblem());############################################### For convenience:$true = PopUp(['?','True','False'],1);$false = PopUp(['?','True','False'],2);# Make a Perl array where each entry is an array reference with statement and answer.# The statements can use PGML syntax if you use the double stars below in the statement.@questions = (  ['[1+1=2]', $true], ['This is true.',$true],  ['This is _not_ true.', $false],);# Choose one of them randomly$question = list_random(@questions);($statement,$answer) = @{$question};BEGIN_PGML[$statement]**  [_]{$answer}END_PGML# To use more than one, take a "slice" of the @questions array.# Since PGchoice,acros.pl is loaded, we can use NchooseK.@usethese = (@questions)[NchooseK(3,2)];@statement = map{$_->[0]}(@usethese);@answer = map{$_->[1]}(@usethese);BEGIN_PGML1. [$statement[0]]**   [_]{$answer[0]}1. [$statement[1]]**   [_]{\$answer[1]}END_PGMLENDDOCUMENT();