refactor: optimise loops

---
type: pre_commit_static_analysis_report
description: Results of running static analysis checks when committing changes.
report:
  - task: lint_filenames
    status: passed
  - task: lint_editorconfig
    status: passed
  - task: lint_markdown
    status: na
  - task: lint_package_json
    status: na
  - task: lint_repl_help
    status: na
  - task: lint_javascript_src
    status: passed
  - task: lint_javascript_cli
    status: na
  - task: lint_javascript_examples
    status: na
  - task: lint_javascript_tests
    status: na
  - task: lint_javascript_benchmarks
    status: na
  - task: lint_python
    status: na
  - task: lint_r
    status: na
  - task: lint_c_src
    status: na
  - task: lint_c_examples
    status: na
  - task: lint_c_benchmarks
    status: na
  - task: lint_c_tests_fixtures
    status: na
  - task: lint_shell
    status: na
  - task: lint_typescript_declarations
    status: na
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: aayush0325

lib/node_modules/@stdlib/lapack/base/dlange/lib/base.js

@@ -268,18 +268,30 @@ function infinityNorm( M, N, A, strideA1, strideA2, offsetA, work, strideWork, o
 * // returns ~25.5
 */
 function frobeniusNorm( M, N, A, strideA1, strideA2, offsetA ) {
+	var value;
 	var ia1;
 	var out;
 	var i;
 
-	ia1 = offsetA;
 	out = new Float64Array( [ 0.0, 1.0 ] );
-	for ( i = 0; i < N; i++ ) {
-		dlassq( M, A, strideA1, ia1, out[ 0 ], out[ 1 ], out, 1, 0 );
-		ia1 += strideA2;
+
+	if ( isRowMajor( [ strideA1, strideA2 ] ) ) {
+		ia1 = offsetA;
+		for ( i = 0; i < M; i++ ) {
+			dlassq( N, A, strideA2, ia1, out[ 0 ], out[ 1 ], out, 1, 0 );
+			ia1 += strideA1;
+		}
+		value = out[ 0 ] * sqrt( out[ 1 ] );
+	} else {
+		ia1 = offsetA;
+		for ( i = 0; i < N; i++ ) {
+			dlassq( M, A, strideA1, ia1, out[ 0 ], out[ 1 ], out, 1, 0 );
+			ia1 += strideA2;
+		}
+		value = out[ 0 ] * sqrt( out[ 1 ] );
 	}
 
-	return out[ 0 ] * sqrt( out[ 1 ] );
+	return value;
 }