#!/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)