DOCUMENT();

loadMacros('PGstandard.pl', 'PGML.pl', 'parserPopUp.pl', 'PGcourse.pl');

$p  = DropDown([ 'a' .. 'd' ], 0);
$d1 = DropDown([ 'a' .. 'd' ], 1, useHTMLSelect => 0);
$d2 = DropDown(
    [ 'a' .. 'd' ], 2,
    placeholder   => 'Choose one:',
    useHTMLSelect => 0
);
$TF = DropDownTF('T', useHTMLSelect => 0);

$d3WMath = DropDown(
    [ [
        'Equation 1: \(y < x\)',
        'Equation 2: \(y \leq x^2\)',
        'Equation 3: \(y > x^3\)',
        'Equation 4: \(y \geq e^2\)',
        'Equation 5: \(\displaystyle \frac{4}{3 + x}\)'
    ] ],
    0,
    useHTMLSelect => 0
);
$d3WMathCmp = $d3WMath->cmp(
    checker => sub {
        my ($correct, $student, $ansHash) = @_;
        return $correct == $student ? 1 : 0;
    }
);

BEGIN_PGML
Answers: [$p] [$d1] [$d2] [$TF]

[_]{$p} [_]{$d1} [_]{$d2} [_]{$TF}

Answer: [$d3WMath]*

[_]{$d3WMathCmp}
END_PGML

ENDDOCUMENT();