Files
ikarus/benchmarks.larceny/src/array1.awk
T
Abdulaziz Ghuloum f1674cbaef * renamed benchmarks directories.
renamed:
  benchmarks => benchmarks.larceny
  benchmarks/new => benchmarks
2007-06-14 20:26:38 +03:00

17 lines
219 B
Awk
Executable File

#! /usr/bin/awk -f
function array1( m ) {
for (k = 0; k < 100; k++) {
for (i = 0; i < m; i++) {
x[i] = i
}
for (n = m - 1; j >= 0; j--) {
y[j] = x[j]
}
}
return
}
BEGIN {
array1( 200000 )
}