style: remove assignment duplication

Signed-off-by: Athan <kgryte@gmail.com>

Author: kgryte

lib/node_modules/@stdlib/blas/ext/base/gvander/lib/accessors.js

@@ -85,33 +85,31 @@ function gvander( mode, M, N, x, sx, ox, out, so1, so2, oo ) {
 	// Note on variable naming convention: S#, do#, io, i# where # corresponds to the loop number, with `0` being the innermost loop...
 	isrm = isRowMajor( [ so1, so2 ] );
 
-	if ( isrm && mode > 0 ) {
-		// Row-major, increasing: x^0, x^1, ..., x^(N-1)
+	if ( isrm ) {
 		S0 = N;
 		S1 = M;
 		do0 = so2;
 		do1 = so1 - ( S0*so2 );
-		io = oo;
-		ix = ox;
-		for ( i1 = 0; i1 < S1; i1++ ) {
-			v = xget( xbuf, ix );
-			oset( obuf, io, 1.0 );
-			tmp = 1.0;
-			io += do0;
-			for ( i0 = 1; i0 < S0; i0++ ) {
-				tmp *= v;
-				oset( obuf, io, tmp );
+		if ( mode > 0 ) {
+			// Increasing: x^0, x^1, ..., x^(N-1)
+			io = oo;
+			ix = ox;
+			for ( i1 = 0; i1 < S1; i1++ ) {
+				v = xget( xbuf, ix );
+				oset( obuf, io, 1.0 );
+				tmp = 1.0;
 				io += do0;
+				for ( i0 = 1; i0 < S0; i0++ ) {
+					tmp *= v;
+					oset( obuf, io, tmp );
+					io += do0;
+				}
+				ix += sx;
+				io += do1;
 			}
-			ix += sx;
-			io += do1;
+			return obuf;
 		}
-	} else if ( isrm ) {
-		// Row-major, decreasing: x^(N-1), x^(N-2), ..., x^0
-		S0 = N;
-		S1 = M;
-		do0 = so2;
-		do1 = so1 - ( S0*so2 );
+		// Decreasing: x^(N-1), x^(N-2), ..., x^0
 		io = oo + ( ( S1-1 ) * so1 ) + ( ( S0-1 ) * so2 );
 		ix = ox + ( ( S1-1 ) * sx );
 		for ( i1 = S1-1; i1 >= 0; i1-- ) {
@@ -127,12 +125,15 @@ function gvander( mode, M, N, x, sx, ox, out, so1, so2, oo ) {
 			ix -= sx;
 			io -= do1;
 		}
-	} else if ( mode > 0 ) {
-		// Column-major, increasing: column j contains x^j
-		S0 = M;
-		S1 = N;
-		do0 = so1;
-		do1 = so2 - ( S0*so1 );
+		return obuf;
+	}
+	// Column-major...
+	S0 = M;
+	S1 = N;
+	do0 = so1;
+	do1 = so2 - ( S0*so1 );
+	if ( mode > 0 ) {
+		// Increasing: column j contains x^j
 		io = oo;
 		gfill( S0, 1.0, obuf, do0, io );
 		io += so2;
@@ -145,23 +146,19 @@ function gvander( mode, M, N, x, sx, ox, out, so1, so2, oo ) {
 			}
 			io += do1;
 		}
-	} else {
-		// Column-major, decreasing: column 0 contains x^(N-1), last column all ones
-		S0 = M;
-		S1 = N;
-		do0 = so1;
-		do1 = so2 - ( S0*so1 );
-		gfill( S0, 1.0, obuf, so1, oo + ( ( S1-1 ) * so2 ) );
-		io = oo + ( ( S1-2 ) * so2 ) + ( ( S0-1 ) * so1 );
-		for ( i1 = S1-2; i1 >= 0; i1-- ) {
-			ix = ox + ( ( S0-1 ) * sx );
-			for ( i0 = S0-1; i0 >= 0; i0-- ) {
-				oset( obuf, io, oget( obuf, io + so2 ) * xget( xbuf, ix ) );
-				ix -= sx;
-				io -= do0;
-			}
-			io -= do1;
+		return obuf;
+	}
+	// Decreasing: column 0 contains x^(N-1), last column all ones
+	gfill( S0, 1.0, obuf, so1, oo + ( ( S1-1 ) * so2 ) );
+	io = oo + ( ( S1-2 ) * so2 ) + ( ( S0-1 ) * so1 );
+	for ( i1 = S1-2; i1 >= 0; i1-- ) {
+		ix = ox + ( ( S0-1 ) * sx );
+		for ( i0 = S0-1; i0 >= 0; i0-- ) {
+			oset( obuf, io, oget( obuf, io + so2 ) * xget( xbuf, ix ) );
+			ix -= sx;
+			io -= do0;
 		}
+		io -= do1;
 	}
 	return obuf;
 }