#!/usr/bin/newlisp


# arrays benchmark
#
# this requires newLISP 9.0
#


(define (main)
	(set 'n (integer (main-args 2)))
	(set 'x (array n (sequence 1 n)))
	(set 'y (array n '(0)))
	(dotimes (k 1000)
		(for (i (- n 1) 0)
			(nth-set (y i) (+ (y i) (x i)) )))

	(println (y 0) " " (y (- n 1) )))

(main)
(exit)


	




syntax highlighting with newLISP and syntax.cgi