in reply to Efficient Rating of Test Answers

Regex: 
sub gradeTest {
     my $answer, $runningTotal;
     $runningTotal = 0;
     $answer = lc(param(ans1));
     # For answer 1, G6-G9 is full credit.  
     # G0-G5 and K0-K5 are half credit
     $runningTotal += 1, return if $answer =~ /^g[6-9]$/;
     $runningTotal += .5, return if $answer =~ /^g[0-5]$/;
     $runningTotal += .5, return if $answer =~ /^k[0-5]$/;
}

[download]
Jeremy

Replies are listed 'Best First'.
Re: Re: Efficient Rating of Test Answers
by Hofmator (Curate) on Aug 14, 2001 at 13:24 UTC

    Why not put your last two cases together? 

    $runningTotal += .5, return if $answer =~ /^[gk][0-5]$/;

# instead of
$runningTotal += .5, return if $answer =~ /^g[0-5]$/;
$runningTotal += .5, return if $answer =~ /^k[0-5]$/;

    [download]

    -- Hofmator

[reply]
[d/l]

In Section Seekers of Perl Wisdom