|  | 
|  | 1 | +/** | 
|  | 2 | +* @license Apache-2.0 | 
|  | 3 | +* | 
|  | 4 | +* Copyright (c) 2025 The Stdlib Authors. | 
|  | 5 | +* | 
|  | 6 | +* Licensed under the Apache License, Version 2.0 (the "License"); | 
|  | 7 | +* you may not use this file except in compliance with the License. | 
|  | 8 | +* You may obtain a copy of the License at | 
|  | 9 | +* | 
|  | 10 | +*    http://www.apache.org/licenses/LICENSE-2.0 | 
|  | 11 | +* | 
|  | 12 | +* Unless required by applicable law or agreed to in writing, software | 
|  | 13 | +* distributed under the License is distributed on an "AS IS" BASIS, | 
|  | 14 | +* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | 
|  | 15 | +* See the License for the specific language governing permissions and | 
|  | 16 | +* limitations under the License. | 
|  | 17 | +*/ | 
|  | 18 | + | 
|  | 19 | +/* eslint-disable max-depth */ | 
|  | 20 | + | 
|  | 21 | +'use strict'; | 
|  | 22 | + | 
|  | 23 | +// MODULES // | 
|  | 24 | + | 
|  | 25 | +var strides2order = require( '@stdlib/ndarray/base/strides2order' ); | 
|  | 26 | + | 
|  | 27 | + | 
|  | 28 | +// MAIN // | 
|  | 29 | + | 
|  | 30 | +/** | 
|  | 31 | +* Tests whether at least `n` elements in an ndarray are truthy. | 
|  | 32 | +* | 
|  | 33 | +* @private | 
|  | 34 | +* @param {Object} x - object containing ndarray meta data | 
|  | 35 | +* @param {string} x.dtype - data type | 
|  | 36 | +* @param {Collection} x.data - data buffer | 
|  | 37 | +* @param {NonNegativeIntegerArray} x.shape - dimensions | 
|  | 38 | +* @param {IntegerArray} x.strides - stride lengths | 
|  | 39 | +* @param {NonNegativeInteger} x.offset - index offset | 
|  | 40 | +* @param {string} x.order - specifies whether `x` is row-major (C-style) or column-major (Fortran-style) | 
|  | 41 | +* @param {PositiveInteger} n - number of elements | 
|  | 42 | +* @returns {boolean} boolean indicating whether at least `n` elements are truthy | 
|  | 43 | +* | 
|  | 44 | +* @example | 
|  | 45 | +* var Float64Array = require( '@stdlib/array/float64' ); | 
|  | 46 | +* | 
|  | 47 | +* // Create a data buffer: | 
|  | 48 | +* var xbuf = new Float64Array( [ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0 ] ); | 
|  | 49 | +* | 
|  | 50 | +* // Define the shape of the input array: | 
|  | 51 | +* var shape = [ 1, 1, 1, 1, 1, 1, 1, 3, 1, 2 ]; | 
|  | 52 | +* | 
|  | 53 | +* // Define the array strides: | 
|  | 54 | +* var sx = [ 12, 12, 12, 12, 12, 12, 12, 4, 4, 1 ]; | 
|  | 55 | +* | 
|  | 56 | +* // Define the index offset: | 
|  | 57 | +* var ox = 1; | 
|  | 58 | +* | 
|  | 59 | +* // Create the input ndarray-like object: | 
|  | 60 | +* var x = { | 
|  | 61 | +*     'dtype': 'float64', | 
|  | 62 | +*     'data': xbuf, | 
|  | 63 | +*     'shape': shape, | 
|  | 64 | +*     'strides': sx, | 
|  | 65 | +*     'offset': ox, | 
|  | 66 | +*     'order': 'row-major' | 
|  | 67 | +* }; | 
|  | 68 | +* | 
|  | 69 | +* // Test elements: | 
|  | 70 | +* var out = some10d( x, 4 ); | 
|  | 71 | +* // returns true | 
|  | 72 | +*/ | 
|  | 73 | +function some10d( x, n ) { // eslint-disable-line max-statements | 
|  | 74 | +	var count; | 
|  | 75 | +	var xbuf; | 
|  | 76 | +	var dx0; | 
|  | 77 | +	var dx1; | 
|  | 78 | +	var dx2; | 
|  | 79 | +	var dx3; | 
|  | 80 | +	var dx4; | 
|  | 81 | +	var dx5; | 
|  | 82 | +	var dx6; | 
|  | 83 | +	var dx7; | 
|  | 84 | +	var dx8; | 
|  | 85 | +	var dx9; | 
|  | 86 | +	var sh; | 
|  | 87 | +	var S0; | 
|  | 88 | +	var S1; | 
|  | 89 | +	var S2; | 
|  | 90 | +	var S3; | 
|  | 91 | +	var S4; | 
|  | 92 | +	var S5; | 
|  | 93 | +	var S6; | 
|  | 94 | +	var S7; | 
|  | 95 | +	var S8; | 
|  | 96 | +	var S9; | 
|  | 97 | +	var sx; | 
|  | 98 | +	var ix; | 
|  | 99 | +	var i0; | 
|  | 100 | +	var i1; | 
|  | 101 | +	var i2; | 
|  | 102 | +	var i3; | 
|  | 103 | +	var i4; | 
|  | 104 | +	var i5; | 
|  | 105 | +	var i6; | 
|  | 106 | +	var i7; | 
|  | 107 | +	var i8; | 
|  | 108 | +	var i9; | 
|  | 109 | + | 
|  | 110 | +	// Note on variable naming convention: S#, dx#, dy#, i# where # corresponds to the loop number, with `0` being the innermost loop... | 
|  | 111 | + | 
|  | 112 | +	// Extract loop variables for purposes of loop interchange: dimensions and loop offset (pointer) increments... | 
|  | 113 | +	sh = x.shape; | 
|  | 114 | +	sx = x.strides; | 
|  | 115 | +	if ( strides2order( sx ) === 1 ) { | 
|  | 116 | +		// For row-major ndarrays, the last dimensions have the fastest changing indices... | 
|  | 117 | +		S0 = sh[ 9 ]; | 
|  | 118 | +		S1 = sh[ 8 ]; | 
|  | 119 | +		S2 = sh[ 7 ]; | 
|  | 120 | +		S3 = sh[ 6 ]; | 
|  | 121 | +		S4 = sh[ 5 ]; | 
|  | 122 | +		S5 = sh[ 4 ]; | 
|  | 123 | +		S6 = sh[ 3 ]; | 
|  | 124 | +		S7 = sh[ 2 ]; | 
|  | 125 | +		S8 = sh[ 1 ]; | 
|  | 126 | +		S9 = sh[ 0 ]; | 
|  | 127 | +		dx0 = sx[ 9 ];                // offset increment for innermost loop | 
|  | 128 | +		dx1 = sx[ 8 ] - ( S0*sx[9] ); | 
|  | 129 | +		dx2 = sx[ 7 ] - ( S1*sx[8] ); | 
|  | 130 | +		dx3 = sx[ 6 ] - ( S2*sx[7] ); | 
|  | 131 | +		dx4 = sx[ 5 ] - ( S3*sx[6] ); | 
|  | 132 | +		dx5 = sx[ 4 ] - ( S4*sx[5] ); | 
|  | 133 | +		dx6 = sx[ 3 ] - ( S5*sx[4] ); | 
|  | 134 | +		dx7 = sx[ 2 ] - ( S6*sx[3] ); | 
|  | 135 | +		dx8 = sx[ 1 ] - ( S7*sx[2] ); | 
|  | 136 | +		dx9 = sx[ 0 ] - ( S8*sx[1] ); // offset increment for outermost loop | 
|  | 137 | +	} else { // order === 'column-major' | 
|  | 138 | +		// For column-major ndarrays, the first dimensions have the fastest changing indices... | 
|  | 139 | +		S0 = sh[ 0 ]; | 
|  | 140 | +		S1 = sh[ 1 ]; | 
|  | 141 | +		S2 = sh[ 2 ]; | 
|  | 142 | +		S3 = sh[ 3 ]; | 
|  | 143 | +		S4 = sh[ 4 ]; | 
|  | 144 | +		S5 = sh[ 5 ]; | 
|  | 145 | +		S6 = sh[ 6 ]; | 
|  | 146 | +		S7 = sh[ 7 ]; | 
|  | 147 | +		S8 = sh[ 8 ]; | 
|  | 148 | +		S9 = sh[ 9 ]; | 
|  | 149 | +		dx0 = sx[ 0 ];                // offset increment for innermost loop | 
|  | 150 | +		dx1 = sx[ 1 ] - ( S0*sx[0] ); | 
|  | 151 | +		dx2 = sx[ 2 ] - ( S1*sx[1] ); | 
|  | 152 | +		dx3 = sx[ 3 ] - ( S2*sx[2] ); | 
|  | 153 | +		dx4 = sx[ 4 ] - ( S3*sx[3] ); | 
|  | 154 | +		dx5 = sx[ 5 ] - ( S4*sx[4] ); | 
|  | 155 | +		dx6 = sx[ 6 ] - ( S5*sx[5] ); | 
|  | 156 | +		dx7 = sx[ 7 ] - ( S6*sx[6] ); | 
|  | 157 | +		dx8 = sx[ 8 ] - ( S7*sx[7] ); | 
|  | 158 | +		dx9 = sx[ 9 ] - ( S8*sx[8] ); // offset increment for outermost loop | 
|  | 159 | +	} | 
|  | 160 | +	// Set a pointer to the first indexed element: | 
|  | 161 | +	ix = x.offset; | 
|  | 162 | + | 
|  | 163 | +	// Cache a reference to the input ndarray buffer: | 
|  | 164 | +	xbuf = x.data; | 
|  | 165 | + | 
|  | 166 | +	// Initialize a counter: | 
|  | 167 | +	count = 0; | 
|  | 168 | + | 
|  | 169 | +	// Iterate over the ndarray dimensions... | 
|  | 170 | +	for ( i9 = 0; i9 < S9; i9++ ) { | 
|  | 171 | +		for ( i8 = 0; i8 < S8; i8++ ) { | 
|  | 172 | +			for ( i7 = 0; i7 < S7; i7++ ) { | 
|  | 173 | +				for ( i6 = 0; i6 < S6; i6++ ) { | 
|  | 174 | +					for ( i5 = 0; i5 < S5; i5++ ) { | 
|  | 175 | +						for ( i4 = 0; i4 < S4; i4++ ) { | 
|  | 176 | +							for ( i3 = 0; i3 < S3; i3++ ) { | 
|  | 177 | +								for ( i2 = 0; i2 < S2; i2++ ) { | 
|  | 178 | +									for ( i1 = 0; i1 < S1; i1++ ) { | 
|  | 179 | +										for ( i0 = 0; i0 < S0; i0++ ) { | 
|  | 180 | +											if ( xbuf[ ix ] ) { | 
|  | 181 | +												count += 1; | 
|  | 182 | +												if ( count === n ) { | 
|  | 183 | +													return true; | 
|  | 184 | +												} | 
|  | 185 | +											} | 
|  | 186 | +											ix += dx0; | 
|  | 187 | +										} | 
|  | 188 | +										ix += dx1; | 
|  | 189 | +									} | 
|  | 190 | +									ix += dx2; | 
|  | 191 | +								} | 
|  | 192 | +								ix += dx3; | 
|  | 193 | +							} | 
|  | 194 | +							ix += dx4; | 
|  | 195 | +						} | 
|  | 196 | +						ix += dx5; | 
|  | 197 | +					} | 
|  | 198 | +					ix += dx6; | 
|  | 199 | +				} | 
|  | 200 | +				ix += dx7; | 
|  | 201 | +			} | 
|  | 202 | +			ix += dx8; | 
|  | 203 | +		} | 
|  | 204 | +		ix += dx9; | 
|  | 205 | +	} | 
|  | 206 | +	return false; | 
|  | 207 | +} | 
|  | 208 | + | 
|  | 209 | + | 
|  | 210 | +// EXPORTS // | 
|  | 211 | + | 
|  | 212 | +module.exports = some10d; | 
0 commit comments