loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.11, 2006/12/19 14:24:05	version 1.12, 2006/12/19 17:44:16
Line 87 sub maxima_cas_formula_fix {	Line 87 sub maxima_cas_formula_fix {
sub maxima_run {	sub maxima_run {
my ($script,$submission,$argument) = @_;	my ($script,$submission,$argument) = @_;
my $socket=&connect();	my $socket=&connect();
my $fullscript='';	my @submissionarray=split(/\s\,\s/,$submission);
my $submission_index=1;	for (my $i=0;$i<=$#submissionarray;$i++) {
foreach my $submission_component (split(/\s\,\s/,$submission)) {	my $n=$i+1;
$fullscript.="RESPONSE[$submission_index]:".&maxima_cas_formula_fix($submission_component).";\n";	my $fixedsubmission=&maxima_cas_formula_fix($submissionarray[$i]);
$submission_index++;	$script=~s/RESPONSE\[$n\]/$fixedsubmission/gs;
}	}
my $argument_index=1;	my @argumentarray=@{$argument};
foreach my $argument_component (@{$argument}) {	for (my $i=0;$i<=$#argumentarray;$i++) {
$fullscript.="LONCAPALIST[$argument_index]:".&maxima_cas_formula_fix($argument_component).";\n";	my $n=$i+1;
$argument_index++;	my $fixedargument=&maxima_cas_formula_fix($argumentarray[$i]);
	$script=~s/LONCAPALIST\[$n\]/$fixedargument/gs;
}	}
$fullscript.=$script;	my $reply=&runscript($socket,$script);
my $reply=&runscript($socket,$fullscript);
&disconnect($socket);	&disconnect($socket);
if ($reply=~/^\strue\s$/) { return 'EXACT_ANS'; }	if ($reply=~/^\strue\s$/) { return 'EXACT_ANS'; }
if ($reply=~/^\sfalse\s/) { return 'INCORRECT'; }	if ($reply=~/^\sfalse\s/) { return 'INCORRECT'; }