version 1.3, 2009/07/06 17:12:47
|
version 1.4, 2010/06/10 22:37:12
|
Line 11 if ($submission=~/\,/) { return 'EXTRA_A
|
Line 11 if ($submission=~/\,/) { return 'EXTRA_A
|
# No units needed |
# No units needed |
if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; } |
if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; } |
# Need a numerical answer here |
# Need a numerical answer here |
if ($submission!~/^\d+$/) { return 'WANTED_NUMERIC'; } |
if ($submission!~/^[\d\.\-]+$/) { return 'WANTED_NUMERIC'; } |
$difference=abs(90-abs($submission)); |
$difference=abs(90-abs($submission)); |
if ($difference==0) { return 'EXACT_ANS'; } |
if ($difference==0) { return 'EXACT_ANS'; } |
if ($difference < 0.001) { return 'APPROX_ANS'; } |
if ($difference < 0.001) { return 'APPROX_ANS'; } |