![[BACK]](/icons/back.gif){kind=icon}
Return to lonmaxima.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to lonmaxima.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.32, 2017/03/05 19:30:56 | version 1.33, 2017/03/06 17:01:59 |
|---|---|
| Line 155 sub maxima_eval { | Line 155 sub maxima_eval { |
| sub compareterms { | sub compareterms { |
| my ($socket,$terma,$termb)=@_; | my ($socket,$terma,$termb)=@_; |
| if ($terma =~ m{[.*^/\s]+(|\(\s*\()$}) { | if ($terma =~ m{[.*^/\s]+(|\(\s*\((|[^(]+))$}) { |
| return 'Error: blacklisted'; | return 'Error: blacklisted'; |
| } | } |
| my $difference=$terma.'-('.$termb.')'; | my $difference=$terma.'-('.$termb.')'; |