// $Id: ary3.ici,v 1.0 2003/01/03 12:16:00 dada Exp $ // http://dada.perl.it/shootout // // contributed by Tim Long n = argv[1] ? int(argv[1]) : 1; x = build(n); for (i = 0; i < n; ++i) x[i] = i + 1; y = build(n, "c", 0); for (k = 0; k < 1000; ++k) { for (i = n - 1; i >= 0; --i) y[i] += x[i]; } printf("%d %d\n", y[0], y[n - 1]);