Replace Function with Compute in answer(s), allow for single asymptote

Author: gajennings

OpenProblemLibrary/PCC/BasicAlgebra/RationalFunctions/rationalFunctionAsymptote20.pg

@@ -57,8 +57,12 @@ $c = non_zero_random(-10,10,1);
 
 do {$f = RandomVariableName();} until ($f ne 'x');
 $func = Compute("$c/(x**2+$a*x+$b)")->reduce;
-
-$ans = List(Formula("x=$x1"),Formula("x=$x2"));
+if ($x1=$x2){
+  $ans = List(Compute("x=$x1"));
+}
+else {
+  $ans = List(Compute("x=$x1"),Compute("x=$x2"));
+}
 $var = 'x';
 
 ##############################################