version 1.2, 2007/03/30 20:10:09
|
version 1.3, 2009/07/06 17:12:47
|
Line 1
|
Line 1
|
<problem> |
<problem> |
<startouttext />Accept an answer of around 90 or -90<endouttext /> |
|
<customresponse answerdisplay="something near 90 or -90"> |
<startouttext /> |
|
Accept an answer of around 90 or -90 |
|
<endouttext /> |
|
|
|
<customresponse answerdisplay="something near 90 or -90"> |
<answer type="loncapa/perl"> |
<answer type="loncapa/perl"> |
# We do not want a vector |
# We do not want a vector |
if ($submission=~/\,/) { return 'EXTRA_ANSWER'; } |
if ($submission=~/\,/) { return 'EXTRA_ANSWER'; } |
Line 14 if ($difference < 0.001) { return 'APPRO
|
Line 18 if ($difference < 0.001) { return 'APPRO
|
return 'INCORRECT'; |
return 'INCORRECT'; |
</answer> |
</answer> |
<textline /> |
<textline /> |
</customresponse> |
</customresponse> |
</problem> |
|
|
|
|
</problem> |