Update macros/contexts/contextLimitedRadical.pl

Co-authored-by: Glenn Rice <[email protected]>
openwebwork · Oct 10, 2023 · f36100e · f36100e
1 parent 8ac4b56
commit f36100e
Showing 1 changed file with 5 additions and 10 deletions.
diff --git a/macros/contexts/contextLimitedRadical.pl b/macros/contexts/contextLimitedRadical.pl
@@ -135,16 +135,11 @@ sub _contextLimitedRadical_init {
 # Pass $a,$b, get Formula("$a sqrt($b)") but simplified
 
 sub preprad {
-	my $a = shift;
-	my $b = shift;
-	if ($a == 0 or $b == 0) { return Formula("0"); }
-	my $sign        = ($a > 0)       ? ''    : '-';
-	my $simplifieda = (abs($a) == 1) ? $sign : $a;
-	if ($b == 1) {
-		return Formula("$a");
-	} else {
-		return Formula("$simplifieda sqrt($b)");
-	}
+	my ($a, $b) = @_;
+	return Formula("0")  if $a == 0 or $b == 0;
+	return Formula("$a") if $b == 1;
+	my $simplifieda = abs($a) == 1 ? ($a > 0 ? '' : '-') : $a;
+	return Formula("$simplifieda sqrt($b)");
 }
 
 ###########################