# $Id: ary3.gawk,v 1.1 2001/05/31 02:27:48 doug Exp $ # http://www.bagley.org/~doug/shootout/ # this program modified from: # http://cm.bell-labs.com/cm/cs/who/bwk/interps/pap.html # Timing Trials, or, the Trials of Timing: Experiments with Scripting # and User-Interface Languages</a> by Brian W. Kernighan and # Christopher J. Van Wyk. BEGIN { n = (ARGV[1] < 1) ? 1 : ARGV[1]; for (i = 0; i < n; i++) x[i] = i + 1 for (k = 0; k < 1000; k++) { for (j = n-1; j >= 0; j--) y[j] += x[j] } print y[0], y[n-1] }