Changeset 2a301ff for tests/PRNG.cfa
- Timestamp:
- Aug 31, 2023, 11:31:15 PM (2 years ago)
- Branches:
- master
- Children:
- 950c58e
- Parents:
- 92355883 (diff), 686912c (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the(diff)links above to see all the changes relative to each parent. - File:
-
- 1 edited
-
tests/PRNG.cfa (modified) (10 diffs)
Legend:
- Unmodified
- Added
- Removed
-
tests/PRNG.cfa
r92355883 r2a301ff 10 10 // Created On : Wed Dec 29 09:38:12 2021 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu May 25 15:39:52202313 // Update Count : 42 212 // Last Modified On : Mon Aug 14 08:49:53 2023 13 // Update Count : 425 14 14 // 15 15 … … 27 27 #define str(s) #s 28 28 29 #if defined( __x86_64__ ) || defined( __aarch64__ ) // 64-bit architecture30 #define PRNG PRNG6431 #else // 32-bit architecture32 #define PRNG PRNG3233 #endif // __x86_64__34 35 29 //#define TIME 36 30 … … 144 138 srand( rseed ); 145 139 146 sout | sep Disable;140 sout | sepOff; 147 141 sout | nl | wd(26, "rand()" ) | wd(12, "rand(5)") | wd(12, "rand(0,5)" ); 148 142 for ( 20 ) { … … 151 145 sout | wd(12, rand() % (5 - 0 + 1) + 0); 152 146 } // for 153 sout | sep Enable;147 sout | sepOn; 154 148 sout | "seed" | rseed; 155 149 … … 185 179 if ( seed != 0 ) set_seed( prng, seed ); 186 180 187 sout | sep Disable;181 sout | sepOff; 188 182 sout | nl | wd(26, "PRNG()" ) | wd(12, "PRNG(5)") | wd(12, "PRNG(0,5)" ); 189 183 for ( 20 ) { … … 192 186 sout | wd(12, prng( prng, 0, 5 )); 193 187 } // for 194 sout | sep Enable;188 sout | sepOn; 195 189 sout | "seed" | get_seed( prng ); 196 190 … … 220 214 if ( seed != 0 ) set_seed( seed ); 221 215 222 sout | sep Disable;216 sout | sepOff; 223 217 sout | nl | wd(26, "prng()" ) | wd(12, "prng(5)") | wd(12, "prng(0,5)" ); 224 218 for ( 20 ) { … … 227 221 sout | wd(12, prng( 0, 5 )); 228 222 } // for 229 sout | sep Enable;223 sout | sepOn; 230 224 sout | "seed" | get_seed( prng ); 231 225 … … 256 250 thread$ & th = *active_thread(); 257 251 258 sout | sep Disable;252 sout | sepOff; 259 253 sout | nl | wd(26, "prng(t)" ) | wd(12, "prng(t,5)") | wd(12, "prng(t,0,5)" ); 260 254 for ( 20 ) { … … 263 257 sout | wd(12, prng( th, 0, 5 )); 264 258 } // for 265 sout | sep Enable;259 sout | sepOn; 266 260 sout | "seed" | get_seed( prng ); 267 261
Note:
See TracChangeset
for help on using the changeset viewer.