;gestione vettori
;somma elementi di un vettore
;stampa elementi vettore
;vet1

(prog1
(setq vect1(make-array '(4):initial-contents '(1 2 3 4)))
(print vect1)
;somma elementi vettore
(setq somma 0)
(dotimes(conta 4 0)
(setq a(aref vect1 conta))
(print a)
 (setq somma(+ somma a)))
(terpri)
(prin1 " somma=")(prin1 somma)(terpri)
)

;gestione vettori
;somma elementi di un vettore
;stampa elementi vettore
;vet2

(prog1
(setq vect1(make-array '(4):initial-contents '(1 2 3 4)))
(print vect1)
;legge numero elementi in vettore e assegna a dotimes
(setq lungo(length vect1))
;somma elementi vettore
(setq somma 0)
(dotimes(conta lungo 0)
(setq a(aref vect1 conta))
(print a)
 (setq somma(+ somma a)))
(terpri)
(prin1 " somma=")(prin1 somma)(terpri)
)

;gestione vettori
;somma elementi di un vettore
;stampa elementi vettore
;vet3

(prog1
(print "-----------------------")
(setq vect1(make-array '(4):initial-contents '(1 2 3 4)))
(print vect1)
;legge numero elementi in vettore e assegna a dotimes
(setq lungo(length vect1))
;somma elementi vettore
(setq somma 0)
(dotimes(conta lungo 0)
(setq a(aref vect1 conta))
(print a)
 (setq somma(+ somma a)))
(terpri)
(prin1 " somma=")(prin1 somma)(terpri)
)

;gestione vettori
;prodotto di costante per elementi vettore
;stampa elementi vettore
;vet4

(prog1
(print "-----------------------")
(setq vect1(make-array '(4):initial-contents '(1 2 3 4)))
(print vect1)
;legge numero elementi in vettore e assegna a dotimes
(setq lungo(length vect1))
;prodotto elementi vettore
(setq costante 10)
(print costante)
(print "---segue prodotto costante*numero--")
(dotimes(conta lungo 0)
(setq a(aref vect1 conta))
(print (* a costante)))
(terpri)

)
ritorna